Converter Bmp Para Icon ?

[escobar]

au alimento um LABEL... com dois digitos, dai eu crio um BMP do label fica bom, mas agora preciso transformar este BMP em ICON... será que alguém pode me ajudar ?

[Vivendo&Aprendendo]

Essa converte Bmp para Jpeg, testa ai e ve se converte para ICON, é só mudar alguns comandos... tipo alterar de jpeg para icon.

cara tente dessa forma:

Function BmpToJpeg(cImage: String):Boolean;

var

MyJPEG : TJPEGImage;

MyBMP : TBitmap;

begin

Result := False;

if fileExists(cImage+'.bmp') then

begin

MyBMP := TBitmap.Create;

with MyBMP do

begin

try

LoadFromFile(cImage+'.bmp');

MyJPEG := TJPEGImage.Create;

with MyJPEG do

begin

Assign(MyBMP);

SaveToFile(cImage+'.jpeg');

Free;

Result := True;

end;

finally

Free;

end;

end;

end;

end;

Obs : não testei ainda

falou

Alexandre

[escobar]

Não funciona o comando "Assign(MyBMP)"; não tem no TICONImage só no TJPEGImage