Class TTransObject (unit TrCtrls) |
Inherits from
TObject
this message is called by hook procedure when
transparent control should be updated
Constructor Create(AControl: TWinControl);
- -------------------------------------------------------------
Destructor Destroy;
-------------------------------------------------------------
Procedure InternalPaint;
--------------------------------------------
Procedure KillTempDC;
------------------------------------------------------------------
Procedure SaveBackGround;
--------------------------------------------
Procedure SetTransparent(V: Boolean);
-------------------------------------------------------------
Procedure WMMove;
--------------------------------------------
Procedure WMUPDATETRANS;
-------------------------------------------------------------
property Transparent : Boolean
FBackChanged : Boolean;
FControl : TWinControl;
foldbitmap : THandle;
ftempbitmap : THandle;
ftempdc : THandle;
FTransparent : Boolean;
Constructor Create(AControl: TWinControl);
-------------------------------------------------------------
Destructor Destroy;
-------------------------------------------------------------
Procedure InternalPaint;
--------------------------------------------
Procedure KillTempDC;
------------------------------------------------------------------
Procedure SaveBackGround;
--------------------------------------------
Procedure SetTransparent(V: Boolean);
-------------------------------------------------------------
Procedure WMMove;
--------------------------------------------
Procedure WMUPDATETRANS;
-------------------------------------------------------------
property Transparent : Boolean
FBackChanged : Boolean;
FControl : TWinControl;
foldbitmap : THandle;
ftempbitmap : THandle;
ftempdc : THandle;
FTransparent : Boolean;