Class TMDIWallpaper (unit MDIWallp)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

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;


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;