Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2
  Alt 21. Aug 2002, 09:37
Da kannst das TBitmap.ScanLine[] Array einsetzen. Es ist jedoch abhängig von der verwendeten Farbtiefe des Bitmaps. Bei 24Bit ergeben immer 3 Bytes ein Pixel. Du solltest also vor dem Einsatz von ScanLine die TBitmap.PixelFormat-Eigenschaft setzen (z.B. auf pf24bit).

Und die Prozentangabe ist doch gar kein Problem. Du ermittelst, wieviele Pixel sich unterscheiden, multiplizierst es mit 100 und dividierst das ganze dann durch die Gesamtanzahl alle Pixel.

Prozent := (Ermittelt * 100) div (Width * Heigth);
  Mit Zitat antworten Zitat