Delphi Alle Pixel durchscannen

Thema durchsuchen

Ansicht

Themen-Optionen

Alle Pixel durchscannen

Ein Thema von Supremacy · begonnen am 15. Okt 2003 · letzter Beitrag vom 15. Okt 2003

Vorheriger Beitrag

Nächster Beitrag

OLLI_T

Registriert seit: 13. Okt 2003
Ort: Nähe Wetzlar / Hessen
143 Beiträge

Delphi 5 Enterprise

Re: Alle Pixel durchscannen

15. Okt 2003, 12:52

Ändere doch mal folgendes:

markieren

Delphi-Quellcode:

			for i:=0 to screen.Width-1 do begin 

for x:=0 to screen.Height-1 do begin

Manchmal ist weniger mehr ...

Gruss

OLLI

Ps.: Eventuell kannst Du Deine Routine erheblich beschleunigen, wenn Du mit BitBlt zunächst den Desktop in ne Bitmap kopierst und dann per Scanline an die Geschichte rangehst! GetPixel bzw. Canvas.Pixel[x,y] ist nämlich laaaangsaaaam.

No Pain No Gain!