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