forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

libman, register from code.dlang, show package description as hint

This commit is contained in:
Basile Burg 2016-08-31 02:45:59 +02:00
parent 82bc48a16a
commit f5c0bf81eb
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_libmaneditor.pas
View File

@ -24,6 +24,7 @@ type
procedure getList(sender: TObject); procedure getList(sender: TObject);
procedure fillList; procedure fillList;
procedure btnTagCLick(sender: TObject); procedure btnTagCLick(sender: TObject);
procedure updateHint(sender: TObject);
public public
class function showAndWait(out pName, pVersion: string): TModalResult; static; class function showAndWait(out pName, pVersion: string): TModalResult; static;
class destructor classDtor; class destructor classDtor;
@ -214,6 +215,9 @@ begin
cbb.Align := alClient; cbb.Align := alClient;
cbb.BorderSpacing.Around := 6; cbb.BorderSpacing.Around := 6;
cbb.Sorted:= true; cbb.Sorted:= true;
cbb.ShowHint:=true;
cbb.OnSelect:= @updateHint;
cbb.OnCloseUp:=@updateHint;;
bsv := TSpeedButton.Create(self); bsv := TSpeedButton.Create(self);
bsv.Parent := self; bsv.Parent := self;
@ -339,6 +343,19 @@ begin
end; end;
end; end;
procedure TDubPackageQueryForm.updateHint(sender: TObject);
var
jsn: TJSONData;
begin
if (cbb.ItemIndex <> -1) and cbb.Items.Objects[cbb.ItemIndex].isNotNil then
try
jsn := TJSONData(cbb.Items.Objects[cbb.ItemIndex]);
jsn := jsn.FindPath('description');
cbb.Hint:= jsn.AsString;
except
end;
end;
class function TDubPackageQueryForm.showAndWait(out pName, pVersion: string): TModalResult; class function TDubPackageQueryForm.showAndWait(out pName, pVersion: string): TModalResult;
var var
frm: TDubPackageQueryForm; frm: TDubPackageQueryForm;