Class TMDIWallpaper (unit MDIWallp) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
destructor Destroy;
commented out to make this work with non-MDI windows, too:
else if TForm(AOwner).
procedure CalcHorzOffset(const Message: TWMHScroll);
procedure CalcVertOffset(const Message: TWMVScroll);
procedure ClientInvalidate;
procedure ClientWndProc(var Message: TMessage);
procedure ConnectToClient;
Falls jemand Anderer es wagt, in dreister Mißachtung der
Maximen objektorientierter Programmierung ebenfalls in
den Innereien des Clients herumzupfuschen (WIR dürfen das),
ist hier Gelegenheit, das ans Licht zu bringen:
FREE translation:
If anybody else dares to tamper with the Client (WE are allowed to do
so-), we'll find it out NOW:
function GetClient: TForm;
otherwise eventually background color won't appear correctly {$ENDIF
function GetClientHandle: hWnd;
function GetTransparentColor: TColor;
procedure SetBitmap(Value: TBitmap);
procedure SetTransparent(Value: Boolean);
procedure SetTransparentColor(Value: TColor);
procedure SetTransparentMode(Value: TTransparentMode);
function TransparentColorStored: Boolean;
property Bitmap : TBitmap
property Transparent : Boolean
property TransparentColor : TColor
property TransparentMode : TTransparentMode
property Client : TForm
property ClientHandle : hWnd
FBitmap : TBitmap;
FClientInstance : Pointer;
FDefClientProc : TFarProc;
FHorzOffset : Integer;
FTransparent : Boolean;
FTransparentColor : TColor;
FTransparentMode : TTransparentMode;
FVertOffset : Integer;
constructor Create(AOwner: TComponent);
destructor Destroy;
commented out to make this work with non-MDI windows, too:
else if TForm(AOwner).FormStyle <> fsMDIForm then
Error('This is no MDI frame window')
procedure CalcHorzOffset(const Message: TWMHScroll);
procedure CalcVertOffset(const Message: TWMVScroll);
procedure ClientInvalidate;
procedure ClientWndProc(var Message: TMessage);
procedure ConnectToClient;
Falls jemand Anderer es wagt, in dreister Mißachtung der
Maximen objektorientierter Programmierung ebenfalls in
den Innereien des Clients herumzupfuschen (WIR dürfen das),
ist hier Gelegenheit, das ans Licht zu bringen:
FREE translation:
If anybody else dares to tamper with the Client (WE are allowed to do
so-), we'll find it out NOW:
function GetClient: TForm;
otherwise eventually background color won't appear correctly {$ENDIF
function GetClientHandle: hWnd;
function GetTransparentColor: TColor;
procedure SetBitmap(Value: TBitmap);
procedure SetTransparent(Value: Boolean);
procedure SetTransparentColor(Value: TColor);
procedure SetTransparentMode(Value: TTransparentMode);
function TransparentColorStored: Boolean;
property Bitmap : TBitmap
property Transparent : Boolean
property TransparentColor : TColor
property TransparentMode : TTransparentMode
property Client : TForm
property ClientHandle : hWnd
FBitmap : TBitmap;
FClientInstance : Pointer;
FDefClientProc : TFarProc;
FHorzOffset : Integer;
FTransparent : Boolean;
FTransparentColor : TColor;
FTransparentMode : TTransparentMode;
FVertOffset : Integer;