Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.316 Beiträge
 
Delphi 12 Athens
 
#1

AW: Pixels und scanline

  Alt 22. Apr 2017, 08:13
Delphi-Quellcode:
var C: TColor; x, Y: Integer;

C := FarbCodeZuTColor('');
for X := 0 to Bild.Width-1 do
  for Y := 0 to Bild.Heigt-1 do
    if Bild.Canvas.Pixels[x, y] = C then
      Machwas;
Und wenn das zu langsam ist, dann kann man mit ScanLine anfangen und damit "schneller" auf "alle" Pixel einer Zeile im Bild zugreifen.
Diese Daten stehen dann da aber auch im Format von Delphi-Referenz durchsuchenTBitmap.PixelFormat und man muß das Bild entweder vorher in ein passendes Format umwandeln, bzw. wirft einen Fehler wenn ein falsches Format vorliegt oder rechnet das TColor entsprechend um.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (22. Apr 2017 um 08:17 Uhr)
  Mit Zitat antworten Zitat