| Class TMDIBackground (unit MDIBck) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
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;