Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Canvas не обновляется...   Найти похожие ветки 

 
3APA3A ©   (2004-11-04 18:03) [0]

for i:= 0 to Length(MyArray) - 1 do
   Canvas.Pixels[MyArray[i].X, MyArray[i].Y] := clRed;

 координаты в MyArray постоянно изменяются. Также добавляются   новые элементы. И цикл этот крутится все время работы программы.
 Но выводится только первая точка. Остальные - нет.
 Причем, если после цикла добавить ShowMessage("") и сидеть, и постоянно давить на Enter - все прекрасно рисуется...  В чем проблема?


 
Prohodil Mimo ©   (2004-11-04 18:08) [1]

как один из вариантов:

for i:= 0 to Length(MyArray) - 1 do
begin
  Canvas.Pixels[MyArray[i].X, MyArray[i].Y] := clRed;
  paint;
end;


 
Prohodil Mimo ©   (2004-11-04 18:09) [2]

Prohodil Mimo ©   (04.11.04 18:08) [1]
хотя лажа получица :о)
надо по другому


 
3APA3A ©   (2004-11-04 18:14) [3]

Это ничего не меняет. Пробовал. Все равно только одна рисуется.


 
Anton_K ©   (2004-11-04 18:22) [4]

А может у вас в MyArray одни и те же координаты?


 
Rem ©   (2004-11-04 18:23) [5]

Скорее всего, проблема в MyArray[].
Вы уверены, что координаты из MyArray попадают в область отображения? Или что элементы массива отличаются друг от друга? Или что размер массива задан правильно?


 
icWasya ©   (2004-11-04 18:29) [6]

А если после цикла добавить Application.ProcessMessages; ???


 
Rem ©   (2004-11-04 18:34) [7]

icWasya ©   (04.11.04 18:29) [6]

С каких это пор Pixels работает через PostMessage?


 
3APA3A ©   (2004-11-04 22:42) [8]

Нет, проблема не в массиве. Т.к. сказал же - если после цикла дописать ShowMessage() и постоянно давить enter - все рисуется...
 Какие еще варианты?


 
3APA3A ©   (2004-11-04 23:10) [9]

Ой блин...Разобрался... Дело на самом деле не в Canvas"е было...
Извините...



Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.063 c
14-1099243806
123
2004-10-31 20:30
2004.11.21
MS-DOS


1-1100087739
Leksiy
2004-11-10 14:55
2004.11.21
Перебор каталогов


4-1097498188
Comp
2004-10-11 16:36
2004.11.21
Подсказки на ToolBar


3-1098712903
Tchainik
2004-10-25 18:01
2004.11.21
IBDataSet.


1-1099642844
hh
2004-11-05 11:20
2004.11.21
Как объект привести в первоначальное состояние?