Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
15. Apr 2011
Ah, ok! - Danke für die Erklärung!
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
15. Apr 2011
Eine Frage hätt ich aber noch:
Was genau bewirkt diese Zeile: SetStretchBltMode(temp.Canvas.Handle, HALFTONE);?
Wenn ich die Hilfe zu "HALFTONE" verstanden habe, so bekommen im Dest-Bitmap die neuen notwendigen Pixel die durchschnittliche Farbe der umliegenden Pixel. Oder hab ich da was missverstanden?
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
15. Apr 2011
Hallo DeddyH,
Dank dir für die Erweiterung. Bei Smooth = false schauts sehr gut aus
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
14. Apr 2011
Ich muss da noch was anpassen :-)
Würd das erklären dass mein Bitmap verkleinert mittels StretchBlt unschärfer ausschaut als mittels StretchDraw?
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
14. Apr 2011
Irgendwie bin ich jetzt aber ein wenig frustiert :-) - DeddyH´s Code funktioniert sehr gut - meiner nur bedingt :cry:
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
14. Apr 2011
Warum noch das Anpassen von BitBtn1.Glyph.Width /bzw. .Height?
Bringt bei mir nichts - also es verändert sich nichts
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
14. Apr 2011
Ich hab jetzt nochmal ein wenig rumgespielt und bin auf folgende Lösung gekommen:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp, bmp2: TBitmap;
begin
bmp := TBitmap.Create;
bmp2 := TBitmap.Create;
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
14. Apr 2011
Leider (oder doch Gott sei Dank :mrgreen:) hast du nicht recht - das bringt gar nichts.
Inspiriert von meinem Code bin ich durch diesen Link worden.
Nur damit ändert sich die Größe des Bildes nicht.
erst mal gar keine :-)
Eine Größenangabe ergab leider auch keine Veränderung, ausser dass ich im BitBtn ein weisses Feld sah.
Forum: Object-Pascal / Delphi-Language
Delphi
by Helmi,
14. Apr 2011
Hallo,
ich steh grad auf dem Schlauch.
Ich lade in eine Bitmap-Variable ein Bitmap und möchte dies skaliert in einen BitBtn laden.
Ich hab das Ganze mal in ein Test-Projekt ausgelagert.
Das Ganze versuch ich mit StrechDraw.
procedure TForm1.Button1Click(Sender: TObject);