home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / GPIDEMO.INC < prev    next >
Text File  |  1989-08-13  |  1KB  |  35 lines
  1. CONST IDRESOURCE         = 1
  2. CONST IDMEXIT            = 5
  3. CONST IDMARC             = 10
  4. CONST IDMLINE            = 20
  5. CONST IDMAREA            = 30
  6. CONST IDMMARK            = 40
  7. CONST IDMBIT             = 60
  8.  
  9. DECLARE FUNCTION GpiErase%( BYVAL HPS AS LONG )
  10.  
  11. DECLARE SUB DemoGpiPointArc(hps&,mode%)
  12. DECLARE SUB DemoGpiFullArc(hps&,mode%)
  13. DECLARE SUB DemoGpiPolyFilletSharp(hps&,mode%)
  14. DECLARE SUB DemoGpiPolyFillet(hps&,mode%)
  15. DECLARE SUB DemoGpiPolySpline(hps&,mode%)
  16. DECLARE SUB DemoGpiPartialArc(hps&,mode%)
  17. DECLARE SUB DemoLine(hwnd&)
  18. DECLARE SUB DemoPatterns(hps&)
  19. DECLARE SUB DemoBeginEndArea(hwnd&, hps&, lastgpi%, dclicked%)
  20. DECLARE SUB DemoMark(hps&,lastgpi%)
  21. DECLARE SUB Demo1PlaneBitmap(hps&)
  22. DECLARE SUB Demo4PlaneBitmap(hps&)
  23. DECLARE SUB DemoSystemBitmaps(hps&, lastgpi%)
  24. DECLARE SUB DemoResizeBitmap(hwnd&, hps&)
  25. DECLARE SUB DemoFillWithBitmap(hps&)
  26. DECLARE SUB DemoCaptureAndMagnify(hab&, hwndFrame&, hwnd&, hps&)
  27.  
  28. DECLARE SUB DoYouReallyWantToQuit(hwnd&)
  29. DECLARE FUNCTION MakeFixed&(realnum#)
  30. DECLARE FUNCTION DisplayMessageBox%(message$, caption$)
  31. DECLARE SUB DisplayChoice(hwnd&, hps&)
  32.  
  33. COMMON /Gdemo/ cxClient%, cyClient%
  34.  
  35.