home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / prg / cenviw / gdi.lib < prev    next >
Text File  |  1994-08-29  |  1KB  |  51 lines
  1. // GDI.LIB - Interfaces to some of Windows' graphics routines
  2. // ver.2
  3. //
  4. // Contributed in its initial form to the CEnvi library by Jari Karjala.
  5. // Thank you Jari.
  6.  
  7.  
  8. MoveTo(pHdc,pX1,pY1)
  9. {
  10.    DynamicLink("GDI","MOVETO",SWORD16,PASCAL,pHdc,pX1,pY1);
  11. }
  12.  
  13. LineTo(pHdc,pX1,pY1)
  14. {
  15.    DynamicLink("GDI","LINETO",SWORD16,PASCAL,pHdc,pX1,pY1);
  16. }
  17.  
  18. Rectangle(pHdc,pX1,pY1,pX2,pY2)
  19. {
  20.    DynamicLink("GDI","RECTANGLE",SWORD16,PASCAL,pHdc,pX1,pY1,pX2,pY2);
  21. }
  22.  
  23. RoundRect(pHdc,pX1,pY1,pX2,pY2,pA,pB)
  24. {
  25.    DynamicLink("GDI","ROUNDRECT",SWORD16,PASCAL,pHdc,pX1,pY1,pX2,pY2,pA,pB);
  26. }
  27.  
  28. Ellipse(pHdc,pX1,pY1,pX2,pY2)
  29. {
  30.    DynamicLink("GDI","ELLIPSE",SWORD16,PASCAL,pHdc,pX1,pY1,pX2,pY2);
  31. }
  32.  
  33. SelectObject(pHdc,pObj)
  34. {
  35.    return DynamicLink("GDI","SELECTOBJECT",SWORD16,PASCAL,pHdc,pObj);
  36. }
  37.  
  38. BeginPaint(pWindowHandle,pPaintStructBLOb)
  39. {
  40.    // Prepare window for painting and fill paint struct blob
  41.    // Return: pHdc
  42.    BLObSize(pPaintStructBLOb,32);
  43.    return DynamicLink("USER","BEGINPAINT",SWORD16,PASCAL,pWindowHandle,pPaintStructBLOb);
  44. }
  45.  
  46. EndPaint(pWindowHandle,pPaintStructBLOb)
  47. {
  48.    DynamicLink("USER","ENDPAINT",SWORD16,PASCAL,pWindowHandle,pPaintStructBLOb);
  49. }
  50.  
  51.