fix, perf issue when selecting in huge files

This commit is contained in:
Basile Burg 2015-02-07 01:14:27 +01:00
parent 61c713c2f3
commit 426ce2bf0f
1 changed files with 1 additions and 2 deletions

View File

@ -289,9 +289,7 @@ end;
procedure TCEEditorWidget.memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if not (ssLeft in Shift) then exit;
//
beginUpdateByDelay;
UpdateByEvent;
end;
procedure TCEEditorWidget.memoCtrlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@ -356,6 +354,7 @@ var
md: string;
begin
if fDoc = nil then exit;
UpdateByEvent;
if not fKeyChanged then exit;
//
fKeyChanged := false;