TIcon in TBitmap konvertieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
begin
if OpenDialog1.Execute then
IconToBitmap(OpenDialog1.Filename);
end;