| Class TIDSFormAssist (unit FormAsst) |
TComponent
| Constructors |
constructor Create(cmpOwner : TComponent);| Functions |
procedure WallpaperPaint(hwndPaint : HWND);Start paint processing
destructor Destroy;
procedure Loaded;
procedure LayoutRestore;Remove ourself from the global control list
procedure LayoutSave;Read layout from INI file
procedure SetBackColor(Value: TColor);
procedure SetResize (Value: Boolean);
procedure SetWallpaper(bmpNew : TBitmap);Install the event handlers
procedure SetWallpaperMode(wmNew : TWallpaperMode);
procedure WallpaperChange(Sender : TObject);Repaint
function WallpaperCreate : TBitmap;Assign new bitmap and repaint screen
procedure WallpaperInit;Set the OnChange handler
procedure WallpaperPaintCentre(dcForm : HDC; rectWnd : TRect; iBmpW,iBmpH : Integer);Move to the next row
procedure WallpaperPaintTile(dcForm : HDC; rectWnd : TRect; iBmpW,iBmpH : Integer);Check if the user has hooked the paint event
| Properties |
property BackColor : TColor
property Options : TFormAssistOptions
property Resize : Boolean
property Wallpaper : TBitmap
property WallpaperMode : TWallpaperMode| Events |
event OnWallpaperPaint : TOnWallpaperPaintEvent| Variables |
blPaint : Boolean;
blRecurs : Boolean;
FBackColor : TColor;
FOnWallpaperPaint : TOnWallpaperPaintEvent;
FOptions : TFormAssistOptions;
FResize : Boolean;
frmOwner : TForm;
FWallpaper : TBitmap;
FWallpaperMode : TWallpaperMode;
hwndOwner : HWND;
pPrevWndProc : TFarProc;
sINIFile : String;| 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 : TFormAssistOptionsDetermines which form assistance options to use
property Resize : Boolean
property Wallpaper : TBitmapWallpaper holds the bitmap which stores the background bitmap
property WallpaperMode : TWallpaperModeWallpaperMode 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