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

fix #307 - Cursor remains invisible while modal dialog is displayed

This commit is contained in:
Basile Burg 2018-04-26 20:23:17 +02:00
parent a329abab0c
commit 0e1cd6be8b
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_synmemo.pas
View File

@ -281,6 +281,8 @@ type
procedure removeGutterIcon(line: integer; value: TGutterIcon); procedure removeGutterIcon(line: integer; value: TGutterIcon);
procedure patchClipboardIndentation; procedure patchClipboardIndentation;
procedure gotoWordEdge(right: boolean); procedure gotoWordEdge(right: boolean);
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;
@ -1066,6 +1068,9 @@ begin
fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically; fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically;
fAutoClosedPairs:= [autoCloseSquareBracket]; fAutoClosedPairs:= [autoCloseSquareBracket];
application.AddOnActivateHandler(@handleModalFinsihed);
application.AddOnDeactivateHandler(@handleModalBeginning);
fDastWorxExename:= exeFullName('dastworx' + exeExt); fDastWorxExename:= exeFullName('dastworx' + exeExt);
fDebugger := EntitiesConnector.getSingleService('ICEDebugger') as ICEDebugger; fDebugger := EntitiesConnector.getSingleService('ICEDebugger') as ICEDebugger;
@ -1131,7 +1136,21 @@ begin
Font.Size := fDefaultFontSize; Font.Size := fDefaultFontSize;
end; end;
procedure TCESynMemo.handleModalFinsihed(sender: TObject);
begin
cursor := crIBeam;
UpdateCursor;
end;
procedure TCESynMemo.handleModalBeginning(sender: TObject);
begin
cursor := crDefault;
UpdateCursor;
end;
procedure TCESynMemo.setFocus; procedure TCESynMemo.setFocus;
var
p: TPoint;
begin begin
inherited; inherited;
highlightCurrentIdentifier; highlightCurrentIdentifier;
@ -1145,6 +1164,9 @@ begin
end; end;
procedure TCESynMemo.DoEnter; procedure TCESynMemo.DoEnter;
var
i: integer;
p: TPoint;
begin begin
inherited; inherited;
checkFileDate; checkFileDate;