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

@@ -74,6 +74,7 @@ object fRecordEdit: TfRecordEdit
           RowSelect = True
           TabOrder = 0
           ViewStyle = vsReport
+          OnDblClick = edtFieldsDblClick
         end
       end
       object Button3: TButton

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

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

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;

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

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();