paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 15:41:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@22299 -
This commit is contained in:
mattias 2009-10-26 23:18:30 +00:00
parent 333881fb52
commit eac2df8196
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -358,7 +358,7 @@ type
procedure OnSrcNoteBookMouseLink(
Sender: TObject; X, Y: Integer; var AllowMouseLink: Boolean);
function OnSrcNoteBookGetIndent(Sender: TSynCustomBeautifier; SrcEditor: TSourceEditor;
LogCaret: TPoint; var FirstLinePos, LinesCount: Integer;
LogCaret: TPoint; var FirstLinePos, LastLine: Integer;
Reason: TSynEditorCommand; SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
procedure OnSrcNotebookDeleteLastJumPoint(Sender: TObject);
procedure OnSrcNotebookEditorVisibleChanged(Sender: TObject);
@ -14417,7 +14417,7 @@ end;
function TMainIDE.OnSrcNoteBookGetIndent(Sender: TSynCustomBeautifier;
SrcEditor: TSourceEditor; LogCaret: TPoint;
var FirstLinePos, LinesCount: Integer; Reason: TSynEditorCommand;
var FirstLinePos, LastLine: Integer; Reason: TSynEditorCommand;
SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
var
CodeBuf: TCodeBuffer;
@ -14433,9 +14433,12 @@ begin
{$ENDIF}
if not (SrcEditor.SyntaxHighlighterType in [lshFreePascal, lshDelphi]) then
exit;
if (Reason <> ecLineBreak) and (Reason <> ecInsertLine) then
case Reason of
ecLineBreak,ecInsertLine: ;
else
exit;
debugln(['TMainIDE.OnSrcNoteBookGetIndent LogCaret=',dbgs(LogCaret),' FirstLinePos=',FirstLinePos,' LinesCount=',LinesCount]);
end;
debugln(['TMainIDE.OnSrcNoteBookGetIndent LogCaret=',dbgs(LogCaret),' FirstLinePos=',FirstLinePos,' LinesCount=',LastLine]);
Result := True;
EditorIndex:=SrcEditor.PageIndex;
SaveSourceEditorChangesToCodeCache(EditorIndex);