Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-09 17:50:30 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Screenshot program bugfix

Browse Source
This commit is contained in:
Владислав Джавадов 2020-05-22 23:25:07 +03:00
parent d72a460d22
commit 238356dff9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
KolibriOS/Examples/Screenshot/Screenshot.dpr
View File

@ -47,12 +47,12 @@ begin
while B < Screen.Height do
begin
I := ((Screen.Width div 2) * B + A) div 2;
Preview[i].Red := (Red(A, B) + Red(B + 1, B) + Red(A, B + 1) + Red(A + 1, B + 1)) div 4;
Preview[i].Red := (Red(A, B) + Red(A+ 1, B) + Red(A, B + 1) + Red(A + 1, B + 1)) div 4;
Preview[i].Green := (Green(A, B) + Green(A + 1, B) + Green(A, B + 1) + Green(A + 1, B + 1)) div 4;
Preview[i].Blue := (Blue(A, B) + Blue(A + 1, B) + Blue(A, B + 1) + Blue(A + 1, B + 1)) div 4;
Inc(B, 2);
end;
Inc(B, 2);
Inc(A, 2);
end;
end;