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

related to #190 but still not fixed

This commit is contained in:
Basile Burg 2017-12-06 17:57:01 +01:00
parent 1456b3a522
commit 993a31575e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_synmemo.pas
View File

@ -743,7 +743,6 @@ begin
parent := editor;
width := 475;
height := 275;
CaptureMouseButtons:=[];
fMemo:= TSynEdit.Create(self);
fMemo.Parent := self;
@ -787,7 +786,7 @@ procedure TCEScrollMemo.SetVisible(Value: Boolean);
var
o: boolean;
begin
o := IsVisible();
o := Visible;
inherited;
if (o <> value) and value then
updateFromSource;
@ -795,6 +794,8 @@ end;
procedure TCEScrollMemo.goToLine(value: integer);
begin
if fMemo.PaintLock <> 0 then
exit;
if value > fMemo.Lines.Count then
value := fMemo.Lines.Count
else if value < 1 then
@ -1011,6 +1012,7 @@ begin
if not fFocusForInput then
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
fFocusForInput := true;
fScrollMemo.Visible:=false;
end;
procedure TCESynMemo.DoExit;