Hi Delphianers.
Ich habe in meiner Form ein Paar Timages wo vom Benutzer geladene Icons angezeigt werden.
Die Timage hat eine Feste Grösse von 32x32 Pixel.
Wenn jetzt aber jemand eine Icon ladet die grösser ist als 32x32 wird nicht die ganze angezeit.
Hab schon gelesen das man die Stretchen kann und auch schon einen Code gefunden.
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var i: integer;
icon: Ticon;
TheBitmap, bit2: Tbitmap;
begin
icon := Ticon.Create;
icon.LoadFromFile('myIcon.ico');
Thebitmap := Tbitmap.Create;
Thebitmap.Width := icon.Width;
Thebitmap.Height := Icon.Height;
thebitmap.Canvas.Draw(0,0,icon);
bit2 := tbitmap.Create;
bit2.Width := 32;
bit2.Height := 32;
bit2.Canvas.StretchDraw(Rect(0,0,32,32), Thebitmap);
thebitmap.Free;
bit2.SaveToFile('temp.bmp');
bit2.Free;
image1.Picture.LoadFromFile('temp.bmp');
was jetzt allerdings ist das die geladene .bmp Datei die aus dem Icoin erstellt wurde jetzt nicht mehr transparent ist und einen weissen Hintergrund bekommen hat,
der natürlich jetzt auch in der Timage dann sichtbar ist kann man den Entfernen oder das ganze anders lösen ohne die icon in eine bmp umzuwandeln?
Grüsse Tom