TIP: Click on subject to list as thread! ANSI
echo: os2prog
to: Gerard Gerritsen
from: Gary Chambers
date: 1996-03-03 21:26:14
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™.