Hi, Ihr's.
Habe mal ein Sample-Projekt erstellt das die Bitmaps mit
Scanline vergleicht (ca. 33,3.14159 mal schneller als ...Pixel[x, y]
) also ohne gr32 Units. (Bild 5200 x 2600 auf einem AMD 2000 MHz ca. 0,5 Sekunden)
Original-Bild wird mit Test-Bild verglichen und die Unterschiede im Preview-Bild angezeigt.
Dieser Umstand deshalb, damit nicht die Vergleichs-Zeichnungen als Fehler interpretiert werden.
Mit ScanLine zu Arbeiten ist recht einfach z.B.:
Delphi-Quellcode:
procedure ScanLine_PutPixel(Bitmap: TBitmap; X, Y: Integer; Color: TColor);
var
Pixel: PRGBQuad;
begin
Pixel := Bitmap.ScanLine[Y];
Inc(Pixel, X);
Pixel^.rgbRed := Byte(Color);
Pixel^.rgbGreen := Byte(Color shr 8);
Pixel^.rgbBlue := Byte(Color shr 16);
end;
Link verschoben nach:
Bitmap Compare - Bitmaps vergleichen mit Scanline (wegen der Möglichkeit der Bearbeitung)