GetPixelCount

[Janilabo 11]

Counts the amount of pixels in area (XS, YS, XE, YE). Example included.

 

GetPixelCount

[scar]function GetPixelCount(XS, YS, XE, YE: Integer): Integer;

begin

if (XS > XE) or (YS > YE) then

Exit;

Result := (((XE - XS) + 1) * ((YE - YS) + 1));

end;

 

var

W, H: Integer;

 

begin

SetDesktopAsClient;

GetClientDimensions(W, H);

WriteLn('Desktop screen contains ' + IntToStr(GetPixelCount(0, 0, (W - 1), (H - 1))) + ' pixels!');

end.[/scar]

[Bixby Sayz 4]

Holy crap someone has been busy. I swear your post count doubled in a single day.