forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_synmemo.pas
View File

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