home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / CENVIW.ZIP / GDI.LIB < prev    next >
Text File  |  1993-11-11  |  1KB  |  49 lines
  1. // GDI.LIB - Interfaces to some of Windows' graphics routines
  2. //
  3. // Contributed in its initial form to the CEnvi library by Jari Karjala.
  4. // Thank you Jari.
  5.  
  6.  
  7. MoveTo(hdc, x1,y1)
  8. {
  9.    DynamicLink("GDI","MOVETO",SWORD16,PASCAL,hdc,x1,y1);
  10. }
  11.  
  12. LineTo(hdc, x1,y1)
  13. {
  14.    DynamicLink("GDI","LINETO",SWORD16,PASCAL,hdc,x1,y1);
  15. }
  16.  
  17. Rectangle(hdc, x1,y1, x2,y2)
  18. {
  19.    DynamicLink("GDI","RECTANGLE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
  20. }
  21.  
  22. RoundRect(hdc, x1,y1, x2,y2, a,b)
  23. {
  24.    DynamicLink("GDI","ROUNDRECT",SWORD16,PASCAL,hdc,x1,y1,x2,y2,a,b);
  25. }
  26.  
  27. Ellipse(hdc, x1,y1, x2,y2)
  28. {
  29.    DynamicLink("GDI","ELLIPSE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
  30. }
  31.  
  32. SelectObject(hdc, obj)
  33. {
  34.    return DynamicLink("GDI","SELECTOBJECT",SWORD16,PASCAL,hdc,obj);
  35. }
  36.  
  37. BeginPaint(WindowHandle,PaintStructBLOb)
  38. {
  39.    // Prepare window for painting and fill paint struct blob
  40.    // Return: hdc
  41.    BLObSize(PaintStructBLOb,32);
  42.    return DynamicLink("USER","BEGINPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
  43. }
  44.  
  45. EndPaint(WindowHandle,PaintStructBLOb)
  46. {
  47.    DynamicLink("USER","ENDPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
  48. }
  49.