paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 11:16:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: added XOR caret composition mode.Supported only with >= Qt-4.5. Fixes #11599.

Browse Source 
git-svn-id: trunk@20603 -
This commit is contained in:
zeljko 2009-06-12 15:39:24 +00:00
parent c21ef12e52
commit ab26d78008
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtcaret.pas
View File

@ -311,7 +311,14 @@ begin
if IsValid and FVisible and FVisibleState then if IsValid and FVisible and FVisibleState then
begin begin
R := Rect(0, 0, QPixmap_width(FPixmap), QPixmap_height(FPixmap)); 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).drawPixmap(PQtPoint(@FPos), FPixmap, PRect(@R));
TQtDeviceContext(FWidget.Context).restore;
{$ELSE}
TQtDeviceContext(FWidget.Context).drawPixmap(PQtPoint(@FPos), FPixmap, PRect(@R));
{$ENDIF}
end; end;
end; end;