Код:
for y := 0 to 639 do
begin
P := BitMap.ScanLine[y];
for x := 0 to 359 do
begin // Здесь
P[x].rgbtBlue:= 50;
P[x].rgbtGreen:=120;
P[x].rgbtRed:=0;
end; // Здесь
end;
Отсутствовали операторные скобки begin/end.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|