如何将图标从资源加载到TImage? [英] How to load an icon from resources to a TImage?

问题描述

我尝试以下代码，但无法正常工作... LoadIconWithScaleDown 返回错误代码.

I try the following code and it's not working... LoadIconWithScaleDown returns a negative error code.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure LoadResToImg(RID: String; const Img: TImage);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R UserResources.res}

uses Winapi.CommCtrl;

procedure TForm1.LoadResToImg(RID: String; const Img: TImage);
var Ico: TIcon;
    hI: HICON;
    HR: HResult;
begin
 Ico:= TIcon.Create;
 HR:= LoadIconWithScaleDown(HInstance, PChar(RID), Img.Width, Img.Height, hI);
 Ico.Handle:= hI;
 Img.Picture.Bitmap.Assign(Ico);
 Ico.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 LoadResToImg('OFFLINE', Image1);
end;

end.

UserResources.rc

UserResources.rc

OFFLINE      ICON    "gray_button.ico"
ONLINE       ICON    "green_button.ico" 

推荐答案

这可能是因为该Win32函数的VCL包装器(在 Winapi.CommCtrl.pas 中)有故障，或者至少不能立即使用.

This is probably because the VCL's wrapper (in Winapi.CommCtrl.pas) for this Win32 function is faulty, or at least cannot be used straight away.

因此，您可以自己声明:

So instead declare it yourself:

function LoadIconWithScaleDown(hinst: HINST; pszName: LPCWSTR; cx: Integer;
    cy: Integer; var phico: HICON): HResult; stdcall; external 'ComCtl32';

但是请注意，此功能仅在Windows Vista +(IIRC)中存在.

But beware that this function is only present on Windows Vista+ (IIRC).

这篇关于如何将图标从资源加载到TImage?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！