Class TIDSFormAssist (unit FormAsst)

Inherits from

TComponent

Constructors


constructor Create(cmpOwner : TComponent);

Pass the message on


Functions

procedure WallpaperPaint(hwndPaint : HWND);

Handles the repainting

Start paint processing


destructor Destroy;

Add ourself to the global control list

procedure Loaded;

Write the Left, Top, Width and Height properties to the INI file

procedure LayoutRestore;

Internal routines } { Load the form's layout from the INI file

Remove ourself from the global control list


procedure LayoutSave;

Save the form's layout to an INI file

Read layout from INI file


procedure SetBackColor(Value: TColor);

Repaint

procedure SetResize (Value: Boolean);

Repaint

procedure SetWallpaper(bmpNew : TBitmap);

Field modification routines

Install the event handlers


procedure SetWallpaperMode(wmNew : TWallpaperMode);

Repaint

procedure WallpaperChange(Sender : TObject);

Handles a change to the wallpaper

Repaint


function WallpaperCreate : TBitmap;

Creates new wallpaper object

Assign new bitmap and repaint screen


procedure WallpaperInit;

Initialises wallpaper handling

Set the OnChange handler


procedure WallpaperPaintCentre(dcForm : HDC; rectWnd : TRect; iBmpW,iBmpH : Integer);

Centres the wallpaper

Move to the next row


procedure WallpaperPaintTile(dcForm : HDC; rectWnd : TRect; iBmpW,iBmpH : Integer);

Tiles the wallpaper

Check if the user has hooked the paint event


Properties

property BackColor : TColor


property Options : TFormAssistOptions

Determines which form assistance options to use

property Resize : Boolean


property Wallpaper : TBitmap

Wallpaper holds the bitmap which stores the background bitmap

property WallpaperMode : TWallpaperMode

WallpaperMode handles whether the wallpaper is tiled or centred

Events

event OnWallpaperPaint : TOnWallpaperPaintEvent


Variables

blPaint : Boolean;

Whether we should be painting

blRecurs : Boolean;

Internal variables } { Used to stop recursion

FBackColor : TColor;


FOnWallpaperPaint : TOnWallpaperPaintEvent;


FOptions : TFormAssistOptions;

Internal field storage

FResize : Boolean;


frmOwner : TForm;

This component's owner form

FWallpaper : TBitmap;


FWallpaperMode : TWallpaperMode;


hwndOwner : HWND;

The handle of the owner form

pPrevWndProc : TFarProc;

Pointer to previous window handler

sINIFile : String;

INI file for layout storage


Constructors


constructor Create(cmpOwner : TComponent);

Pass the message on


Functions


procedure WallpaperPaint(hwndPaint : HWND);

Handles the repainting

Start paint processing


destructor Destroy;

Add ourself to the global control list


procedure Loaded;

Write the Left, Top, Width and Height properties to the INI file


procedure LayoutRestore;

Internal routines } { Load the form's layout from the INI file

Remove ourself from the global control list


procedure LayoutSave;

Save the form's layout to an INI file

Read layout from INI file


procedure SetBackColor(Value: TColor);

Repaint


procedure SetResize (Value: Boolean);

Repaint


procedure SetWallpaper(bmpNew : TBitmap);

Field modification routines

Install the event handlers


procedure SetWallpaperMode(wmNew : TWallpaperMode);

Repaint


procedure WallpaperChange(Sender : TObject);

Handles a change to the wallpaper

Repaint


function WallpaperCreate : TBitmap;

Creates new wallpaper object

Assign new bitmap and repaint screen


procedure WallpaperInit;

Initialises wallpaper handling

Set the OnChange handler


procedure WallpaperPaintCentre(dcForm : HDC; rectWnd : TRect; iBmpW,iBmpH : Integer);

Centres the wallpaper

Move to the next row


procedure WallpaperPaintTile(dcForm : HDC; rectWnd : TRect; iBmpW,iBmpH : Integer);

Tiles the wallpaper

Check if the user has hooked the paint event


Properties


property BackColor : TColor


property Options : TFormAssistOptions

Determines which form assistance options to use


property Resize : Boolean


property Wallpaper : TBitmap

Wallpaper holds the bitmap which stores the background bitmap


property WallpaperMode : TWallpaperMode

WallpaperMode handles whether the wallpaper is tiled or centred


Events


event OnWallpaperPaint : TOnWallpaperPaintEvent


Variables


blPaint : Boolean;

Whether we should be painting


blRecurs : Boolean;

Internal variables } { Used to stop recursion


FBackColor : TColor;


FOnWallpaperPaint : TOnWallpaperPaintEvent;


FOptions : TFormAssistOptions;

Internal field storage


FResize : Boolean;


frmOwner : TForm;

This component's owner form


FWallpaper : TBitmap;


FWallpaperMode : TWallpaperMode;


hwndOwner : HWND;

The handle of the owner form


pPrevWndProc : TFarProc;

Pointer to previous window handler


sINIFile : String;

INI file for layout storage