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

IDE: improved layout of dependency properties part in project and package inspector dialogs, patch by Don Siders, issue #41066

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-08-10 01:07:19 +03:00
parent 7124597b46
commit c476c440bc
1 changed files with 18 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
packager/projpackfilepropgui.pas
View File

@ -276,61 +276,56 @@ begin
// --------------------- // ---------------------
MinVersionEdit := TEdit.Create(fOwner); MinVersionEdit := TEdit.Create(fOwner);
MinVersionEdit.Parent := fOwner; MinVersionEdit.Parent := fOwner;
MinVersionEdit.AnchorSideLeft.Side := asrBottom; MinVersionEdit.Left := 200;
MinVersionEdit.Left := 201; MinVersionEdit.Top := 4;
MinVersionEdit.Top := 0;
MinVersionEdit.Width := 100; MinVersionEdit.Width := 100;
MinVersionEdit.BorderSpacing.Left := 10; MinVersionEdit.BorderSpacing.Left := 6;
MinVersionEdit.TabOrder := 3; MinVersionEdit.TabOrder := 3;
MinVersionEdit.OnChange := @MinMaxVersionEditChange; MinVersionEdit.OnChange := @MinMaxVersionEditChange;
UseMinVersionCheckBox := TCheckBox.Create(fOwner); UseMinVersionCheckBox := TCheckBox.Create(fOwner);
UseMinVersionCheckBox.Parent := fOwner; UseMinVersionCheckBox.Parent := fOwner;
UseMinVersionCheckBox.Left := 6;
UseMinVersionCheckBox.AnchorSideTop.Control := MinVersionEdit; UseMinVersionCheckBox.AnchorSideTop.Control := MinVersionEdit;
UseMinVersionCheckBox.AnchorSideTop.Side := asrCenter; UseMinVersionCheckBox.AnchorSideTop.Side := asrCenter;
UseMinVersionCheckBox.Left := 6;
UseMinVersionCheckBox.Top := 6;
UseMinVersionCheckBox.Width := 179;
UseMinVersionCheckBox.TabOrder := 2; UseMinVersionCheckBox.TabOrder := 2;
UseMinVersionCheckBox.Caption := lisPckEditMinimumVersion; UseMinVersionCheckBox.Caption := lisPckEditMinimumVersion;
UseMinVersionCheckBox.OnChange := @UseMinVersionCheckBoxChange; UseMinVersionCheckBox.OnChange := @UseMinVersionCheckBoxChange;
MinVersionEdit.AnchorSideLeft.Control := UseMinVersionCheckBox;
MaxVersionEdit := TEdit.Create(fOwner); MaxVersionEdit := TEdit.Create(fOwner);
MaxVersionEdit.Parent := fOwner; MaxVersionEdit.Parent := fOwner;
MaxVersionEdit.AnchorSideLeft.Side := asrBottom;
MaxVersionEdit.AnchorSideTop.Control := MinVersionEdit;
MaxVersionEdit.AnchorSideTop.Side := asrBottom;
MaxVersionEdit.Left := 204;
MaxVersionEdit.Top := 38;
MaxVersionEdit.Width := 100; MaxVersionEdit.Width := 100;
MaxVersionEdit.BorderSpacing.Left := 10; MaxVersionEdit.BorderSpacing.Top := 4;
MaxVersionEdit.BorderSpacing.Top := 2; MaxVersionEdit.AnchorSideTop.Side := asrBottom;
MaxVersionEdit.AnchorSideTop.Control := MinVersionEdit;
MaxVersionEdit.AnchorSideLeft.Side := asrLeft;
MaxVersionEdit.AnchorSideLeft.Control := MinVersionEdit;
MaxVersionEdit.TabOrder := 5; MaxVersionEdit.TabOrder := 5;
MaxVersionEdit.OnChange := @MinMaxVersionEditChange; MaxVersionEdit.OnChange := @MinMaxVersionEditChange;
UseMaxVersionCheckBox := TCheckBox.Create(fOwner); UseMaxVersionCheckBox := TCheckBox.Create(fOwner);
UseMaxVersionCheckBox.Parent := fOwner; UseMaxVersionCheckBox.Parent := fOwner;
UseMaxVersionCheckBox.Left := 6;
UseMaxVersionCheckBox.AnchorSideTop.Control := MaxVersionEdit; UseMaxVersionCheckBox.AnchorSideTop.Control := MaxVersionEdit;
UseMaxVersionCheckBox.AnchorSideTop.Side := asrCenter; UseMaxVersionCheckBox.AnchorSideTop.Side := asrCenter;
UseMaxVersionCheckBox.Left := 6;
UseMaxVersionCheckBox.Top := 43;
UseMaxVersionCheckBox.Width := 182;
UseMaxVersionCheckBox.TabOrder := 4; UseMaxVersionCheckBox.TabOrder := 4;
UseMaxVersionCheckBox.Caption := lisPckEditMaximumVersion; UseMaxVersionCheckBox.Caption := lisPckEditMaximumVersion;
UseMaxVersionCheckBox.OnChange := @UseMaxVersionCheckBoxChange; UseMaxVersionCheckBox.OnChange := @UseMaxVersionCheckBoxChange;
MaxVersionEdit.AnchorSideLeft.Control := UseMaxVersionCheckBox; // anchor edit controls to the right edge of the longest check box caption
if Length(UseMinVersionCheckBox.Caption) > Length(UseMaxVersionCheckBox.Caption) then
MinVersionEdit.AnchorSideLeft.Control := UseMinVersionCheckBox
else
MinVersionEdit.AnchorSideLeft.Control := UseMaxVersionCheckBox;
MinVersionEdit.AnchorSideLeft.Side := asrRight;
ApplyDependencyButton := TButton.Create(fOwner); ApplyDependencyButton := TButton.Create(fOwner);
ApplyDependencyButton.Parent := fOwner; ApplyDependencyButton.Parent := fOwner;
ApplyDependencyButton.AnchorSideTop.Control := MaxVersionEdit;
ApplyDependencyButton.AnchorSideTop.Side := asrBottom;
ApplyDependencyButton.Left := 6; ApplyDependencyButton.Left := 6;
ApplyDependencyButton.Top := 80;
ApplyDependencyButton.AutoSize := True; ApplyDependencyButton.AutoSize := True;
ApplyDependencyButton.BorderSpacing.Top := 6; ApplyDependencyButton.BorderSpacing.Top := 6;
ApplyDependencyButton.AnchorSideTop.Control := MaxVersionEdit;
ApplyDependencyButton.AnchorSideTop.Side := asrBottom;
ApplyDependencyButton.TabOrder := 6; ApplyDependencyButton.TabOrder := 6;
ApplyDependencyButton.Caption := lisPckEditApplyChanges; ApplyDependencyButton.Caption := lisPckEditApplyChanges;
end; end;