paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 14:30:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

TQtImage.AsPixmap

Browse Source 
git-svn-id: trunk@11460 -
This commit is contained in:
paul 2007-07-11 08:37:31 +00:00
parent af8e274993
commit 77dc0b4f95
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -80,6 +80,7 @@ type
constructor Create(Adata: PByte; width: Integer; height: Integer; format: QImageFormat); overload; constructor Create(Adata: PByte; width: Integer; height: Integer; format: QImageFormat); overload;
destructor Destroy; override; destructor Destroy; override;
function AsIcon(AMode: QIconMode = QIconNormal; AState: QIconState = QIconOff): QIconH; function AsIcon(AMode: QIconMode = QIconNormal; AState: QIconState = QIconOff): QIconH;
function AsPixmap: QPixmapH;
public public
function height: Integer; function height: Integer;
function width: Integer; function width: Integer;
@ -460,14 +461,19 @@ function TQtImage.AsIcon(AMode: QIconMode = QIconNormal; AState: QIconState = QI
var var
APixmap: QPixmapH; APixmap: QPixmapH;
begin begin
APixmap := QPixmap_create(); APixmap := AsPixmap;
QPixmap_fromImage(APixmap, Handle);
Result := QIcon_create(); Result := QIcon_create();
if Result <> nil then if Result <> nil then
QIcon_addPixmap(Result, APixmap, AMode, AState); QIcon_addPixmap(Result, APixmap, AMode, AState);
QPixmap_destroy(APixmap); QPixmap_destroy(APixmap);
end; end;
function TQtImage.AsPixmap: QPixmapH;
begin
Result := QPixmap_create();
QPixmap_fromImage(Result, Handle);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TQtImage.height Method: TQtImage.height
Params: None Params: None