Unit AppUtils

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997, 1998 Master-Bank } { } {

Classes

Functions

AppBroadcast -
AppTaskbarIcons -
FindForm -
FindShowForm -
GetDefaultIniData -
GetDefaultIniName -
GetDefaultIniRegKey -
GetDefaultSection -
GetUniqueFileNameInDir -
IniEraseSection -
IniReadInteger -
IniReadSections -
IniReadString - The following strings should not be localized
IniStrToStr -
IniWriteInteger -
IniWriteString -
InstantiateForm -
InternalRestoreGridLayout -
InternalRestoreMDIChildren -
InternalSaveGridLayout - Internal using utilities
InternalSaveMDIChildren -
ReadFormPlacement -
ReadFormPlacementReg - default maximize MDI main form
RestoreFormPlacement -
RestoreGridLayout -
RestoreGridLayoutReg -
RestoreMDIChildren -
RestoreMDIChildrenReg -
SaveFormPlacement -
SaveGridLayout -
SaveGridLayoutReg -
SaveMDIChildren -
SaveMDIChildrenReg -
ShowDialog -
StrToIniStr -
WriteFormPlacement -
WriteFormPlacementReg -

Types

Constants

Variables

DefCompanyName
RegUseAppTitle


Functions


procedure AppBroadcast(Msg, wParam: Longint; lParam: Longint);


procedure AppTaskbarIcons(AppOnly: Boolean);


function FindForm(FormClass: TFormClass): TForm;


function FindShowForm(FormClass: TFormClass; const Caption: string): TForm;


procedure GetDefaultIniData(Control: TControl; var IniFileName, Section: string {$IFDEF WIN32}; UseRegistry: Boolean {$ENDIF});


function GetDefaultIniName: string;


function GetDefaultIniRegKey: string;


function GetDefaultSection(Component: TComponent): string;


function GetUniqueFileNameInDir(const Path, FileNameMask: string): string;


procedure IniEraseSection(IniFile: TObject; const Section: string);


function IniReadInteger(IniFile: TObject; const Section, Ident: string; Default: Longint): Longint;


procedure IniReadSections(IniFile: TObject; Strings: TStrings);


function IniReadString(IniFile: TObject; const Section, Ident, Default: string): string;

The following strings should not be localized

function IniStrToStr(const Str: string): string;


procedure IniWriteInteger(IniFile: TObject; const Section, Ident: string; Value: Longint);


procedure IniWriteString(IniFile: TObject; const Section, Ident, Value: string);


function InstantiateForm(FormClass: TFormClass; var Reference): TForm;


procedure InternalRestoreGridLayout(Grid: TCustomGrid; IniFile: TObject);


procedure InternalRestoreMDIChildren(MainForm: TForm; IniFile: TObject);


procedure InternalSaveGridLayout(Grid: TCustomGrid; IniFile: TObject);

Internal using utilities

procedure InternalSaveMDIChildren(MainForm: TForm; IniFile: TObject);


procedure ReadFormPlacement(Form: TForm; IniFile: TIniFile; const Section: string; LoadState, LoadPosition: Boolean);


procedure ReadFormPlacementReg(Form: TForm; IniFile: TRegIniFile; const Section: string; LoadState, LoadPosition: Boolean);

default maximize MDI main form

procedure RestoreFormPlacement(Form: TForm; const IniFileName: string; UseRegistry: Boolean);


procedure RestoreGridLayout(Grid: TCustomGrid; IniFile: TIniFile);


procedure RestoreGridLayoutReg(Grid: TCustomGrid; IniFile: TRegIniFile);


procedure RestoreMDIChildren(MainForm: TForm; IniFile: TIniFile);


procedure RestoreMDIChildrenReg(MainForm: TForm; IniFile: TRegIniFile);


procedure SaveFormPlacement(Form: TForm; const IniFileName: string; UseRegistry: Boolean);


procedure SaveGridLayout(Grid: TCustomGrid; IniFile: TIniFile);


procedure SaveGridLayoutReg(Grid: TCustomGrid; IniFile: TRegIniFile);


procedure SaveMDIChildren(MainForm: TForm; IniFile: TIniFile);


procedure SaveMDIChildrenReg(MainForm: TForm; IniFile: TRegIniFile);


function ShowDialog(FormClass: TFormClass): Boolean;


function StrToIniStr(const Str: string): string;


procedure WriteFormPlacement(Form: TForm; IniFile: TIniFile; const Section: string);


procedure WriteFormPlacementReg(Form: TForm; IniFile: TRegIniFile; const Section: string);


Types


Constants


Variables

DefCompanyName : string = ''

RegUseAppTitle : Boolean = False