diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-03 14:23:45 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-03 14:23:45 +0000 |
commit | 926d83023264ed683f88b933e690708d63675aef (patch) | |
tree | dd63f491297ae406be6a3697e3dd5d454c16d7cb /extras | |
parent | 5a5f6a6152d08cdd51c6a61f3b55e463904e20e4 (diff) | |
download | fpGUI-926d83023264ed683f88b933e690708d63675aef.tar.xz |
* Minor fix in the MessageDialogs
* Debugging INI support for tiOPF.
* Instructions on how to compile fpGUI with the Free Pascal Text IDE.
Diffstat (limited to 'extras')
-rw-r--r-- | extras/tiopf/gui/tiGUIINI.pas | 49 |
1 files changed, 28 insertions, 21 deletions
diff --git a/extras/tiopf/gui/tiGUIINI.pas b/extras/tiopf/gui/tiGUIINI.pas index 6d1ff723..70b86d7b 100644 --- a/extras/tiopf/gui/tiGUIINI.pas +++ b/extras/tiopf/gui/tiGUIINI.pas @@ -15,13 +15,14 @@ uses type - TtiGUIINIFile = class(TtiINIFile) + TtiGuiINIFile = class(TtiINIFile) public procedure ReadFormState(AForm: TfpgForm; AHeight: integer = -1; AWidth: integer = -1); procedure WriteFormState(AForm : TfpgForm); end; -function GGUIINI(const AFileName: string = ''): TtiGUIINIFile; +function gGUIINI(const AFileName: string = ''): TtiGuiINIFile; + implementation uses @@ -29,25 +30,28 @@ uses ; var - uGUIINI : TtiGUIINIFile; + uGuiINI : TtiGuiINIFile; -function GGUIINI(const AFileName: string = ''): TtiGUIINIFile; +function gGUIINI(const AFileName: string = ''): TtiGuiINIFile; begin - if UGUIINI = nil then - UGUIINI := TtiGUIINIFile.CreateExt(AFileName); - result := UGUIINI; + if uGuiINI = nil then + begin + uGuiINI := TtiGuiINIFile.CreateExt(AFileName); + uGuiINI.CacheUpdates := False; + end; + result := uGuiINI; end; -procedure TtiGUIINIFile.ReadFormState(AForm: TfpgForm; AHeight : integer = -1; AWidth : integer = -1); +procedure TtiGuiINIFile.ReadFormState(AForm: TfpgForm; AHeight : integer = -1; AWidth : integer = -1); var - LINISection : string; - LTop : integer; - LLeft : integer; - LHeight : integer; - LWidth : integer; + LINISection: string; + LTop: integer; + LLeft: integer; + LHeight: integer; + LWidth: integer; begin - Assert(AForm <> nil, 'pForm not assigned'); + Assert(AForm <> nil, 'AForm not assigned'); LINISection := AForm.Name + 'State'; // Read form position, -1 if not stored in registry LTop := readInteger(LINISection, 'Top', -1); @@ -96,7 +100,7 @@ begin //{$ENDIF MSWINDOWS} end; -procedure TtiGUIINIFile.WriteFormState(AForm: TfpgForm); +procedure TtiGuiINIFile.WriteFormState(AForm: TfpgForm); var LINISection: string; begin @@ -104,21 +108,24 @@ begin // writeInteger(LINISection, 'WindowState', ord(AForm.WindowState)); // if AForm.WindowState = wsNormal then // begin - writeInteger(LINISection, 'Top', AForm.Top); - writeInteger(LINISection, 'Left', AForm.Left); + WriteInteger(LINISection, 'Top', AForm.Top); + WriteInteger(LINISection, 'Left', AForm.Left); if AForm.Sizeable then begin - writeInteger(LINISection, 'Height', AForm.Height); - WriteInteger(LINISection, 'Width', AForm.Width); + WriteInteger(LINISection, 'Height', AForm.Height); + WriteInteger(LINISection, 'Width', AForm.Width); end; // end; + + writeln('....LINISection = ', LINISection, ' to file: ', FileName); + writeln('....WriteFormState. DONE'); end; initialization - uGUIINI := nil; + uGuiINI := nil; finalization - uGUIINI.Free; + uGuiINI.Free; end. |