From f5c0bf81ebacdaae7c7416010319809fb4a00ed2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 31 Aug 2016 02:45:59 +0200
Subject: [PATCH] libman, register from code.dlang, show package description as
 hint

---
 src/ce_libmaneditor.pas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index f4ed7386..de2e4f3e 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -24,6 +24,7 @@ type
     procedure getList(sender: TObject);
     procedure fillList;
     procedure btnTagCLick(sender: TObject);
+    procedure updateHint(sender: TObject);
   public
     class function showAndWait(out pName, pVersion: string): TModalResult; static;
     class destructor classDtor;
@@ -214,6 +215,9 @@ begin
   cbb.Align := alClient;
   cbb.BorderSpacing.Around := 6;
   cbb.Sorted:= true;
+  cbb.ShowHint:=true;
+  cbb.OnSelect:= @updateHint;
+  cbb.OnCloseUp:=@updateHint;;
 
   bsv := TSpeedButton.Create(self);
   bsv.Parent := self;
@@ -339,6 +343,19 @@ begin
   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;
 var
   frm: TDubPackageQueryForm;