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

fix #26, selection length on status bar is wrong

This commit is contained in:
Basile Burg 2015-08-23 16:53:33 +02:00
parent a4139bdfc1
commit 8f8a44a288
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_editor.pas
View File

@ -52,17 +52,20 @@ type
fTokList: TLexTokenList; fTokList: TLexTokenList;
fErrList: TLexErrorList; fErrList: TLexErrorList;
fModStart: boolean; fModStart: boolean;
fLastCommand: TSynEditorCommand;
{$IFDEF LINUX} {$IFDEF LINUX}
procedure pageCloseBtnClick(Sender: TObject); procedure pageCloseBtnClick(Sender: TObject);
{$ENDIF} {$ENDIF}
procedure lexFindToken(const aToken: PLexToken; out doStop: boolean); procedure lexFindToken(const aToken: PLexToken; out doStop: boolean);
procedure memoKeyPress(Sender: TObject; var Key: char); procedure memoKeyPress(Sender: TObject; var Key: char);
procedure memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure memoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure memoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure memoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure memoCtrlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure memoCtrlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure memoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure getSymbolLoc; procedure getSymbolLoc;
procedure focusedEditorChanged; procedure focusedEditorChanged;
procedure memoCmdProcessed(Sender: TObject; var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
// //
procedure docNew(aDoc: TCESynMemo); procedure docNew(aDoc: TCESynMemo);
procedure docClosing(aDoc: TCESynMemo); procedure docClosing(aDoc: TCESynMemo);
@ -161,10 +164,12 @@ begin
aDoc.Parent := sheet; aDoc.Parent := sheet;
// //
aDoc.OnKeyDown := @memoKeyDown; aDoc.OnKeyDown := @memoKeyDown;
aDoc.OnKeyUp := @memoKeyUp;
aDoc.OnKeyPress := @memoKeyPress; aDoc.OnKeyPress := @memoKeyPress;
aDoc.OnMouseDown := @memoMouseDown; aDoc.OnMouseDown := @memoMouseDown;
aDoc.OnMouseMove := @memoMouseMove; aDoc.OnMouseMove := @memoMouseMove;
aDoc.OnClickLink := @memoCtrlClick; aDoc.OnClickLink := @memoCtrlClick;
aDoc.OnCommandProcessed:= @memoCmdProcessed;
// //
fDoc := aDoc; fDoc := aDoc;
pageControl.ActivePage := sheet; pageControl.ActivePage := sheet;
@ -299,6 +304,18 @@ begin
getSymbolLoc; getSymbolLoc;
end; end;
procedure TCEEditorWidget.memoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case fLastCommand of
ecSelectionStart..ecSelectionEnd: updateImperative;
end;
end;
procedure TCEEditorWidget.memoCmdProcessed(Sender: TObject; var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
begin
fLastCommand := Command;
end;
procedure TCEEditorWidget.memoKeyPress(Sender: TObject; var Key: char); procedure TCEEditorWidget.memoKeyPress(Sender: TObject; var Key: char);
begin begin
fKeyChanged := true; fKeyChanged := true;