IDE: auto show the param hint for functions. Patch by David Zimmer

git-svn-id: trunk@44464 -

docs/Contributors.txt

@@ -46,6 +46,7 @@ Darius Blaszijk
 David Guadagnini
 David Jenkins
 David Pethes
+David Zimmer
 Dean Zobec
 Denis Golovan
 Denis Volodarsky

ide/editoroptions.pp

@@ -1357,6 +1357,7 @@ type
     FDbgHintAutoTypeCastClass: Boolean;
     fCodeTemplateFileName: String;
     fCTemplIndentToTokenStart: Boolean;
+    fAutoDisplayFuncPrototypes: Boolean;
 
     // Code Folding
     FUseCodeFolding: Boolean;
@@ -1536,6 +1537,9 @@ type
       read fAutoToolTipExprEval write fAutoToolTipExprEval default True; // debugger hints
     property AutoToolTipSymbTools: Boolean
       read fAutoToolTipSymbTools write fAutoToolTipSymbTools default True; // declaration hints
+    property AutoDisplayFunctionPrototypes: Boolean
+      read fAutoDisplayFuncPrototypes write fAutoDisplayFuncPrototypes default True;
+
   published
     property DbgHintAutoTypeCastClass: Boolean
       read FDbgHintAutoTypeCastClass write FDbgHintAutoTypeCastClass default True; // declaration hints
@@ -4414,6 +4418,7 @@ begin
 
   // Code Tools options
   FCompletionLongLineHintType := DefaultCompletionLongLineHintType;
+  FAutoDisplayFuncPrototypes := True;
 
   // Code folding
   FReverseFoldPopUpOrder := True;
@@ -4646,6 +4651,9 @@ begin
     fAutoBlockCompletion :=
       XMLConfig.GetValue(
       'EditorOptions/CodeTools/AutoBlockCompletion', True);
+    fAutoDisplayFuncPrototypes :=
+      XMLConfig.GetValue(
+      'EditorOptions/CodeTools/AutoDisplayFuncPrototypes', True);
     fAutoCodeParameters :=
       XMLConfig.GetValue('EditorOptions/CodeTools/AutoCodeParameters', True);
     fAutoToolTipExprEval :=
@@ -4829,6 +4837,8 @@ begin
     // Code Tools options
     XMLConfig.SetDeleteValue('EditorOptions/CodeTools/AutoBlockCompletion'
       , fAutoBlockCompletion, True);
+    XMLConfig.SetDeleteValue('EditorOptions/CodeTools/AutoDisplayFuncPrototypes'
+      , fAutoDisplayFuncPrototypes, True);
     XMLConfig.SetDeleteValue('EditorOptions/CodeTools/AutoCodeParameters'
       , fAutoCodeParameters, True);
     XMLConfig.SetDeleteValue('EditorOptions/CodeTools/AutoToolTipExprEval'

ide/frames/editor_codetools_options.lfm

@@ -1,27 +1,30 @@
-inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
+object EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
+  Left = 0
   Height = 492
+  Top = 0
   Width = 634
   HorzScrollBar.Page = 634
   VertScrollBar.Page = 492
   AutoScroll = True
   ClientHeight = 492
   ClientWidth = 634
+  TabOrder = 0
   Visible = False
   DesignLeft = 263
   DesignTop = 222
-  object AutoDelayLabel: TLabel[0]
+  object AutoDelayLabel: TLabel
     AnchorSideLeft.Control = AutoHintAndCompletionDelayLabel
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = AutoHintAndCompletionDelayLabel
-    Left = 218
+    Left = 217
-    Height = 16
+    Height = 15
-    Top = 134
+    Top = 156
-    Width = 84
+    Width = 83
     BorderSpacing.Left = 20
     Caption = 'AutoDelayLabel'
     ParentColor = False
   end
-  object ToolTipBevel: TBevel[1]
+  object ToolTipBevel: TBevel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = AutoCompleteBlockCheckBox
     AnchorSideTop.Side = asrBottom
@@ -35,7 +38,7 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     BorderSpacing.Top = 6
     BorderSpacing.Bottom = 6
   end
-  object AutoRemoveEmptyMethodsOnSave: TCheckBox[2]
+  object AutoRemoveEmptyMethodsOnSave: TCheckBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     Left = 6
@@ -47,20 +50,20 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     Caption = 'AutoRemoveEmptyMethodsOnSave'
     TabOrder = 0
   end
-  object AutoToolTipSymbToolsCheckBox: TCheckBox[3]
+  object AutoToolTipSymbToolsCheckBox: TCheckBox
     AnchorSideLeft.Control = Owner
-    AnchorSideTop.Control = ToolTipBevel
+    AnchorSideTop.Control = AutoDisplayFuncProtoCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 6
     Height = 19
-    Top = 65
+    Top = 87
     Width = 198
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
     Caption = 'AutoToolTipSymbToolsCheckBox'
     TabOrder = 1
   end
-  object AutoCompleteBlockCheckBox: TCheckBox[4]
+  object AutoCompleteBlockCheckBox: TCheckBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = AutoRemoveEmptyMethodsOnSave
     AnchorSideTop.Side = asrBottom
@@ -73,20 +76,20 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     Caption = 'AutoCompleteBlockCheckBox'
     TabOrder = 2
   end
-  object AutoToolTipExprEvalCheckBox: TCheckBox[5]
+  object AutoToolTipExprEvalCheckBox: TCheckBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = AutoToolTipSymbToolsCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 6
     Height = 19
-    Top = 90
+    Top = 112
     Width = 182
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
     Caption = 'AutoToolTipExprEvalCheckBox'
     TabOrder = 3
   end
-  object AutoDelayTrackBar: TTrackBar[6]
+  object AutoDelayTrackBar: TTrackBar
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = AutoHintAndCompletionDelayLabel
     AnchorSideTop.Side = asrBottom
@@ -94,7 +97,7 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     AnchorSideRight.Side = asrBottom
     Left = 6
     Height = 30
-    Top = 151
+    Top = 172
     Width = 622
     Frequency = 250
     Max = 4000
@@ -108,20 +111,20 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     BorderSpacing.Right = 6
     TabOrder = 4
   end
-  object AutoHintAndCompletionDelayLabel: TLabel[7]
+  object AutoHintAndCompletionDelayLabel: TLabel
     AnchorSideLeft.Control = ToolTipBevel
     AnchorSideTop.Control = DbgToolTipAutoCastClass
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 16
+    Height = 15
-    Top = 134
+    Top = 156
-    Width = 192
+    Width = 191
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
     Caption = 'AutoHintAndCompletionDelayLabel'
     ParentColor = False
   end
-  object CompletionDropDownHintTrackBar: TTrackBar[8]
+  object CompletionDropDownHintTrackBar: TTrackBar
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = CompletionDropDownLabel
     AnchorSideTop.Side = asrBottom
@@ -129,7 +132,7 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     AnchorSideRight.Side = asrBottom
     Left = 6
     Height = 30
-    Top = 204
+    Top = 224
     Width = 622
     Frequency = 250
     Max = 4000
@@ -142,32 +145,32 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     BorderSpacing.Right = 6
     TabOrder = 5
   end
-  object CompletionDropDownLabel: TLabel[9]
+  object CompletionDropDownLabel: TLabel
     AnchorSideLeft.Control = ToolTipBevel
     AnchorSideTop.Control = AutoDelayTrackBar
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 16
+    Height = 15
-    Top = 187
+    Top = 208
-    Width = 149
+    Width = 148
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
     Caption = 'CompletionDropDownLabel'
     ParentColor = False
   end
-  object CompletionDropDownDelayLabel: TLabel[10]
+  object CompletionDropDownDelayLabel: TLabel
     AnchorSideLeft.Control = CompletionDropDownLabel
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = CompletionDropDownLabel
-    Left = 175
+    Left = 174
-    Height = 16
+    Height = 15
-    Top = 187
+    Top = 208
-    Width = 178
+    Width = 177
     BorderSpacing.Left = 20
     Caption = 'CompletionDropDownDelayLabel'
     ParentColor = False
   end
-  object CompletionDropDownHint: TComboBox[11]
+  object CompletionDropDownHint: TComboBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = CompletionDropDownHintTrackBar
     AnchorSideTop.Side = asrBottom
@@ -175,7 +178,7 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     AnchorSideBottom.Side = asrBottom
     Left = 6
     Height = 23
-    Top = 236
+    Top = 256
     Width = 220
     BorderSpacing.Left = 6
     BorderSpacing.Top = 2
@@ -183,29 +186,41 @@ inherited EditorCodetoolsOptionsFrame: TEditorCodetoolsOptionsFrame
     Style = csDropDownList
     TabOrder = 6
   end
-  object CompletionDropDownHintLabel: TLabel[12]
+  object CompletionDropDownHintLabel: TLabel
     AnchorSideLeft.Control = CompletionDropDownHint
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = CompletionDropDownHint
     AnchorSideTop.Side = asrCenter
     Left = 232
-    Height = 16
+    Height = 15
-    Top = 239
+    Top = 260
-    Width = 172
+    Width = 171
     BorderSpacing.Around = 6
     Caption = 'CompletionDropDownHintLabel'
     ParentColor = False
   end
-  object DbgToolTipAutoCastClass: TCheckBox[13]
+  object DbgToolTipAutoCastClass: TCheckBox
     AnchorSideLeft.Control = AutoToolTipExprEvalCheckBox
     AnchorSideTop.Control = AutoToolTipExprEvalCheckBox
     AnchorSideTop.Side = asrBottom
     Left = 26
     Height = 19
-    Top = 109
+    Top = 131
     Width = 159
     BorderSpacing.Left = 20
     Caption = 'DbgToolTipAutoCastClass'
     TabOrder = 7
   end
+  object AutoDisplayFuncProtoCheckBox: TCheckBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = ToolTipBevel
+    Left = 6
+    Height = 19
+    Top = 62
+    Width = 191
+    BorderSpacing.Left = 6
+    BorderSpacing.Top = 6
+    Caption = 'AutoDisplayFuncProtoCheckBox'
+    TabOrder = 8
+  end
 end

ide/frames/editor_codetools_options.pas

@@ -36,6 +36,7 @@ type
   TEditorCodetoolsOptionsFrame = class(TAbstractIDEOptionsEditor)
     AutoCompleteBlockCheckBox: TCheckBox;
     AutoDelayLabel: TLabel;
+    AutoDisplayFuncProtoCheckBox: TCheckBox;
     DbgToolTipAutoCastClass: TCheckBox;
     CompletionDropDownHintLabel: TLabel;
     CompletionDropDownHint: TComboBox;
@@ -83,6 +84,7 @@ begin
   AutoToolTipExprEvalCheckBox.Caption := lisShowValueHintsWhileDebugging;
   DbgToolTipAutoCastClass.Caption := lisDebugHintAutoTypeCastClass;
   AutoCompleteBlockCheckBox.Caption := dlgEdCompleteBlocks;
+  AutoDisplayFuncProtoCheckBox.Caption := dlgAutoDisplayFuncProto;
 
   AutoHintAndCompletionDelayLabel.Caption:=lisDelayForHintsAndCompletionBox;
   CompletionDropDownLabel.Caption := lisDelayForCompletionLongLineHint;
@@ -104,6 +106,7 @@ begin
     DbgToolTipAutoCastClass.Checked := DbgHintAutoTypeCastClass;
     AutoDelayTrackBar.Position := AutoDelayInMSec;
     AutoRemoveEmptyMethodsOnSave.Checked := AutoRemoveEmptyMethods;
+    AutoDisplayFuncProtoCheckBox.Checked := AutoDisplayFunctionPrototypes;
 
     CompletionDropDownHintTrackBar.Position := CompletionLongLineHintInMSec;
     CompletionDropDownHint.ItemIndex := ord(CompletionLongLineHintType);
@@ -122,6 +125,7 @@ begin
     DbgHintAutoTypeCastClass := DbgToolTipAutoCastClass.Checked;
     AutoDelayInMSec := AutoDelayTrackBar.Position;
     AutoRemoveEmptyMethods := AutoRemoveEmptyMethodsOnSave.Checked;
+    AutoDisplayFunctionPrototypes := AutoDisplayFuncProtoCheckBox.Checked;
 
     CompletionLongLineHintInMSec := CompletionDropDownHintTrackBar.Position;
     CompletionLongLineHintType :=  TSynCompletionLongHintType(CompletionDropDownHint.ItemIndex);

ide/lazarusidestrconsts.pas

@@ -1652,6 +1652,7 @@ resourcestring
   dlgMarkupWordTrim = 'Trim spaces (when highlighting current selection)';
   dlgMarkupWordNoTimer = 'Disable timer for markup current word';
   dlgAutoRemoveEmptyMethods = 'Auto remove empty methods';
+  dlgAutoDisplayFuncProto = 'Auto Display Function Prototypes';
   lisShowDeclarationHints = 'Show declaration hints';
   dlgEdDelayInSec = '(%s sec delay)';
   lisDelayForHintsAndCompletionBox = 'Delay for hints and completion box';

ide/sourceeditor.pp

@@ -3570,6 +3570,9 @@ begin
     begin
       if AutoBlockCompleteChar(AChar) then
         Handled:=true;
+      if EditorOpts.AutoDisplayFunctionPrototypes then
+         if (aChar = '(') or (aChar = ',') then
+            SourceNotebook.StartShowCodeContext(true);
     end;
 
   else