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

21
X2UtSettingsForm.pas
View File

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