Показать сообщение отдельно
  #2  
Старый 04.09.2013, 02:23
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Код:
  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 в.д.
Ответить с цитированием