From ab26d780089b1b46ae12963186c88cc5829caa72 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 12 Jun 2009 15:39:24 +0000
Subject: [PATCH] Qt: added XOR caret composition mode.Supported only with >=
 Qt-4.5. Fixes #11599.

git-svn-id: trunk@20603 -
---
 lcl/interfaces/qt/qtcaret.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/interfaces/qt/qtcaret.pas b/lcl/interfaces/qt/qtcaret.pas
index 69257231a9..3ac896a040 100644
--- a/lcl/interfaces/qt/qtcaret.pas
+++ b/lcl/interfaces/qt/qtcaret.pas
@@ -311,7 +311,14 @@ begin
   if IsValid and FVisible and FVisibleState then
   begin
     R := Rect(0, 0, QPixmap_width(FPixmap), QPixmap_height(FPixmap));
+    {$IFDEF USE_QT_45}
+    TQtDeviceContext(FWidget.Context).save;
+    TQtDeviceContext(FWidget.Context).setCompositionMode(QPainterRasterOp_NotSourceXorDestination);
     TQtDeviceContext(FWidget.Context).drawPixmap(PQtPoint(@FPos), FPixmap, PRect(@R));
+    TQtDeviceContext(FWidget.Context).restore;
+    {$ELSE}
+    TQtDeviceContext(FWidget.Context).drawPixmap(PQtPoint(@FPos), FPixmap, PRect(@R));
+    {$ENDIF}
   end;
 end;