GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: form position is not changed when no settings are available yet

Browse Source
This commit is contained in:
Mark van Renswoude 2005-03-14 19:17:34 +00:00
parent 396934b857
commit 8374bc2fee
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
X2UtSettingsForm.pas
View File

@ -26,16 +26,19 @@ procedure ReadFormPos(const AFactory: TX2SettingsFactory;
begin
with AFactory[ASection] do
try
if ValueExists('Left') then
begin
if ReadBool('Maximized', (AForm.WindowState = wsMaximized)) then
AForm.WindowState := wsMaximized
else with THackCustomForm(AForm) do begin
WindowState := wsNormal;
Position := poDefaultPosOnly;
Position := poDesigned;
Left := ReadInteger('Left', Left);
Top := ReadInteger('Top', Top);
Width := ReadInteger('Width', Width);
Height := ReadInteger('Height', Height);
end;
end;
finally
Free();
end;