Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
14. Apr 2011
Die schönere HALFTONE Umsetzung, die DeddyH ins Spiel gebracht hat, hast Du wieder verworfen?
Ist auch nicht garantiert proportional, ausser die Quellbilder sind in der Richtung festgelegt.
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
14. Apr 2011
Dann wäre aber die Methode Assign diesmal anders als üblicherweise.
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
14. Apr 2011
Ich werfe dann noch eine Skalierungs-Funktion hinterher. Man sollte sowieso nicht soviele Aufgabe in eine einzelne Funktion packen.
Mit dem Ergebnis Initialisierst Du das Ziel-Bitmap. Kannst auch auf X/Y Parameter (also direkte Übergabe von Width/Height) umschreiben oder einem Rect für StretchDraw.
function ScaleSize(Size : TSize; MaxBorderLength : Integer): TSize;
var
Ratio : Double;...