Home » Tipps & Tricks » Grafik » Konvertierungen » TIcon in TBitmap konvertieren

TIcon in TBitmap konvertieren

Folgende Prozedur muss der Dateiname (inkl. Pfad!) einer Icon-Datei übergeben werden. Das Icon wird dann in ein TBitmap konvertiert und unter dem gleichen Dateinamen mit der Endung „.bmp“ wieder gespeichert:

procedure IconToBitmap(const AFilename: string);
var
  Icon   : TIcon;
  Bitmap : TBitmap;
begin
  Icon   := TIcon.Create;
  Bitmap := TBitmap.Create;
  try
    Icon.LoadFromFile(AFilename);
    Bitmap.Width:=Icon.Width;
    Bitmap.Height:=Icon.Height;
    Bitmap.Canvas.Draw(0, 0, Icon);
    Bitmap.SaveToFile(ChangeFileExt(AFilename,'.bmp')); ;
  finally
    Icon.Free;
    Bitmap.Free;
  end;
end;

Aufgerufen werden kann die Prozedur beispielsweise so:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   IconToBitmap(OpenDialog1.Filename);
end;