paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 08:32:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: no auto indent during template editing

Browse Source 
git-svn-id: trunk@22435 -
This commit is contained in:
mattias 2009-11-04 19:53:23 +00:00
parent 61804fcfa3
commit 14609fc341
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourceeditor.pp
View File

@ -119,6 +119,7 @@ type
FEditPlugin: TSynEditPlugin1; // used to get the LinesInserted and
// LinesDeleted messages
FSyncroEdit: TSynPluginSyncroEdit;
FTemplateEdit: TSynPluginTemplateEdit;
FCodeTemplates: TSynEditAutoComplete;
FHasExecutionMarks: Boolean;
FMarksRequested: Boolean;
@ -399,6 +400,7 @@ type
property SyncroEdit: TSynPluginSyncroEdit read FSyncroEdit;
property SyntaxHighlighterType: TLazSyntaxHighlighter
read fSyntaxHighlighterType write SetSyntaxHighlighterType;
property TemplateEdit: TSynPluginTemplateEdit read FTemplateEdit;
end;
//============================================================================
@ -2569,7 +2571,7 @@ Begin
FCodeTemplates.AddEditor(FEditor);
if aCompletion<>nil then
aCompletion.AddEditor(FEditor);
TSynPluginTemplateEdit.Create(FEditor);
FTemplateEdit:=TSynPluginTemplateEdit.Create(FEditor);
FSyncroEdit := TSynPluginSyncroEdit.Create(FEditor);
bmp := CreateBitmapFromLazarusResource('tsynsyncroedit');
FSyncroEdit.GutterGlyph.Assign(bmp);
@ -6841,6 +6843,7 @@ begin
if Result then exit;
end;
if (SrcEdit.SyncroEdit<>nil) and SrcEdit.SyncroEdit.Active then exit;
if (SrcEdit.TemplateEdit<>nil) and SrcEdit.TemplateEdit.Active then exit;
if not (SrcEdit.SyntaxHighlighterType in [lshFreePascal, lshDelphi]) then
exit;
case Reason of