From b9c601bcb22b003d70b6214149c24d1a1362b283 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 3 May 2018 00:52:21 +0200
Subject: [PATCH] put the scrollpreview on top of the editor, cmaybe close #190

---
 src/ce_synmemo.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index de0321e5..01a5b760 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -837,9 +837,11 @@ begin
   inherited create(editor);
   visible := false;
 
-  parent := editor;
-  width := 475;
-  height := 275;
+  BevelOuter:= bvNone;
+  BevelInner:= bvNone;
+  parent := Application.MainForm;
+  width := scaleX(475, 96);
+  height := scaleY(275, 96);
 
   fMemo:= TSynEdit.Create(self);
   fMemo.Parent := self;
@@ -3501,7 +3503,7 @@ begin
     begin;
       fScrollMemo.Visible:=true;
       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;
     end
     else