Bitmap mit 64x64 Pixeln und True Color aus Resource-DLL

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap1: TBitMap; 
begin 
  BitMap1 := TBitMap.Create; 
  try 
    BitMap1.LoadFromResourceName(HInstance,' DASBITMAP'); 
    Canvas.Draw(12, 12, BitMap1); 
  finally 
    BitMap1.Free; 
  end; 
end;

Von Luckie!

Grüsse, Daniel