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

put the scrollpreview on top of the editor, cmaybe close #190

This commit is contained in:
Basile Burg 2018-05-03 00:52:21 +02:00
parent ab8bbe84c0
commit b9c601bcb2
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_synmemo.pas
View File

@ -837,9 +837,11 @@ begin
inherited create(editor); inherited create(editor);
visible := false; visible := false;
parent := editor; BevelOuter:= bvNone;
width := 475; BevelInner:= bvNone;
height := 275; parent := Application.MainForm;
width := scaleX(475, 96);
height := scaleY(275, 96);
fMemo:= TSynEdit.Create(self); fMemo:= TSynEdit.Create(self);
fMemo.Parent := self; fMemo.Parent := self;
@ -3501,7 +3503,7 @@ begin
begin; begin;
fScrollMemo.Visible:=true; fScrollMemo.Visible:=true;
fScrollMemo.goToLine(trunc((lines.Count / Height) * Y)); fScrollMemo.goToLine(trunc((lines.Count / Height) * Y));
fScrollMemo.left := width - 40 - fScrollMemo.Width; fScrollMemo.left := mouse.CursorPos.x - fScrollMemo.Width - 10;
fScrollMemo.Top:= Y - 5; fScrollMemo.Top:= Y - 5;
end end
else else