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