paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 22:56:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

pochecker: Alternate solution for growing-form problem.

Browse Source 
git-svn-id: trunk@65137 -
This commit is contained in:
wp 2021-05-26 09:06:27 +00:00
parent b9776c3805
commit 11f3b2e904
1 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/pochecker/pocheckermain.pp
View File

@ -118,6 +118,8 @@ end;
{ TPoCheckerForm } { TPoCheckerForm }
procedure TPoCheckerForm.FormCreate(Sender: TObject); procedure TPoCheckerForm.FormCreate(Sender: TObject);
var
MonPPI: Integer;
begin begin
FPoCheckerSettings := TPoCheckerSettings.Create; FPoCheckerSettings := TPoCheckerSettings.Create;
FPoCheckerSettings.LoadConfig; FPoCheckerSettings.LoadConfig;
@ -131,6 +133,12 @@ begin
FillTestListBox; FillTestListBox;
ClearStatusBar; ClearStatusBar;
PopulateLangFilter; PopulateLangFilter;
MonPPI := Monitor.PixelsPerInch;
AutoAdjustLayout(lapAutoAdjustForDPI, PixelsPerInch, MonPPI,
MulDiv(Width, MonPPI, PixelsPerInch),
MulDiv(Height, MonPPI, PixelsPerInch));
ApplyConfig; ApplyConfig;
LangFilter.Invalidate; //Items[0] may have been changed LangFilter.Invalidate; //Items[0] may have been changed
end; end;
@ -521,13 +529,7 @@ var
begin begin
ARect := FPoCheckerSettings.MainFormGeometry; ARect := FPoCheckerSettings.MainFormGeometry;
if not IsDefaultRect(ARect) and IsValidRect(ARect) then if not IsDefaultRect(ARect) and IsValidRect(ARect) then
begin BoundsRect := FitToRect(ARect, Screen.WorkAreaRect);
// Main form size is stored in config at 96ppi.
ARect.Width := Scale96ToForm(ARect.Width);
ARect.Height := Scale96ToForm(ARect.Height);
ARect := FitToRect(ARect, Screen.WorkAreaRect);
BoundsRect := ARect;
end;
SetTestTypeCheckBoxes(FPoCheckerSettings.TestTypes); SetTestTypeCheckBoxes(FPoCheckerSettings.TestTypes);
SelectDirectoryDialog.Filename := FPoCheckerSettings.SelectDirectoryFilename; SelectDirectoryDialog.Filename := FPoCheckerSettings.SelectDirectoryFilename;
Abbr := FPoCheckerSettings.LangFilterLanguageAbbr; Abbr := FPoCheckerSettings.LangFilterLanguageAbbr;
@ -540,7 +542,6 @@ 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;
@ -550,17 +551,9 @@ begin
FPoCheckerSettings.MainFormWindowState := WindowState; FPoCheckerSettings.MainFormWindowState := WindowState;
// Store main form size in config at 96 ppi to avoid double scaling // Store main form size in config at 96 ppi to avoid double scaling
if (WindowState = wsNormal) then if (WindowState = wsNormal) then
begin FPoCheckerSettings.MainFormGeometry := BoundsRect
R := BoundsRect;
R.Width := ScaleFormTo96(R.Width);
R.Height := ScaleFormTo96(R.Height);
end
else else
begin FPoCheckerSettings.MainFormGeometry := Rect(RestoredLeft, RestoredTop, RestoredLeft + RestoredWidth, RestoredTop + RestoredHeight);
R := Rect(0, 0, ScaleFormTo96(RestoredWidth), ScaleFormTo96(RestoredHeight));
OffsetRect(R, RestoredLeft, RestoredTop);
end;
FPoCheckerSettings.MainFormGeometry := R;
FPoCheckerSettings.MasterPoList := MasterPoListBox.Items; FPoCheckerSettings.MasterPoList := MasterPoListBox.Items;
SL := GetSelectedMasterFiles; SL := GetSelectedMasterFiles;
try try