mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 11:18:13 +02:00
pochecker: Fix LCLscaling issue of main form growing with every start.
git-svn-id: trunk@65128 -
This commit is contained in:
parent
368ac77838
commit
4f16d7a5d5
@ -520,6 +520,8 @@ begin
|
|||||||
ARect := FPoCheckerSettings.MainFormGeometry;
|
ARect := FPoCheckerSettings.MainFormGeometry;
|
||||||
if not IsDefaultRect(ARect) and IsValidRect(ARect) then
|
if not IsDefaultRect(ARect) and IsValidRect(ARect) then
|
||||||
begin
|
begin
|
||||||
|
ARect.Width := Scale96ToForm(ARect.Width);
|
||||||
|
ARect.Height := Scale96ToForm(ARect.Height);
|
||||||
ARect := FitToRect(ARect, Screen.WorkAreaRect);
|
ARect := FitToRect(ARect, Screen.WorkAreaRect);
|
||||||
BoundsRect := ARect;
|
BoundsRect := ARect;
|
||||||
end;
|
end;
|
||||||
@ -535,6 +537,7 @@ procedure TPoCheckerForm.SaveConfig;
|
|||||||
var
|
var
|
||||||
SL: TStringList;
|
SL: TStringList;
|
||||||
ID: TLangID;
|
ID: TLangID;
|
||||||
|
R: TRect;
|
||||||
begin
|
begin
|
||||||
FPoCheckerSettings.SelectDirectoryFilename := SelectDirectoryDialog.Filename;
|
FPoCheckerSettings.SelectDirectoryFilename := SelectDirectoryDialog.Filename;
|
||||||
//FPoCheckerSettings.LangFilterIndex := LangFilter.ItemIndex;
|
//FPoCheckerSettings.LangFilterIndex := LangFilter.ItemIndex;
|
||||||
@ -543,9 +546,18 @@ begin
|
|||||||
FPoCheckerSettings.TestTypes := GetTestTypesFromListBox;
|
FPoCheckerSettings.TestTypes := GetTestTypesFromListBox;
|
||||||
FPoCheckerSettings.MainFormWindowState := WindowState;
|
FPoCheckerSettings.MainFormWindowState := WindowState;
|
||||||
if (WindowState = wsNormal) then
|
if (WindowState = wsNormal) then
|
||||||
FPoCheckerSettings.MainFormGeometry := BoundsRect
|
begin
|
||||||
|
R := BoundsRect;
|
||||||
|
R.Width := ScaleFormTo96(R.Width);
|
||||||
|
R.Height := ScaleFormTo96(R.Height);
|
||||||
|
FPoCheckerSettings.MainFormGeometry := R;
|
||||||
|
end
|
||||||
else
|
else
|
||||||
FPoCheckerSettings.MainFormGeometry := Rect(RestoredLeft, RestoredTop, RestoredLeft + RestoredWidth, RestoredTop + RestoredHeight);
|
begin
|
||||||
|
R := Rect(0, 0, ScaleFormTo96(RestoredWidth), ScaleFormTo96(RestoredHeight));
|
||||||
|
OffsetRect(R, RestoredLeft, RestoredTop);
|
||||||
|
FPoCheckerSettings.MainFormGeometry := R;
|
||||||
|
end;
|
||||||
FPoCheckerSettings.MasterPoList := MasterPoListBox.Items;
|
FPoCheckerSettings.MasterPoList := MasterPoListBox.Items;
|
||||||
SL := GetSelectedMasterFiles;
|
SL := GetSelectedMasterFiles;
|
||||||
try
|
try
|
||||||
|
Loading…
Reference in New Issue
Block a user