Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
26. Feb 2015
Gut regergiert, Sherlock! 8-)
eine interessante Funktion
Ich hab das mal für normale Bitmaps (testweise) umgestrickt:
procedure ResizeImage(Bitmap: TBitmap; NewWidth:Integer);
var
WICImage : TWICImage;
WICBitmap: IWICBitmap;
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2015
Und wie stellt man das an?
Aber ich glaub es muss so lauten:
Bitmap.TransparentColor := Bitmap.Canvas.Pixels;
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2015
mmh - diese Aussage find ich interessant
Ich muss, glaub ich, noch etwas über das Verarbeiten nach dem Skalieren erzählen
Das skalierte Bitmap wird danach in einem StringGrid angezeigt und zwar mittels diesem Code:
StringGrid.Canvas.Draw(Rect.Left, Rect.Top, Bitmap);
Und da bekomm ich immer den Hintergrund mit
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2015
Ich hab mit Direct2DCanvas jetzt mal was gebastelt:
procedure Scale_Bitmap(var Bitmap: TBitmap; DestWidth, DestHeight: Integer);
var
faktor : Real;
Width_Bitmap: Integer;
D2DCanvas : TDirect2DCanvas;
Temp_Bitmap : TBitmap;
Rect : TRect;
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2015
Leider nein
Ich hab alle drei Bitmaps (Bitmap, Temp_Bitmap, Copy_Bitmap) mal testweise auf pf32Bit gesetzt, aber ohne Verbesserung des Problemes
Ich glaub ich weiss wo das Problem ist
Der schwarze Hintergrund ist schon im Original-Bitmap vorhanden
Das Original-Bitmap beinhaltet ein Icon
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
25. Feb 2015
ich hab mir jetzt mal Graphics32 angeschaut
hab jetzt aber nur die Möglichkeit gefunden, Bitmaps via TImage32 zu skalieren
Gibt es auch eine Möglichkeit das direkt im Bitmap32 zu machen?
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
21. Feb 2015
hab ich versucht, aber leider ohne Erfolg
smooth ist true
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
21. Feb 2015
Hallo,
ich nutze zum skalieren von Bitmaps diese Function:
procedure Scale_Bitmap(var Bitmap: TBitmap; DestWidth, DestHeight: Integer;
Smooth: Boolean = false);
var
faktor : Real;
Width_Bitmap: Integer;
Temp_Bitmap : TBitmap;