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

workaround #190

This commit is contained in:
Basile Burg 2017-11-19 07:31:03 +01:00
parent 5530939a8e
commit e075f72587
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_synmemo.pas
View File

@ -752,10 +752,10 @@ begin
fMemo.MouseActions.Clear; fMemo.MouseActions.Clear;
fMemo.Keystrokes.Clear; fMemo.Keystrokes.Clear;
fMemo.CaptureMouseButtons:=[]; fMemo.CaptureMouseButtons:=[];
fMemo.Options:=fMemo.Options+[eoNoCaret];
fD2Hl:= TSynD2Syn.create(self); fD2Hl:= TSynD2Syn.create(self);
fTxtHl:= TSynTxtSyn.Create(self); fTxtHl:= TSynTxtSyn.Create(self);
fSource:= editor; fSource:= editor;
updateFromSource(); updateFromSource();
end; end;
@ -770,16 +770,15 @@ begin
fMemo.Color:= fSource.Color; fMemo.Color:= fSource.Color;
fMemo.LineHighlightColor.Assign(fSource.LineHighlightColor); fMemo.LineHighlightColor.Assign(fSource.LineHighlightColor);
fMemo.SelectedColor.Assign(fSource.SelectedColor); fMemo.SelectedColor.Assign(fSource.SelectedColor);
if fSource.Highlighter is TSynD2Syn then if fMemo.Highlighter.isNil then
begin begin
fD2Hl.Assign(fSource.Highlighter); fD2Hl.Assign(fSource.Highlighter);
fMemo.Highlighter := fD2Hl;
end
else
begin
fTxtHl.Assign(fSource.Highlighter); fTxtHl.Assign(fSource.Highlighter);
fMemo.Highlighter := fTxtHl;
end; end;
if fSource.Highlighter is TSynD2Syn then
fMemo.Highlighter := fD2Hl
else
fMemo.Highlighter := fTxtHl;
end; end;
end; end;
@ -800,6 +799,7 @@ begin
else if value < 1 then else if value < 1 then
value := 1; value := 1;
fMemo.CaretY := value; fMemo.CaretY := value;
fMemo.CaretX := 1;
fMemo.SelectLine(true); fMemo.SelectLine(true);
end; end;
{$ENDREGION} {$ENDREGION}