paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 11:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: indent on paste: check highlighter

Browse Source 
git-svn-id: trunk@26396 -
This commit is contained in:
mattias 2010-07-01 22:37:30 +00:00
parent 105b15f19d
commit 399876ec14
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -4224,6 +4224,8 @@ begin
if AMode<>smNormal then exit; if AMode<>smNormal then exit;
if SyncroLockCount > 0 then exit; if SyncroLockCount > 0 then exit;
if not CodeToolsOpts.IndentOnPaste then exit; if not CodeToolsOpts.IndentOnPaste then exit;
if not (SyntaxHighlighterType in [lshFreePascal, lshDelphi]) then
exit;
{$IFDEF VerboseIndenter} {$IFDEF VerboseIndenter}
debugln(['TSourceEditor.EditorPaste LogCaret=',dbgs(ALogStartPos)]); debugln(['TSourceEditor.EditorPaste LogCaret=',dbgs(ALogStartPos)]);
{$ENDIF} {$ENDIF}