paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 04:32:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: more adjustments for R2ToQtRasterOp

Browse Source 
git-svn-id: trunk@22126 -
This commit is contained in:
paul 2009-10-13 02:22:42 +00:00
parent 40da25442d
commit cce715386e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtobjects.pas
View File

@ -692,7 +692,7 @@ function R2ToQtRasterOp(AValue: Integer): QPainterCompositionMode;
begin
{TODO: test unsupported modes by real CompositionMode}
case AValue of
R2_BLACK: Result := QPainterCompositionMode_SourceOver; // unsupported
R2_BLACK: Result := QPainterCompositionMode_Clear; // unsupported
R2_COPYPEN: Result := QPainterCompositionMode_SourceOver; // default
R2_MASKNOTPEN: Result := QPainterRasterOp_NotSourceAndDestination;
R2_MASKPEN: Result := QPainterRasterOp_SourceAndDestination;
@ -700,13 +700,13 @@ begin
R2_MERGENOTPEN: Result := QPainterCompositionMode_SourceOver; // unsupported
R2_MERGEPEN: Result := QPainterRasterOp_SourceOrDestination;
R2_MERGEPENNOT: Result := QPainterCompositionMode_SourceOver; // unsupported
R2_NOP: Result := QPainterCompositionMode_Destination; // unsupported
R2_NOP: Result := QPainterCompositionMode_Destination;
R2_NOT: Result := QPainterCompositionMode_SourceOut; // unsupported
R2_NOTCOPYPEN: Result := QPainterRasterOp_NotSource;
R2_NOTMASKPEN: Result := QPainterRasterOp_NotSourceOrNotDestination;
R2_NOTMERGEPEN: Result := QPainterRasterOp_NotSourceAndNotDestination;
R2_NOTXORPEN: Result := QPainterRasterOp_NotSourceXorDestination;
R2_WHITE: Result := QPainterCompositionMode_SourceOver; // unsupported
R2_WHITE: Result := QPainterCompositionMode_Screen; // unsupported
R2_XORPEN: Result := QPainterRasterOp_SourceXorDestination;
else
Result := QPainterCompositionMode_SourceOver;