hi leutz, ich will umbedingt ein bmp zu einem ico umformen, dann nach langer suche hab ich diesen code gefunden. Ich hab probiert in so umzuformen dass ich eine bmp datei angeben kann, und dann eine ico datei dann gespeichert wird. Nur dies erscheint mir unmöglich. Könnnt ihr mir helfen, danke. Wenns geht vielleicht da n bisschen was an code dazutexen dass es auch funktioniert. danke
Delphi-Quellcode:
function CreateIconFromBmp(Bmp: TBitmap): TIcon;
begin
with TImageList.CreateSize(Bmp.Width, Bmp.Height) do
try
{$IFDEF VER90}
with Bmp do AddMasked(Bmp, Canvas.Pixels[Width-1, Height-1]);
{$ELSE}
AddMasked(Bmp, Bmp.TransparentColor);
{$ENDIF}
Result := TIcon.Create;
GetIcon(0, Result);
finally
Free;
end;
end;