Class TMDIBackground (unit MDIBck)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

Create then background only if it's on a Form wich is MDI parent

procedure DrawBackground(DC: HDC);


procedure FillClientRect(ACanvas: TCanvas; const ARect: TRect);


procedure Paint;


procedure ClientWndProc(var Mesg: TMessage);


procedure SetBackgroundColor(const ANewColor: TColor);


procedure SetBevelWidth(BW: Integer);


Properties

property BackgroundColor : TColor


property BevelWidth : Integer


Events

event OnPaint : TMDIPaint


Variables

FBackgroundColor : TColor;


FBevelWidth : Integer;


FMDIBackgroundPaint : TMDIPaint;


FMDICanvas : TCanvas;


FNewClientProc : TFarProc;


FOldClientProc : TFarProc;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

Create then background only if it's on a Form wich is MDI parent


procedure DrawBackground(DC: HDC);


procedure FillClientRect(ACanvas: TCanvas; const ARect: TRect);


procedure Paint;


procedure ClientWndProc(var Mesg: TMessage);


procedure SetBackgroundColor(const ANewColor: TColor);


procedure SetBevelWidth(BW: Integer);


Properties


property BackgroundColor : TColor


property BevelWidth : Integer


Events


event OnPaint : TMDIPaint


Variables


FBackgroundColor : TColor;


FBevelWidth : Integer;


FMDIBackgroundPaint : TMDIPaint;


FMDICanvas : TCanvas;


FNewClientProc : TFarProc;


FOldClientProc : TFarProc;