paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 20:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, Beautifier: Renamed OnDesiredIndentNeeded / Fixed Log-Caret

Browse Source 
git-svn-id: trunk@20486 -
This commit is contained in:
martin 2009-06-06 18:08:31 +00:00
parent 56629b80c6
commit d891e19daf
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synbeautifier.pas
View File

@ -44,14 +44,14 @@ uses
type
TSynBeautifierDesiredIndentNeededEvent =
procedure(Sender: TObject; PhysCaret: TPoint; var Indent, BasedLine: Integer) of object;
TSynBeautifierGetIndentEvent =
procedure(Sender: TObject; LogCaret: TPoint; var Indent, BasedLine: Integer) of object;
{ TSynCustomBeautifier }
TSynCustomBeautifier = class(TComponent)
private
FOnDesiredIndentNeeded: TSynBeautifierDesiredIndentNeededEvent;
FOnDesiredIndentNeeded: TSynBeautifierGetIndentEvent;
public
function CanUnindent(const Editor: TSynEditBase; const Lines: TSynEditStrings;
const ACaret: TSynEditCaret): Boolean; virtual; abstract;
@ -66,7 +66,7 @@ type
function GetDesiredIndentForLine(Editor: TSynEditBase; const Lines: TSynEditStrings;
const ACaret: TSynEditCaret;
out DesiredIndent: String): Integer; virtual; abstract;
property OnDesiredIndentNeeded: TSynBeautifierDesiredIndentNeededEvent
property OnDesiredIndentNeeded: TSynBeautifierGetIndentEvent
read FOnDesiredIndentNeeded write FOnDesiredIndentNeeded;
end;
@ -192,8 +192,8 @@ begin
until (BackCounter = 0) or (Temp <> '');
FoundLine := BackCounter + 1;
if assigned(OnDesiredIndentNeeded) then
OnDesiredIndentNeeded(Editor, ACaret.LineCharPos, Result, FoundLine);
if assigned(FOnDesiredIndentNeeded) then
FOnDesiredIndentNeeded(Editor, ACaret.LineBytePos, Result, FoundLine);
if Result < 0 then exit;