TImage Ergebnisse nicht gut (genug)!

[mandumoal]

Hi!

Was gibt es denn für Möglichkeiten schönere Bildchen zu zaubern auf denen nicht diese "Verpixelungen" (z.B. bei Kurven) zu erkennen sind?
(siehe Anhang)

mfg mandumoal

[sakura]

Da musst Du Dich selbst ins Zeug legen. Aber eine Suche nach anti-aliasing sollte Dir weiter helfen.

...:cat:...

[mandumoal]

Hi!

Ich habe mal die Antialiasing Procedure von Sanchez Antialiasing ausprobiert aber habe einige Probleme:

Erst mal habe ich mein Bild das schöner aussehen will in einem TImage.
Wie kann ich denn daraus ein Bitmap machen, welches ich dann der Procedure übergeben kann?

Ich habes es mal mit einem Bitmap probiert und bekam an dieser Stelle eine Exeption (Zugriffsverletzung):

Delphi-Quellcode:

procedure Antialiasing(Bitmap: TBitmap; Rect: TRect; Percent: Integer); 
var 
  pix, prevscan, nextscan, hpix: ^PixArray; 
  l, p: Integer; 
  R, G, B: Integer; 
  R1, R2, G1, G2, B1, B2: Byte; 
begin 
  Bitmap.PixelFormat := pf24bit; //<<<<<<------Hier
  with Bitmap.Canvas do begin 
    Brush.Style := bsclear; 
    for l := Rect.Top to Rect.Bottom - 1 do begin 
      pix:= Bitmap.ScanLine[l]; 
      if l <> Rect.Top then prevscan := Bitmap.ScanLine[l-1] 
      else prevscan := nil; 
      if l <> Rect.Bottom - 1 then nextscan := Bitmap.ScanLine[l+1] 
      else nextscan := nil;

Was ist denn an der Stelle schiefgelaufen?

das ist erstmal genug

mfg mandumoal