paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 19:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Change TIDEDialogLayoutList.ApplyLayout UseAsMin parameter default from True to False. Clean calls in code accordingly.

Browse Source 
git-svn-id: trunk@55988 -
This commit is contained in:
juha 2017-10-06 10:20:45 +00:00
parent 60b135d29f
commit d25418e28d
7 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/idewindowintf.pas
View File

@ -74,7 +74,7 @@ type
procedure Assign(Source: TIDEDialogLayoutList);
procedure ApplyLayout(ADialog: TControl;
DefaultWidth, DefaultHeight: integer;
UseAsMin: boolean = true);
UseAsMin: boolean = false);
procedure ApplyLayout(ADialog: TControl);
procedure SaveLayout(ADialog: TControl);
procedure Clear;

2
ide/ideoptionsdlg.pas
View File

@ -160,7 +160,7 @@ begin
SetBuildModeVisibility(False);
UseBuildModeCheckBox.Caption:=lisBuildModes;
IDEDialogLayoutList.ApplyLayout(Self, Width, Height);
IDEDialogLayoutList.ApplyLayout(Self);
Caption := dlgIDEOptions;
ButtonPanel.OKButton.Caption := lisMenuOk;
ButtonPanel.OKButton.OnClick := @OKButtonClick;

2
ide/newdialog.pas
View File

@ -361,7 +361,7 @@ end;
procedure TNewOtherDialog.FormCreate(Sender: TObject);
begin
IDEDialogLayoutList.ApplyLayout(Self, 750, 410, False);
IDEDialogLayoutList.ApplyLayout(Self, 750, 410);
end;
procedure TNewOtherDialog.SetupComponents;

2
ide/procedurelist.pas
View File

@ -669,7 +669,7 @@ begin
PopulateGrid;
StatusBar.Panels[0].Text := self.MainFilename;
IDEDialogLayoutList.ApplyLayout(Self, 950, 680, false);
IDEDialogLayoutList.ApplyLayout(Self, 950, 680);
end;
procedure TProcedureListForm.FormDestroy(Sender: TObject);

2
ide/useunitdlg.pas
View File

@ -185,7 +185,7 @@ end;
procedure TUseUnitDialog.FormCreate(Sender: TObject);
begin
// Internationalization
IDEDialogLayoutList.ApplyLayout(Self, 500, 460, False);
IDEDialogLayoutList.ApplyLayout(Self, 500, 460);
AllUnitsCheckBox.Caption := dlgShowAllUnits;
SectionRadioGroup.Caption := dlgInsertSection;
SectionRadioGroup.Items.Clear;

2
packager/installpkgsetdlg.pas
View File

@ -193,7 +193,7 @@ end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogCreate(Sender: TObject);
begin
IDEDialogLayoutList.ApplyLayout(Self,Width,Height);
IDEDialogLayoutList.ApplyLayout(Self);
InstallTreeView.Images := IDEImages.Images_16;
AvailableTreeView.Images := IDEImages.Images_16;

2
packager/interpkgconflictfiles.pas
View File

@ -370,7 +370,7 @@ var
aSize: TSize;
Img: TBitmap;
begin
IDEDialogLayoutList.ApplyLayout(Self,Width,Height);
IDEDialogLayoutList.ApplyLayout(Self);
DeleteSelectedFilesButton:=TButton.Create(Self);
with DeleteSelectedFilesButton do