Class TIDSFormAssist (unit FormAsst) |
Inherits from
TComponent
constructor Create(cmpOwner : TComponent);
- Pass the message on
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
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
event OnWallpaperPaint : TOnWallpaperPaintEvent
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
constructor Create(cmpOwner : TComponent);
Pass the message on
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
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
event OnWallpaperPaint : TOnWallpaperPaintEvent
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