From 1ff8b9e878eb5edaa805801b4cc6ff6c8fb2f6ba Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 8 Feb 2016 16:30:28 +0100
Subject: [PATCH] fix, windows, empty line in call tips

---
 src/ce_dcd.pas     | 4 ++++
 src/ce_synmemo.pas | 5 +++++
 2 files changed, 9 insertions(+)

diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index f0fda2ca..590973fe 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -390,7 +390,11 @@ begin
   //
   fTempLines.Delete(0);
   tips := fTempLines.Text;
+  {$IFDEF WINDOWS}
+  tips := tips[1..tips.length-2];
+  {$ELSE}
   tips := tips[1..tips.length-1];
+  {$ENDIF}
 end;
 
 procedure TCEDcdWrapper.getComplAtCursor(aList: TStrings);
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 23d54c4d..94497276 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1029,6 +1029,11 @@ begin
     fCallTipStrings.Objects[0] := TObject(pointer(i));
     {$POP}
     str := fCallTipStrings.Text;
+    {$IFDEF WINDOWS}
+    str := str[1..str.length-2];
+    {$ELSE}
+    str := str[1..str.length-1];
+    {$ENDIF}
     showCallTips(str);
   end;
 end;