fix more RT errors caused by fix for #307

This commit is contained in:
Basile Burg 2018-04-27 09:09:37 +02:00
parent 0735cb6092
commit d39b19b5d5
1 changed files with 0 additions and 7 deletions

View File

@ -282,7 +282,6 @@ type
procedure patchClipboardIndentation;
procedure gotoWordEdge(right: boolean);
procedure handleModalBeginning(sender: TObject);
procedure handleModalFinsihed(sender: TObject);
//
procedure gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
procedure removeDebugTimeMarks;
@ -1068,7 +1067,6 @@ begin
fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically;
fAutoClosedPairs:= [autoCloseSquareBracket];
application.AddOnActivateHandler(@handleModalFinsihed);
application.AddOnDeactivateHandler(@handleModalBeginning);
fDastWorxExename:= exeFullName('dastworx' + exeExt);
@ -1136,11 +1134,6 @@ begin
Font.Size := fDefaultFontSize;
end;
procedure TCESynMemo.handleModalFinsihed(sender: TObject);
begin
cursor := crIBeam;
end;
procedure TCESynMemo.handleModalBeginning(sender: TObject);
begin
cursor := crDefault;