From ec8b655eac95e4d236674e74757f1a619b230e62 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 20 Jul 2014 16:14:14 +0000
Subject: [PATCH] On Double-Click, edit or add deetail element (property for
 class/record, argument for procedure)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3350 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/type_lib_edtr/ufrecordedit.lfm   |  1 +
 wst/trunk/type_lib_edtr/ufrecordedit.pas   | 10 ++++++++++
 wst/trunk/type_lib_edtr/uinterfaceedit.lfm |  1 +
 wst/trunk/type_lib_edtr/uinterfaceedit.pas | 10 ++++++++++
 wst/trunk/type_lib_edtr/uprocedit.lfm      |  1 +
 wst/trunk/type_lib_edtr/uprocedit.pas      | 10 ++++++++++
 6 files changed, 33 insertions(+)

diff --git a/wst/trunk/type_lib_edtr/ufrecordedit.lfm b/wst/trunk/type_lib_edtr/ufrecordedit.lfm
index 284fc121a..6b91be4c2 100644
--- a/wst/trunk/type_lib_edtr/ufrecordedit.lfm
+++ b/wst/trunk/type_lib_edtr/ufrecordedit.lfm
@@ -74,6 +74,7 @@ object fRecordEdit: TfRecordEdit
           RowSelect = True
           TabOrder = 0
           ViewStyle = vsReport
+          OnDblClick = edtFieldsDblClick
         end
       end
       object Button3: TButton
diff --git a/wst/trunk/type_lib_edtr/ufrecordedit.pas b/wst/trunk/type_lib_edtr/ufrecordedit.pas
index be5d97173..33611cb2b 100644
--- a/wst/trunk/type_lib_edtr/ufrecordedit.pas
+++ b/wst/trunk/type_lib_edtr/ufrecordedit.pas
@@ -75,6 +75,7 @@ type
     procedure actPropDeleteExecute(Sender : TObject);
     procedure actPropEditExecute(Sender : TObject);
     procedure actPropEditUpdate(Sender : TObject);
+    procedure edtFieldsDblClick(Sender : TObject);
     procedure PCChange(Sender : TObject);
   private
     FUpdateType : TEditType;
@@ -160,6 +161,15 @@ begin
   TAction(Sender).Enabled := Assigned(edtFields.ItemFocused);
 end;
 
+procedure TfRecordEdit.edtFieldsDblClick(Sender : TObject);
+begin
+  if actPropEdit.Enabled then begin
+    actPropEdit.Execute();
+  end else if actPropAdd.Enabled then begin
+    actPropAdd.Execute();
+  end;
+end;
+
 procedure TfRecordEdit.PCChange(Sender : TObject);
 begin
   if ( PC.ActivePage = tsSourceXSD ) then begin
diff --git a/wst/trunk/type_lib_edtr/uinterfaceedit.lfm b/wst/trunk/type_lib_edtr/uinterfaceedit.lfm
index 348d8e9e2..7711b0a6d 100644
--- a/wst/trunk/type_lib_edtr/uinterfaceedit.lfm
+++ b/wst/trunk/type_lib_edtr/uinterfaceedit.lfm
@@ -95,6 +95,7 @@ object fInterfaceEdit: TfInterfaceEdit
           PopupMenu = PopupMenu1
           ReadOnly = True
           TabOrder = 0
+          OnDblClick = trvMethodsDblClick
           Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
         end
       end
diff --git a/wst/trunk/type_lib_edtr/uinterfaceedit.pas b/wst/trunk/type_lib_edtr/uinterfaceedit.pas
index 774c4fb99..40ad9a086 100644
--- a/wst/trunk/type_lib_edtr/uinterfaceedit.pas
+++ b/wst/trunk/type_lib_edtr/uinterfaceedit.pas
@@ -60,6 +60,7 @@ type
     procedure actUpdateOperationExecute(Sender: TObject);
     procedure actUpdateOperationUpdate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure trvMethodsDblClick(Sender : TObject);
   private
     FUpdateType : TEditType;
     FObject : TPasClassType;
@@ -125,6 +126,15 @@ begin
   trvMethods.Images := DM.IM;
 end;
 
+procedure TfInterfaceEdit.trvMethodsDblClick(Sender : TObject);
+begin
+  if actUpdateOperation.Enabled then begin
+    actUpdateOperation.Execute();
+  end else if actNewMethod.Enabled then begin
+    actNewMethod.Execute();
+  end;
+end;
+
 procedure TfInterfaceEdit.actOKExecute(Sender: TObject);
 begin
   ModalResult := mrOK;
diff --git a/wst/trunk/type_lib_edtr/uprocedit.lfm b/wst/trunk/type_lib_edtr/uprocedit.lfm
index f7c70aa35..26ebe3628 100644
--- a/wst/trunk/type_lib_edtr/uprocedit.lfm
+++ b/wst/trunk/type_lib_edtr/uprocedit.lfm
@@ -74,6 +74,7 @@ object fProcEdit: TfProcEdit
           RowSelect = True
           TabOrder = 0
           ViewStyle = vsReport
+          OnDblClick = edtParamsDblClick
         end
       end
       object edtFunction: TCheckBox
diff --git a/wst/trunk/type_lib_edtr/uprocedit.pas b/wst/trunk/type_lib_edtr/uprocedit.pas
index 6cb80e8ca..6b57926e8 100644
--- a/wst/trunk/type_lib_edtr/uprocedit.pas
+++ b/wst/trunk/type_lib_edtr/uprocedit.pas
@@ -55,6 +55,7 @@ type
     procedure actUpdateArgumentUpdate(Sender: TObject);
     procedure edtFunctionClick(Sender: TObject);
     procedure edtFunctionEditingDone(Sender: TObject);
+    procedure edtParamsDblClick(Sender : TObject);
   private
     FUpdateType : TEditType;
     FObject : TPasProcedure;
@@ -176,6 +177,15 @@ begin
   edtResultType.Enabled := edtFunction.Checked;
 end;
 
+procedure TfProcEdit.edtParamsDblClick(Sender : TObject);
+begin
+  if actUpdateArgument.Enabled then begin
+    actUpdateArgument.Execute();
+  end else if actNewArg.Enabled then begin
+    actNewArg.Execute();
+  end;
+end;
+
 procedure TfProcEdit.PrepareResultCombo();
 begin
   edtResultType.Items.BeginUpdate();