| TIP: Click on subject to list as thread! | ANSI |
| echo: | |
|---|---|
| to: | |
| from: | |
| date: | |
| subject: | Visual Pascal COM routin |
-=> Quoting Gerard Gerritsen to Gary Chambers <=-
GG> Enought to convince you ? Or give me an example in C and I'll try to
GG> convert the code as good as I can.
Okay, give this a try...
case WM_PAINT:
/* ... */
GpiMove (hps, (PPOINTL)&Rectl);
Rectl.xRight--;
Rectl.yTop--;
GpiBox (hps, DRO_OUTLINE, (PPOINTL)&Rectl.xRight, 0L, 0L);
/* ... */
WinEndPaint (hps);
break;
Because of Pascal's strong type-checking, you won't be able to do this
(cast Rectl to Pointl) nearly as easily as it is done above. Obviously,
this is only a code segment, but you should get the idea.
GeeCee/2
Team OS/2 New England
gchambers{at}maine.com
... Topsham, ME 43 57.0'N 69 57.0'W
--- Blue Wave/OS2 v2.20 [NR]
* Origin: Mystic Seaport Inn OiS/2 - USR DS V.34+ - (207)721-3258 (1:326/426)SEEN-BY: 50/99 78/0 270/101 620/243 711/401 409 410 413 430 808 809 934 955 SEEN-BY: 712/407 515 517 628 713/888 800/1 7877/2809 @PATH: 326/426 411 400 3615/50 396/1 270/101 712/515 711/808 809 934 |
|
| SOURCE: echomail via fidonet.ozzmosis.com | |
Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.