| Class TMDIWallpaper (unit MDIWallp) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CalcHorzOffset(const Message: TWMHScroll);
procedure CalcVertOffset(const Message: TWMVScroll);
procedure ClientInvalidate;
procedure ClientWndProc(var Message: TMessage);
procedure ConnectToClient;
function GetClient: TForm;
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;| Properties |
property Bitmap : TBitmap
property Transparent : Boolean
property TransparentColor : TColor
property TransparentMode : TTransparentMode
property Client : TForm
property ClientHandle : hWnd| Events |
| Variables |
FBitmap : TBitmap;
FClientInstance : Pointer;
FDefClientProc : TFarProc;
FHorzOffset : Integer;
FTransparent : Boolean;
FTransparentColor : TColor;
FTransparentMode : TTransparentMode;
FVertOffset : Integer;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
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;| Properties |
property Bitmap : TBitmap
property Transparent : Boolean
property TransparentColor : TColor
property TransparentMode : TTransparentMode
property Client : TForm
property ClientHandle : hWnd| Events |
| Variables |
FBitmap : TBitmap;
FClientInstance : Pointer;
FDefClientProc : TFarProc;
FHorzOffset : Integer;
FTransparent : Boolean;
FTransparentColor : TColor;
FTransparentMode : TTransparentMode;
FVertOffset : Integer;