home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PSGUI130.ZIP / ICONS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-01  |  2.0 KB  |  60 lines
  1. {
  2.  
  3.                                                       ╔══════════════════╗
  4.                                                       ║   VGA Graphical  ║
  5.                                                       ║      Icons       ║
  6.                                                       ║    Rev. 1.00     ║
  7.                                                       ╚══════════════════╝
  8.  
  9. }
  10.  
  11. {$F-} {$O-} {$A+} {$G-}
  12. {$V-} {$B-} {$X-} {$N+} {$E+}
  13. {$I-} {$R-} {$D-} {$L-} {$S-}
  14.  
  15. Unit Icons;
  16.  
  17. Interface
  18.  
  19. Procedure IconCloseButton;
  20. Procedure IconSlideButtonVert;
  21. Procedure IconSlideButtonHorz;
  22. Procedure IconSlideButtonUp;
  23. Procedure IconSlideButtonDown;
  24. Procedure IconSlideButtonLeft;
  25. Procedure IconSlideButtonRight;
  26.  
  27. Procedure IconMousePoint;
  28. Procedure IconMouseClock;
  29. Procedure IconMouseNote;
  30.  
  31. Procedure IconBGIMouseCursorA;
  32. Procedure IconBGIMouseMaskA;
  33. Procedure IconBGIMouseCursorB;
  34. Procedure IconBGIMouseMaskB;
  35. Procedure IconBGIMouseCursorC;
  36. Procedure IconBGIMouseMaskC;
  37.  
  38. Implementation
  39.  
  40. Procedure IconCloseButton;       External; {$L CLOSE.ICO}
  41. Procedure IconSlideButtonVert;   External; {$L SLIDE-V.ICO}
  42. Procedure IconSlideButtonHorz;   External; {$L SLIDE-H.ICO}
  43. Procedure IconSlideButtonUp;     External; {$L SLIDE-U.ICO}
  44. Procedure IconSlideButtonDown;   External; {$L SLIDE-D.ICO}
  45. Procedure IconSlideButtonLeft;   External; {$L SLIDE-L.ICO}
  46. Procedure IconSlideButtonRight;  External; {$L SLIDE-R.ICO}
  47.  
  48. Procedure IconMousePoint;        External; {$L MSE_PNT.ICO}
  49. Procedure IconMouseClock;        External; {$L MSE_CLCK.ICO}
  50. Procedure IconMouseNote;         External; {$L MSE_NOTE.ICO}
  51.  
  52. Procedure IconBGIMouseCursorA;   External; {$L MSECRSRA.ICO}
  53. Procedure IconBGIMouseMaskA;     External; {$L MSEMASKA.ICO}
  54. Procedure IconBGIMouseCursorB;   External; {$L MSECRSRB.ICO}
  55. Procedure IconBGIMouseMaskB;     External; {$L MSEMASKB.ICO}
  56. Procedure IconBGIMouseCursorC;   External; {$L MSECRSRC.ICO}
  57. Procedure IconBGIMouseMaskC;     External; {$L MSEMASKC.ICO}
  58.  
  59. End.
  60.