Componentlist TTreeView controls are not controlled by keyboard arrow keys.

Please review attached patch.

Sandro Cumerlato
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150310/6a7c20f3/attachment.html> -------------- next part --------------
Index: ide/componentlist.lfm
=================================================================== --- ide/componentlist.lfm (revisione 48251)
+++ ide/componentlist.lfm (copia locale)
@@ -59,7 +59,7 @@
ShowLines = False
ShowRoot = False
TabOrder = 0
- OnClick = ComponentsClick
+ OnChange = ComponentsChange
OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress
Options = [tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoToolTips] @@ -95,7 +95,7 @@
RowSelect = True
ShowLines = False
TabOrder = 0
- OnClick = ComponentsClick
+ OnChange = ComponentsChange
OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress
Options = [tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowRoot, tvoToolTips] @@ -131,7 +131,7 @@
RightClickSelect = True
RowSelect = True
TabOrder = 0
- OnClick = ComponentsClick
+ OnChange = ComponentsChange
OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress
Options = [tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] Index: ide/componentlist.pas
=================================================================== --- ide/componentlist.pas (revisione 48251)
+++ ide/componentlist.pas (copia locale)
@@ -71,7 +71,7 @@

     procedure miExpandClick(Sender: TObject);
     procedure OKButtonClick(Sender: TObject);
     procedure ComponentsDblClick(Sender: TObject);

- procedure ComponentsClick(Sender: TObject);
+ procedure ComponentsChange(Sender: TObject; Node: TTreeNode);

     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure pmCollapseExpandPopup(Sender: TObject);
     procedure TreeFilterEdAfterFilter(Sender: TObject);

@@ -347,7 +347,7 @@

   OKButtonClick(nil);       // Select and close this form

end;

-procedure TComponentListForm.ComponentsClick(Sender: TObject);
+procedure TComponentListForm.ComponentsChange(Sender: TObject; Node: TTreeNode);
 // This is used for all 3 treeviews
 var
   AComponent: TRegisteredComponent;

Sandro Cumerlato wrote

Componentlist TTreeView controls are not controlled by keyboard arrow keys. Please review attached patch.

Applied, thanks.

Juha