home *** CD-ROM | disk | FTP | other *** search
- // GDI.LIB - Interfaces to some of Windows' graphics routines
- //
- // Contributed in its initial form to the CEnvi library by Jari Karjala.
- // Thank you Jari.
-
-
- MoveTo(hdc, x1,y1)
- {
- DynamicLink("GDI","MOVETO",SWORD16,PASCAL,hdc,x1,y1);
- }
-
- LineTo(hdc, x1,y1)
- {
- DynamicLink("GDI","LINETO",SWORD16,PASCAL,hdc,x1,y1);
- }
-
- Rectangle(hdc, x1,y1, x2,y2)
- {
- DynamicLink("GDI","RECTANGLE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
- }
-
- RoundRect(hdc, x1,y1, x2,y2, a,b)
- {
- DynamicLink("GDI","ROUNDRECT",SWORD16,PASCAL,hdc,x1,y1,x2,y2,a,b);
- }
-
- Ellipse(hdc, x1,y1, x2,y2)
- {
- DynamicLink("GDI","ELLIPSE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
- }
-
- SelectObject(hdc, obj)
- {
- return DynamicLink("GDI","SELECTOBJECT",SWORD16,PASCAL,hdc,obj);
- }
-
- BeginPaint(WindowHandle,PaintStructBLOb)
- {
- // Prepare window for painting and fill paint struct blob
- // Return: hdc
- BLObSize(PaintStructBLOb,32);
- return DynamicLink("USER","BEGINPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
- }
-
- EndPaint(WindowHandle,PaintStructBLOb)
- {
- DynamicLink("USER","ENDPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
- }