AW: Pixels und scanline
Delphi-Quellcode:
Und wenn das zu langsam ist, dann kann man mit ScanLine anfangen und damit "schneller" auf "alle" Pixel einer Zeile im Bild zugreifen.
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; Diese Daten stehen dann da aber auch im Format von TBitmap.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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:33 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz