1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
unit tiGUIINI;
{$mode objfpc}{$H+}
{
TODO:
* When TfpgForm supports FormState property, implement the remaining functions
}
interface
uses
tiINI
,gui_form
;
type
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;
implementation
uses
fpgfx
;
var
uGUIINI : TtiGUIINIFile;
function GGUIINI(const AFileName: string = ''): TtiGUIINIFile;
begin
if UGUIINI = nil then
UGUIINI := TtiGUIINIFile.CreateExt(AFileName);
result := UGUIINI;
end;
procedure TtiGUIINIFile.ReadFormState(AForm: TfpgForm; AHeight : integer = -1; AWidth : integer = -1);
var
LINISection : string;
LTop : integer;
LLeft : integer;
LHeight : integer;
LWidth : integer;
begin
Assert(AForm <> nil, 'pForm not assigned');
LINISection := AForm.Name + 'State';
// Read form position, -1 if not stored in registry
LTop := readInteger(LINISection, 'Top', -1);
LLeft := readInteger(LINISection, 'Left', -1);
// The form pos was found in the registr
if (LTop <> -1) and (LLeft <> -1) then
begin
AForm.Top := readInteger(LINISection, 'Top', AForm.Top);
AForm.Left := readInteger(LINISection, 'Left', AForm.Left);
AForm.WindowPosition := wpUser;
// No form pos in the registry, so default to screen center
end
else
begin
if Assigned(fpgApplication.MainForm) and (fpgApplication.MainForm <> AForm) then
AForm.WindowPosition := wpAuto
else
AForm.WindowPosition := wpScreenCenter;
end;
// Only set the form size if a bsSizable window
if AForm.Sizeable then
begin
if AHeight = -1 then
LHeight := AForm.Height
else
LHeight := AHeight;
if AWidth = -1 then
LWidth := AForm.Width
else
LWidth := AWidth;
AForm.Height := readInteger(LINISection, 'Height', LHeight);
AForm.Width := readInteger(LINISection, 'Width', LWidth);
end;
// AForm.WindowState := TWindowState(ReadInteger(LINISection, 'WindowState', ord(wsNormal)));
// If the form is off screen (positioned outside all monitor screens) then
// center the form on screen.
//{$IFDEF MSWINDOWS}
//if (AForm.FormStyle <> fsMDIChild) {$IFNDEF FPC} and tiFormOffScreen(AForm) {$ENDIF} then
//begin
//if Assigned(Application.MainForm) and (Application.MainForm <> AForm) then
//AForm.Position := poMainFormCenter
//else
//AForm.Position:= poScreenCenter;
//end;
//{$ENDIF MSWINDOWS}
end;
procedure TtiGUIINIFile.WriteFormState(AForm: TfpgForm);
var
LINISection: string;
begin
LINISection := AForm.Name + 'State';
// writeInteger(LINISection, 'WindowState', ord(AForm.WindowState));
// if AForm.WindowState = wsNormal then
// begin
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);
end;
// end;
end;
initialization
uGUIINI := nil;
finalization
uGUIINI.Free;
end.
|
