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

SourceEdtitor: Cleanup after SynEdit change rev 30008 #4aaa8ceb25

Browse Source 
git-svn-id: trunk@30009 -
This commit is contained in:
martin 2011-03-24 21:25:35 +00:00
parent 4aaa8ceb25
commit f46538af44
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditor.pp
View File

@ -7207,8 +7207,7 @@ var
CodeBuf: TCodeBuffer; CodeBuf: TCodeBuffer;
begin begin
Result:=false; Result:=false;
//SrcEdit:=GetActiveSE; SrcEdit := FindSourceEditorWithEditorComponent(TComponent(Editor));
SrcEdit := Manager.ActiveEditor; // Todo: Each SynEdit needs its own Beautifier, otherwise they call the wrong notebook
if assigned(Manager) and Assigned(Manager.OnGetIndent) then begin if assigned(Manager) and Assigned(Manager.OnGetIndent) then begin
Result := Manager.OnGetIndent(Sender, SrcEdit, LogCaret, OldLogCaret, FirstLinePos, LastLinePos, Result := Manager.OnGetIndent(Sender, SrcEdit, LogCaret, OldLogCaret, FirstLinePos, LastLinePos,
Reason, SetIndentProc); Reason, SetIndentProc);
@ -7549,10 +7548,6 @@ begin
FSourceWindowByFocusList.Remove(AValue); FSourceWindowByFocusList.Remove(AValue);
FSourceWindowByFocusList.Insert(0, AValue); FSourceWindowByFocusList.Insert(0, AValue);
// Todo: Each synEdit needs it's own beautifier
if SourceEditorCount > 0 then
TSourceEditor(SourceEditors[0]).EditorComponent.Beautifier.OnGetDesiredIndent
:= @TSourceNotebook(ActiveSourceWindow).EditorGetIndent;
if Assigned(OnCurrentCodeBufferChanged) then if Assigned(OnCurrentCodeBufferChanged) then
OnCurrentCodeBufferChanged(nil); OnCurrentCodeBufferChanged(nil);