home *** CD-ROM | disk | FTP | other *** search
/ PC Musician 2000 / PC_Musician_2000.iso / PCMUSIC / MISC / MDJSTK10 / CTL3D.PAS next >
Encoding:
Pascal/Delphi Source File  |  1995-01-07  |  1.7 KB  |  51 lines
  1. (**************************************************)
  2. (*   Unit CTL3D                                   *)
  3. (*                                                *)
  4. (*   for use with CTL3D.DLL from Microsoft        *)
  5. (**************************************************)
  6.  
  7. unit Ctl3D;
  8.  
  9. interface
  10.  
  11. uses WinTypes;
  12.  
  13. const CTL3D_BUTTONS      = $0001;
  14.       CTL3D_LISTBOXES    = $0002;
  15.       CTL3D_EDITS        = $0004;
  16.       CTL3D_COMBOS       = $0008;
  17.       CTL3D_STATICTEXTS  = $0010;
  18.       CTL3D_STATICFRAMES = $0020;
  19.       CTL3D_ALL          = $ffff;
  20.  
  21. function Ctl3dGetVer : WORD;
  22. function Ctl3dSubclassDlg(HWindow : HWND; Ctrls : WORD) : bool;
  23. function Ctl3dSubclassCtl(HWindow : HWND) : bool;
  24.  
  25. function Ctl3dCtlColor(DC : HDC; Color : TColorRef) : HBrush;         {ARCHAIC, use Ctl3dCtlColorEx}
  26.  
  27. function Ctl3dEnabled : bool;
  28. function Ctl3dColorChange : bool;
  29. function Ctl3dRegister(Instance : THandle) : bool;
  30. function Ctl3dUnregister(Instance : THandle) : bool;
  31. function Ctl3dAutoSubclass(Instance : THandle) : bool;
  32. function Ctl3dCtlColorEx(Message, wParam : WORD; lParam : LONGINT)
  33.  
  34.     : HBrush;
  35.  
  36.  
  37.  
  38. implementation
  39.  
  40. function Ctl3dGetVer;       external 'Ctl3d' index 1;
  41. function Ctl3dSubclassDlg;  external 'Ctl3d' index 2;
  42. function Ctl3dSubclassCtl;  external 'Ctl3d' index 3;
  43. function Ctl3dCtlColor;     external 'Ctl3d' index 4;
  44. function Ctl3dEnabled;      external 'Ctl3d' index 5;
  45. function Ctl3dColorChange;  external 'Ctl3d' index 6;
  46. function Ctl3dRegister;     external 'Ctl3d' index 12;
  47. function Ctl3dUnregister;   external 'Ctl3d' index 13;
  48. function Ctl3dAutoSubclass; external 'Ctl3d' index 16;
  49. function Ctl3dCtlColorEx;   external 'Ctl3d' index 18;
  50. end.
  51.