paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix misplaced "Use max version" checkbox in TProjPackFilePropGui

Browse Source 
git-svn-id: trunk@63977 -
This commit is contained in:
wp 2020-10-08 19:36:41 +00:00
parent bd92f5ba2f
commit a37794f09f
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
packager/projpackfilepropgui.pas
View File

@ -274,6 +274,16 @@ begin
// dependency properties // dependency properties
// --------------------- // ---------------------
MinVersionEdit := TEdit.Create(fOwner);
MinVersionEdit.Parent := fOwner;
MinVersionEdit.AnchorSideLeft.Side := asrBottom;
MinVersionEdit.Left := 201;
MinVersionEdit.Top := 0;
MinVersionEdit.Width := 100;
MinVersionEdit.BorderSpacing.Left := 10;
MinVersionEdit.TabOrder := 3;
MinVersionEdit.OnChange := @MinMaxVersionEditChange;
UseMinVersionCheckBox := TCheckBox.Create(fOwner); UseMinVersionCheckBox := TCheckBox.Create(fOwner);
UseMinVersionCheckBox.Parent := fOwner; UseMinVersionCheckBox.Parent := fOwner;
UseMinVersionCheckBox.AnchorSideTop.Control := MinVersionEdit; UseMinVersionCheckBox.AnchorSideTop.Control := MinVersionEdit;
@ -285,16 +295,20 @@ begin
UseMinVersionCheckBox.Caption := lisPckEditMinimumVersion; UseMinVersionCheckBox.Caption := lisPckEditMinimumVersion;
UseMinVersionCheckBox.OnChange := @UseMinVersionCheckBoxChange; UseMinVersionCheckBox.OnChange := @UseMinVersionCheckBoxChange;
MinVersionEdit := TEdit.Create(fOwner);
MinVersionEdit.Parent := fOwner;
MinVersionEdit.AnchorSideLeft.Control := UseMinVersionCheckBox; MinVersionEdit.AnchorSideLeft.Control := UseMinVersionCheckBox;
MinVersionEdit.AnchorSideLeft.Side := asrBottom;
MinVersionEdit.Left := 201; MaxVersionEdit := TEdit.Create(fOwner);
MinVersionEdit.Top := 0; MaxVersionEdit.Parent := fOwner;
MinVersionEdit.Width := 100; MaxVersionEdit.AnchorSideLeft.Side := asrBottom;
MinVersionEdit.BorderSpacing.Left := 10; MaxVersionEdit.AnchorSideTop.Control := MinVersionEdit;
MinVersionEdit.TabOrder := 3; MaxVersionEdit.AnchorSideTop.Side := asrBottom;
MinVersionEdit.OnChange := @MinMaxVersionEditChange; MaxVersionEdit.Left := 204;
MaxVersionEdit.Top := 38;
MaxVersionEdit.Width := 100;
MaxVersionEdit.BorderSpacing.Left := 10;
MaxVersionEdit.BorderSpacing.Top := 2;
MaxVersionEdit.TabOrder := 5;
MaxVersionEdit.OnChange := @MinMaxVersionEditChange;
UseMaxVersionCheckBox := TCheckBox.Create(fOwner); UseMaxVersionCheckBox := TCheckBox.Create(fOwner);
UseMaxVersionCheckBox.Parent := fOwner; UseMaxVersionCheckBox.Parent := fOwner;
@ -307,19 +321,7 @@ begin
UseMaxVersionCheckBox.Caption := lisPckEditMaximumVersion; UseMaxVersionCheckBox.Caption := lisPckEditMaximumVersion;
UseMaxVersionCheckBox.OnChange := @UseMaxVersionCheckBoxChange; UseMaxVersionCheckBox.OnChange := @UseMaxVersionCheckBoxChange;
MaxVersionEdit := TEdit.Create(fOwner);
MaxVersionEdit.Parent := fOwner;
MaxVersionEdit.AnchorSideLeft.Control := UseMaxVersionCheckBox; MaxVersionEdit.AnchorSideLeft.Control := UseMaxVersionCheckBox;
MaxVersionEdit.AnchorSideLeft.Side := asrBottom;
MaxVersionEdit.AnchorSideTop.Control := MinVersionEdit;
MaxVersionEdit.AnchorSideTop.Side := asrBottom;
MaxVersionEdit.Left := 204;
MaxVersionEdit.Top := 38;
MaxVersionEdit.Width := 100;
MaxVersionEdit.BorderSpacing.Left := 10;
MaxVersionEdit.BorderSpacing.Top := 2;
MaxVersionEdit.TabOrder := 5;
MaxVersionEdit.OnChange := @MinMaxVersionEditChange;
ApplyDependencyButton := TButton.Create(fOwner); ApplyDependencyButton := TButton.Create(fOwner);
ApplyDependencyButton.Parent := fOwner; ApplyDependencyButton.Parent := fOwner;