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

qt: support mask in CreateIconIndirect

Browse Source 
git-svn-id: trunk@15525 -
This commit is contained in:
paul 2008-06-23 06:39:58 +00:00
parent 27690f4681
commit 33957ab7a7
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtwinapi.inc
View File

@ -575,13 +575,23 @@ end;
function TQtWidgetSet.CreateIconIndirect(IconInfo: PIconInfo): HICON;
var
AIcon: TQtIcon;
APixmap: QPixmapH;
APixmap, ATemp: QPixmapH;
AMask: QBitmapH;
begin
Result := 0;
if IsValidGDIObject(IconInfo^.hbmColor) then
begin
APixmap := QPixmap_create();
QPixmap_fromImage(APixmap, TQtImage(IconInfo^.hbmColor).Handle);
if IconInfo^.hbmMask <> 0 then
begin
ATemp := QPixmap_create();
QPixmap_fromImage(ATemp, TQtImage(IconInfo^.hbmMask).Handle);
AMask := QBitmap_create(ATemp);
QPixmap_setMask(APixmap, AMask);
QPixmap_destroy(ATemp);
QBitmap_destroy(AMask);
end;
if IconInfo^.fIcon then
begin
AIcon := TQtIcon.Create;