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

Fixed: normal window position saved when maximized

Browse Source
This commit is contained in:
Mark van Renswoude 2005-11-29 14:00:54 +00:00
parent bbe4c1822a
commit 796b67418e
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
X2UtSettingsForm.pas
View File

@ -60,16 +60,22 @@ end;
procedure WriteFormPos(const AFactory: TX2SettingsFactory;
const ASection: String; const AForm: TCustomForm);
var
pPlacement: TWindowPlacement;
begin
with AFactory[ASection] do
try
WriteBool('Maximized', (AForm.WindowState = wsMaximized));
if AForm.WindowState <> wsMaximized then
with THackCustomForm(AForm) do begin
pPlacement.length := SizeOf(TWindowPlacement);
if GetWindowPlacement(AForm.Handle, @pPlacement) <> 0 then
with pPlacement.rcNormalPosition do
begin
WriteInteger('Left', Left);
WriteInteger('Top', Top);
WriteInteger('Width', Width);
WriteInteger('Height', Height);
WriteInteger('Width', Right - Left);
WriteInteger('Height', Bottom - Top);
end;
finally
Free();