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

fix scroll preview on small docs

This commit is contained in:
Basile Burg 2017-07-10 21:43:17 +02:00
parent 0670b51d32
commit 35ae9193bc
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_synmemo.pas
View File

@ -797,6 +797,7 @@ procedure TCEScrollMemo.updateFromSource;
begin
fMemo.Font.Assign(fSource.Font);
fMemo.Lines := fSource.Lines;
width := fSource.Width div 2;
if fSource.Highlighter.isNotNil then
begin
fMemo.Color:= fSource.Color;
@ -827,9 +828,12 @@ end;
procedure TCEScrollMemo.goToLine(value: integer);
begin
if value > fMemo.Lines.Count then
value := fMemo.Lines.Count
else if value < 1 then
value := 1;
fMemo.CaretY := value;
fMemo.SelectLine(true);
fMemo.CaretX := 1;
end;
{$ENDREGION}
@ -3134,7 +3138,7 @@ begin
if (x > width - 40) and (x < width - 1) then
begin;
fScrollMemo.Visible:=true;
fScrollMemo.goToLine((lines.Count div height) * (Y));
fScrollMemo.goToLine(trunc((lines.Count / Height) * Y));
fScrollMemo.left := width - 40 - fScrollMemo.Width;
fScrollMemo.Top:= Y - 5;
end