[Back to WIN-OS2 SWAG index] [Back to Main SWAG index] [Original]

    (**************************************************)
    (*                                                *)
    (*   Unit CTL3D - Version 2.0                     *)
    (*                                                *)
    (*   for use with CTL3D.DLL from Microsoft        *)
    (*                                                *)
    (*   Supplied by Andreas Furrer                   *)
    (*                                                *)
    (**************************************************)

    unit Ctl3D;

    interface

    uses WinTypes;

    (* Ctl3dSubclassDlg3d flags *)
    const Ctl3d_Buttons      = $0001;
          Ctl3d_Listboxes    = $0002;
          Ctl3d_Edits        = $0004;
          Ctl3d_Combos       = $0008;
          Ctl3d_StaticTexts  = $0010;
          Ctl3d_StaticFrames = $0020;
          Ctl3d_NoDlgWindow  = $00010000;

          Ctl3d_All          = $ffff;

    const wm_DlgBorder       = wm_User+3567;
          (* WM_DLGBORDER PInteger(lParam)/\ return codes *)
          Ctl3d_NoBorder     = 0;
          Ctl3d_Border       = 1;

          wm_DlgSubclass     = wm_User+3568;
          (* WM_DLGSUBCLASS PInteger(lParam)/\ return codes *)
          Ctl3d_NoSubclass   = 0;
          Ctl3d_Subclass     = 1;

    function Ctl3dSubclassDlg(HWindow : HWnd; GrBits : word) : bool;
    function Ctl3dSubclassDlgEx(HWindow : HWnd; GrBits : longint) : bool;
    function Ctl3dGetVer : word;
    function Ctl3dEnabled : bool;
    function Ctl3dCtlColor(DC : HDC; Color : TColorRef) : HBrush;
    {ARCHAIC, use Ctl3dCtlColorEx}
    function Ctl3dCtlColorEx(Message, wParam : word; lParam : longint) : HBrush;
    function Ctl3dColorChange : bool;
    function Ctl3dSubclassCtl(HWindow : HWnd) : bool;
    function Ctl3dDlgFramePaint(HWindow : HWnd; Message, wParam : word;lParam :
    longint) : longint;
    function Ctl3dAutoSubclass(Instance : THandle) : bool;
    function Ctl3dRegister(Instance : THandle) : bool;
    function Ctl3dUnregister(Instance : THandle) : bool;
    (* begin DBCS: far east short cut key support *)
    procedure Ctl3dWinIniChange;
    (* end DBCS *)

    implementation

    function  Ctl3dGetVer;       external 'Ctl3d' index 1;
    function  Ctl3dSubclassDlg;  external 'Ctl3d' index 2;
    function  Ctl3dSubclassCtl;  external 'Ctl3d' index 3;
    function  Ctl3dCtlColor;     external 'Ctl3d' index 4;
    function  Ctl3dEnabled;      external 'Ctl3d' index 5;
    function  Ctl3dColorChange;  external 'Ctl3d' index 6;
    function  Ctl3dRegister;     external 'Ctl3d' index 12;
    function  Ctl3dUnregister;   external 'Ctl3d' index 13;
    function  Ctl3dAutoSubclass; external 'Ctl3d' index 16;
    function  Ctl3dCtlColorEx;   external 'Ctl3d' index 18;
    function  Ctl3dDlgFramePaint;external 'Ctl3d' index 20;
    function  Ctl3dSubclassDlgEx;external 'Ctl3d' index 21;
    procedure Ctl3dWinIniChange ;external 'Ctl3d' index 22;

    end.

[Back to WIN-OS2 SWAG index] [Back to Main SWAG index] [Original]