16x16px Icon auf Canvas zeichnen

[bitsetter]

Hi,

bei mir geht es jedenfalls hiermit, dass das Icon mit einer Größe von 16X16 angezeigt wird:

Delphi-Quellcode:

var
  ico: TIcon;
begin
  ico:= TIcon.Create;
  try
    ico.Handle:=  LoadImage(Hinstance, MakeIntResource(1), IMAGE_ICON, 16, 16, 0);
    Canvas.Draw(0, 0, ico);
  finally
    ico.Free;
  end;