SynEdit, Beautifier: Renamed OnDesiredIndentNeeded / Added to SourcEditor

git-svn-id: trunk@20490 -

components/synedit/synbeautifier.pas

@@ -51,7 +51,7 @@ type
 
   TSynCustomBeautifier = class(TComponent)
   private
-    FOnDesiredIndentNeeded: TSynBeautifierGetIndentEvent;
+    FOnGetDesiredIndent: TSynBeautifierGetIndentEvent;
   public
     function CanUnindent(const Editor: TSynEditBase; const Lines: TSynEditStrings;
                          const ACaret: TSynEditCaret): Boolean; virtual; abstract;
@@ -66,8 +66,8 @@ type
     function GetDesiredIndentForLine(Editor: TSynEditBase; const Lines: TSynEditStrings;
                               const ACaret: TSynEditCaret;
                               out DesiredIndent: String): Integer; virtual; abstract;
-    property OnDesiredIndentNeeded: TSynBeautifierGetIndentEvent
+    property OnGetDesiredIndent: TSynBeautifierGetIndentEvent
-      read FOnDesiredIndentNeeded write FOnDesiredIndentNeeded;
+      read FOnGetDesiredIndent write FOnGetDesiredIndent;
   end;
 
   TSynBeautifierIndentType = (sbitSpace, sbitCopySpaceTab, sbitPositionCaret);
@@ -192,8 +192,8 @@ begin
     until (BackCounter = 0) or (Temp <> '');
 
   FoundLine := BackCounter + 1;
-  if assigned(FOnDesiredIndentNeeded) then
+  if assigned(FOnGetDesiredIndent) then
-    FOnDesiredIndentNeeded(Editor, ACaret.LineBytePos, ACaret.LinePos, Result, FoundLine);
+    FOnGetDesiredIndent(Editor, ACaret.LineBytePos, ACaret.LinePos, Result, FoundLine);
 
   if Result < 0 then exit;
 

ide/sourceeditor.pp

@@ -50,7 +50,7 @@ uses
   // synedit
   SynEditStrConst, SynEditTypes, SynEdit, SynRegExpr, SynEditHighlighter,
   SynEditAutoComplete, SynEditKeyCmds, SynCompletion, SynEditMiscClasses,
-  SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarks,
+  SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarks, SynBeautifier,
   // IDE interface
   MacroIntf, ProjectIntf, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf,
   IDEDialogs, IDEHelpIntf, IDEWindowIntf, IDEImagesIntf,
@@ -117,6 +117,7 @@ type
     FCodeTemplates: TSynEditAutoComplete;
     FHasExecutionMarks: Boolean;
     FMarksRequested: Boolean;
+    FOnGetDesiredIndent: TSynBeautifierGetIndentEvent;
     FPageName: string;
 
     FCodeBuffer: TCodeBuffer;
@@ -159,6 +160,8 @@ type
     procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
          WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
     procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure EditorGetIndent(Sender: TObject; LogCaret: TPoint; Line: Integer;
+                              var Indent, BasedLine: Integer);
     procedure EditorStatusChanged(Sender: TObject; Changes: TSynStatusChanges);
     procedure SetCodeBuffer(NewCodeBuffer: TCodeBuffer);
     function GetSource: TStrings;
@@ -383,6 +386,8 @@ type
     property OnMouseLink: TSynMouseLinkEvent read FOnMouseLink write FOnMouseLink;
     property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
     property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;
+    property OnGetDesiredIndent: TSynBeautifierGetIndentEvent
+      read FOnGetDesiredIndent write FOnGetDesiredIndent;
     property Owner: TComponent read FAOwner;
     property PageName: string read FPageName write SetPageName;
     property PopupMenu: TPopupMenu read FPopUpMenu write SetPopUpMenu;
@@ -533,6 +538,7 @@ type
     FActiveEditKeyBGColor: TColor;
     FActiveEditSymbolFGColor: TColor;
     FActiveEditSymbolBGColor: TColor;
+    FOnGetDesiredIndent: TSynBeautifierGetIndentEvent;
 
     // PopupMenu
     procedure BuildPopupMenu;
@@ -596,6 +602,8 @@ type
                             Shift: TShiftstate; X,Y: Integer);
     procedure EditorMouseLink(
       Sender: TObject; X,Y: Integer; var AllowMouseLink: Boolean);
+    procedure EditorGetIndent(Sender: TObject; LogCaret: TPoint; Line: Integer;
+                              var Indent, BasedLine: Integer);
     procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
          WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
@@ -781,6 +789,8 @@ type
                                      read FOnCloseClicked write FOnCloseClicked;
     property OnClickLink: TMouseEvent read FOnClickLink write FOnClickLink;
     property OnMouseLink: TSynMouseLinkEvent read FOnMouseLink write FOnMouseLink;
+    property OnGetDesiredIndent: TSynBeautifierGetIndentEvent
+      read FOnGetDesiredIndent write FOnGetDesiredIndent;
     property OnDeleteLastJumpPoint: TNotifyEvent
                        read FOnDeleteLastJumpPoint write FOnDeleteLastJumpPoint;
     property OnEditorVisibleChanged: TNotifyEvent
@@ -2527,6 +2537,7 @@ Begin
       OnClickLink := @EditorClickLink;
       OnMouseLink := @EditorMouseLink;
       OnKeyDown := @EditorKeyDown;
+      Beautifier.OnGetDesiredIndent := @EditorGetIndent;
       // IMPORTANT: when you change above, don't forget updating UnbindEditor
 
     end;
@@ -2993,6 +3004,13 @@ begin
     OnKeyDown(Sender, Key, Shift);
 end;
 
+procedure TSourceEditor.EditorGetIndent(Sender: TObject; LogCaret: TPoint;
+  Line: Integer; var Indent, BasedLine: Integer);
+begin
+  if Assigned(OnGetDesiredIndent) then
+    OnGetDesiredIndent(Sender, LogCaret, Line, Indent, BasedLine);
+end;
+
 Function TSourceEditor.GetCaretPosFromCursorPos(const CursorPos: TPoint): TPoint;
 var
   NewTopLine: Integer;
@@ -4793,6 +4811,7 @@ begin
   Result.OnClickLink := @EditorClickLink;
   Result.OnMouseLink := @EditorMouseLink;
   Result.OnKeyDown := @EditorKeyDown;
+  Result.OnGetDesiredIndent := @EditorGetIndent;
 
   Result.EditorComponent.EndUpdate;
   {$IFDEF IDE_DEBUG}
@@ -6672,6 +6691,13 @@ begin
     OnMouseLink(Sender, X, Y, AllowMouseLink);
 end;
 
+procedure TSourceNotebook.EditorGetIndent(Sender: TObject; LogCaret: TPoint; Line: Integer;
+  var Indent, BasedLine: Integer);
+begin
+  if Assigned(OnGetDesiredIndent) then
+    OnGetDesiredIndent(Sender, LogCaret, Line, Indent, BasedLine);
+end;
+
 Procedure TSourceNotebook.HintTimer(sender: TObject);
 var
   MousePos: TPoint;