delphi - BMP 2 ICO - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #10266 @ 11.11.06 17:08

Hey

Jeg har prøvet før, men jeg prøver med lidt flere up.

Jeg skal bruge et stykke kode, til at formatere BMP til ICO (Bitmap til Ikon).

Jeg vil ikke have et eller andet link, men have det forklaret på dansk, og det må gerne være testet da jeg skal bruge det med det samme.

Help ...

8 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #8254 @ 12.11.06 10:09

280

prøv at indsætte en ImageList på din form, med navnet ImageList1 og brug denne kode i en button:

Kode

var
  Image:TBitmap;
  Icon:TIcon;
begin
  Image := TBitmap.Create;
  Image.LoadFromFile('c:\\billede.bmp');
  ImageList1.AddMasked(Image,clFuchsia);
  Icon := TIcon.Create;
  ImageList1.GetIcon(0,Icon);
  Icon.SaveToFile('c:\\icon.ico');
  Icon.Free;
  Image.Free;

Bruger #4479 @ 11.11.06 17:35

602

Nu har jeg aldrig kodet så meget Delphi, men fandt denne kode:

Kode

var
   Icon : TIcon;
   Bitmap : TBitmap;
begin
   Icon := TIcon.Create;
   Bitmap := TBitmap.Create;
   Icon.LoadFromFile('c:\\picture.ico') ;
   Bitmap.Width := Icon.Width;
   Bitmap.Height := Icon.Height;
   Bitmap.Canvas.Draw(0, 0, Icon ) ;
   Bitmap.SaveToFile('c:\\picture.bmp') ;
   Icon.Free;
   Bitmap.Free;
end;

Tror at den kan laves om til:

Kode

var
   Icon : TIcon;
   Bitmap : TBitmap;
begin
   Icon := TIcon.Create;
   Bitmap := TBitmap.Create;
   Bitmap.LoadFromFile('c:\\picture.bmp') ;
   Icon.Width := Bitmap.Width;
   Icon.Height := Bitmap.Height;
   Icon.Canvas.Draw(0, 0, Bitmap ) ;
   Icon.SaveToFile('c:\\picture.ico') ;
   Icon.Free;
   Bitmap.Free;
end;

Bruger #3275 @ 11.11.06 18:23

1.736

Samme spørgsmål blev stillet for ikke så lang tid siden

http://www.udvikleren.dk/Thread.aspx?f=2&t=17983

Bruger #10266 @ 11.11.06 20:35

125

Mathias:

Har faktisk prøvet den kode, men der er desværre ikke noget der hedder Icon.Canvas.Draw(0, 0, Bitmap ) ;

Jonas:

Det var mig der stillede spørgsmålet, men det kom aldrig til at virke

Jeg ved man kan, men der var ingen der intereserede sig til sidst, så nu prøver jeg med flere UP