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

fix cursor set to crDragSomething after date check. added ctrl+wheel zoom in opts.

This commit is contained in:
Basile Burg 2014-08-17 07:26:10 +02:00
parent 1daa39bdef
commit a128200b18
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_synmemo.pas
View File

@ -6,7 +6,8 @@ interface
uses uses
Classes, SysUtils, SynEdit, SynMemo, ce_d2syn, SynEditHighlighter, controls, Classes, SysUtils, SynEdit, SynMemo, ce_d2syn, SynEditHighlighter, controls,
LazSynEditText, SynPluginSyncroEdit, SynEditKeyCmds, ce_project, ce_common; lcltype, LazSynEditText, SynPluginSyncroEdit, SynEditKeyCmds, ce_project,
SynEditMouseCmds, ce_common;
type type
TCESynMemo = class(TSynMemo) TCESynMemo = class(TSynMemo)
@ -31,6 +32,7 @@ type
destructor destroy; override; destructor destroy; override;
procedure setFocus; override; procedure setFocus; override;
procedure UpdateShowing; override; procedure UpdateShowing; override;
procedure DoEnter; override;
// //
procedure checkFileDate; procedure checkFileDate;
procedure loadFromFile(const aFilename: string); procedure loadFromFile(const aFilename: string);
@ -66,7 +68,10 @@ begin
eoTrimTrailingSpaces, eoDragDropEditing, eoShowCtrlMouseLinks, eoTrimTrailingSpaces, eoDragDropEditing, eoShowCtrlMouseLinks,
eoEnhanceHomeKey, eoTabIndent]; eoEnhanceHomeKey, eoTabIndent];
Options2 := [eoEnhanceEndKey, eoFoldedCopyPaste, eoOverwriteBlock]; Options2 := [eoEnhanceEndKey, eoFoldedCopyPaste, eoOverwriteBlock];
//
MouseOptions := MouseOptions +
[ emAltSetsColumnMode, emDragDropEditing,
emDoubleClickSelectsLine, emCtrlWheelZoom];
Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5; Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
Gutter.LineNumberPart.MarkupInfo.Foreground := clGray; Gutter.LineNumberPart.MarkupInfo.Foreground := clGray;
Gutter.SeparatorPart.LineOffset := 1; Gutter.SeparatorPart.LineOffset := 1;
@ -104,6 +109,12 @@ procedure TCESynMemo.UpdateShowing;
begin begin
inherited; inherited;
if not Visible then exit; if not Visible then exit;
identifierToD2Syn;
end;
procedure TCESynMemo.DoEnter;
begin
Inherited;
checkFileDate; checkFileDate;
identifierToD2Syn; identifierToD2Syn;
end; end;
@ -170,7 +181,6 @@ begin
Lines.LoadFromFile(fFilename); Lines.LoadFromFile(fFilename);
fModified := false; fModified := false;
end; end;
//TODO-cbugfix: the cursor is incorrectly set to crDragSomething.
end; end;
fFileDate := newDate; fFileDate := newDate;
end; end;