Lav ikon fra jpg-fil

<quote>Jeg har lavet en ikon i Paint Shop Pro, som jeg vil bruge til mine programmer, men hvordan laver jeg det til en ico-fil ???

Hvilket program skal jeg bruge??</quote>


Prøv den her :

Procedure BMP2ICO (FileName : TFilename);
var
Bmp: TBitmap;
Ico: TIcon;
ImageList: TImageList;
begin
Bmp := TBitmap.Create;
Ico := TIcon.Create;
try
Bmp.LoadFromFile(FileName);
ImageList := TImageList.CreateSize(Bmp.Width, Bmp.Height);
try
ImageList.AddMasked(Bmp, Bmp.Canvas.Pixels[0,0]);
ImageList.GetIcon( 0, Ico);
ChangeFileExt(FileName, '.ICO');
Ico.SaveToFile(FileName);
finally
ImageList.Free;
end;
finally
Bmp.Free;
Ico.Free;
end;
end;


Jens B

<quote>Hvilket program skal jeg bruge??</quote>
Jah, du kunne jo f.eks. bruge programmet Image Editor som følger med Borland Delphi. Jeg tror at du ret hurtigt lærer programmet at kende. Og så kunne du jo også lige se lidt på artiklen http://www.udvikleren.dk/vis_artikel.php4?id=18

Mvh. /Martin

martintaarn@hotmail.com