paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 22:49:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Allow a double click in packages listbox to add requirement and close dialog

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-22 10:41:07 +01:00
parent e7ec0a6d3d
commit 55cc226024
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packager/addpkgdependencydlg.lfm
View File

@ -63,6 +63,7 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
ItemHeight = 0
MultiSelect = True
OnDrawItem = DependPkgNameListBoxDrawItem
OnDblClick = DependPkgNameListBoxDblClick
OnSelectionChange = DependPkgNameListBoxSelectionChange
Options = []
Style = lbOwnerDrawFixed

6
packager/addpkgdependencydlg.pas
View File

@ -42,6 +42,7 @@ type
procedure cbLocalPkgChange(Sender: TObject);
procedure cbOnlinePkgChange(Sender: TObject);
procedure CloseButtonClick(Sender: TObject);
procedure DependPkgNameListBoxDblClick(Sender: TObject);
procedure DependPkgNameListBoxDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
procedure DependPkgNameListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
@ -262,6 +263,11 @@ begin
end;
end;
procedure TAddPkgDependencyDialog.DependPkgNameListBoxDblClick(Sender: TObject);
begin
OKButtonClick(Self);
end;
procedure TAddPkgDependencyDialog.AddUniquePackagesToList(APackageID: TLazPackageID);
begin
if (APackageID.IDAsString<>fProjPack.IDAsString) and (fPackages.Find(APackageID)=Nil) then