From 7a259b572a0abc17ced0cfddd99e04a04e27be3c Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 12 Feb 2015 14:44:39 +0000 Subject: [PATCH] SynEdit: internal caret / qt git-svn-id: trunk@47719 - --- components/synedit/syneditpointclasses.pas | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas index 3c9894eddd..20a5ee6bba 100644 --- a/components/synedit/syneditpointclasses.pas +++ b/components/synedit/syneditpointclasses.pas @@ -2820,9 +2820,13 @@ procedure TSynEditScreenCaretPainterInternal.Init; begin {$IFDEF LCLCarbon} FForcePaintEvents := True; + {$ELSE} + {$IFDEF LCLQt} + FForcePaintEvents := True; {$ELSE} FForcePaintEvents := False; {$ENDIF} + {$ENDIF} FSavePen := TPen.Create; FColor := clBlack; FOldY := -1;