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

SynEdit,SyncroEdit: Fixed CPU usage 9editor redraw) while inactive. Issue #14191

Browse Source 
git-svn-id: trunk@20945 -
This commit is contained in:
martin 2009-07-25 15:19:03 +00:00
parent de500e63ba
commit ea03b8aa2d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synpluginsyncroedit.pp
View File

@ -709,6 +709,7 @@ end;
procedure TSynPluginSyncroEditMarkup.DoInvalidate; procedure TSynPluginSyncroEditMarkup.DoInvalidate;
begin begin
if not Enabled then exit;
// TODO: GutterPaint does not trigger Markup modules // TODO: GutterPaint does not trigger Markup modules
TSynEdit(SynEdit).Invalidate; TSynEdit(SynEdit).Invalidate;
//if TSynEdit(SynEdit).GutterWidth < FGutterGlyph.Width then //if TSynEdit(SynEdit).GutterWidth < FGutterGlyph.Width then
@ -1017,9 +1018,11 @@ begin
If (not SelectionObj.SelAvail) or (SelectionObj.ActiveSelectionMode = smColumn) then begin If (not SelectionObj.SelAvail) or (SelectionObj.ActiveSelectionMode = smColumn) then begin
FLastSelStart := Point(-1,-1); FLastSelStart := Point(-1,-1);
FLastSelEnd := Point(-1,-1); FLastSelEnd := Point(-1,-1);
if Active then begin
FWordIndex.Clear; FWordIndex.Clear;
if Active then Editor.Invalidate; Editor.Invalidate;
Active := False; Active := False;
end;
FMode := spseIncative; FMode := spseIncative;
exit; exit;
end; end;