From afe7bb4b260985aa1cb1e174e9e301cd3e7dbd98 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 2 Oct 2017 22:43:28 +0000
Subject: [PATCH] Merged revision(s) 55941 #7e8132a70d from trunk: SynEdit:
 Paint Caret in paint-event (except win32) / some very few gtk may have issues
 ........

git-svn-id: branches/fixes_1_8@55961 -
---
 components/synedit/syneditpointclasses.pas | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas
index 5a2713ec01..34ff9c2a33 100644
--- a/components/synedit/syneditpointclasses.pas
+++ b/components/synedit/syneditpointclasses.pas
@@ -2882,14 +2882,10 @@ end;
 
 procedure TSynEditScreenCaretPainterInternal.Init;
 begin
-  {$IFDEF LCLCarbon}
-    FForcePaintEvents := True;
-  {$ELSE}
-  {$IF DEFINED(LCLQt) OR DEFINED(LCLQt5)}
-    FForcePaintEvents := True;
-  {$ELSE}
+  {$IFDEF LCLWin32}
     FForcePaintEvents := False;
-  {$ENDIF}
+  {$ELSE}
+    FForcePaintEvents := True;
   {$ENDIF}
   FSavePen := TPen.Create;
   FColor := clBlack;