Hallo,
Ich möchte in meinem Programm ein richtiges Bild in ein Popupmenu einbauen, ich habs schon im menu drin nur es ist extrem verpixelt.
Daher wollte ich fragen ob es ich etwas machen kann dass es nichtmehr so verpixelt ist.
Hier der ausschnitt in dem ich das Bild ins Menu einfüge (glaube ich, hab mir die Canvas sachen noch nicht angeschaut)
Delphi-Quellcode:
procedure TForm1.pupImageAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; State: TOwnerDrawState);
begin
try
InflateRect(ARect,-5,-5) ;
ACanvas.StretchDraw(ARect, Image1.Picture.Graphic) ;
finally
end;
end;
Das Bild lade ich aus dem Internet in nen Stream und von dort in das TImage (umständlich aber mir is gestern abend nich besseres eingefallen).
Delphi-Quellcode:
LDestStream := TMemoryStream.Create;
...
LJpg := TJPEGImage.Create;
LJpg.LoadFromStream(LDestStream);
image1.Picture.Assign(Ljpg);
Das Codeschnippselchen hab ich aus dem Forum hier ^^
Also wie bekomme ich es hin dass mein Bild nichtmehr so verpixelt ist?
Ein Bild des Problems ist angehängt.
mfg D0N