home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / psslider.zip / FACE.INT < prev    next >
Text File  |  1995-06-06  |  951b  |  29 lines
  1. unit Face;
  2.  
  3. {This is the source of the DrawFace method which is shipped with the Slider,
  4.  Wheel or VListBox component of the Perseus VCP. If you purchase at least
  5.  2 copies of these components you'll receive it with your registered version!
  6.  
  7.  Copyright ⌐ 1995: Sebastian Modersohn
  8.                    Softwaredevelopment
  9.                    Heinestrasse 20
  10.                    D 15370 Petershagen
  11.                    Phone: ++49 33439 7462
  12.                    CIS ID: 100340,1474
  13.  
  14.  Written by: Sebastian Modersohn
  15.  
  16.  The source is nearly undocumented, so if you have questions to details, just
  17.  contact us via CompuServe and we'll help you (if we can <g>).}
  18.  
  19. interface
  20.  
  21. uses Graphics, WinTypes, WinProcs;
  22.  
  23. type
  24.   TFaceStyle = (fsWin95, fsWin31, fsSpeedButton);
  25.  
  26. procedure DrawFace(Canvas: TCanvas; OrigRect: TRect; FaceStyle: TFaceStyle;
  27.                    bPressed: Boolean; bFilled: Boolean; FillColor: TColor);
  28.  
  29. implementation