paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 12:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@20619 -
This commit is contained in:
mattias 2009-06-13 20:31:49 +00:00
parent ad7de21ad9
commit 8651b74a87
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -14009,17 +14009,15 @@ begin
SaveSourceEditorChangesToCodeCache(EditorIndex); SaveSourceEditorChangesToCodeCache(EditorIndex);
CodeBuf:=SrcEditor.CodeBuffer; CodeBuf:=SrcEditor.CodeBuffer;
CodeBuf.LineColToPosition(LogCaret.Y,LogCaret.X,p); CodeBuf.LineColToPosition(LogCaret.Y,LogCaret.X,p);
debugln(['TMainIDE.OnSrcNoteBookGetIndent AAA1 ',dbgs(LogCaret),' p=',p,' ',CodeBuf.Filename,' ',CodeBuf.SourceLength]);
if p<1 then exit; if p<1 then exit;
NestedComments:=CodeToolBoss.GetNestedCommentsFlagForFile(CodeBuf.Filename); NestedComments:=CodeToolBoss.GetNestedCommentsFlagForFile(CodeBuf.Filename);
if not CodeToolBoss.Indenter.GetIndent(CodeBuf.Source,p,NestedComments,NewIndent) if not CodeToolBoss.Indenter.GetIndent(CodeBuf.Source,p,NestedComments,NewIndent)
then exit; then exit;
debugln(['TMainIDE.OnSrcNoteBookGetIndent AAA2 ',NewIndent.IndentValid,' ',NewIndent.Indent,' Indent=',Indent,' BasedLine=',BasedLine,' ReplaceIndent=',ReplaceIndent]);
if not NewIndent.IndentValid then exit; if not NewIndent.IndentValid then exit;
Indent:=NewIndent.Indent+1; Indent:=NewIndent.Indent+1;
ReplaceIndent:=true; ReplaceIndent:=true;
BasedLine:=-1; BasedLine:=-1;
DebugLn(['TMainIDE.OnSrcNoteBookGetIndent END Indent=',Indent,' ReplaceIndent=',ReplaceIndent,' BasedLine=',BasedLine]); //DebugLn(['TMainIDE.OnSrcNoteBookGetIndent END Indent=',Indent,' ReplaceIndent=',ReplaceIndent,' BasedLine=',BasedLine]);
end; end;
procedure TMainIDE.OnSrcNotebookMovingPage(Sender: TObject; OldPageIndex, procedure TMainIDE.OnSrcNotebookMovingPage(Sender: TObject; OldPageIndex,