*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997, 1998 Master-Bank } { } {
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 -
DefCompanyName
RegUseAppTitle
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);
DefCompanyName : string = ''
RegUseAppTitle : Boolean = False