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

Вниз

Виснет при проверке Чекбокса   Найти похожие ветки 

 
Boyza ©   (2004-04-11 14:53) [0]

Вырезка кода

...

procedure TGraph3dForm.CheckRotateClick(Sender: TObject);
begin
 if CheckRotate.Checked=true then
 begin
   fi:=fi+5;
   teta:=teta+1;
   drawCoordinates;
 end;
end;

...

Я хочу, чтобы при активном флажке выполнялось приращение углов и прорисовка графика заново на каждое изменение "фи" и "тэта"
Но после активирования флажка прога виснет. В чем моя ошибка здесь?


 
begin...end ©   (2004-04-11 15:44) [1]

Видимо, непорядок в DrawCoordinates.

P.S. if CheckRotate.Checked=true :)))


 
Boyza ©   (2004-04-11 18:40) [2]

Вопрос снимаю (в прорисовке координат все в порядке было),
просто не заметил бесконечный цикл (вернее думал, что выйти можно сняв флажок в чекбоксе)


 
Palladin ©   (2004-04-11 20:03) [3]

так круче

if (CheckRotate.Checked=true)=True)=True

а вообще для избегания таких вот конструкций можно просто написать

Function IsCheckRotateCheked(C:TCheckBox):Boolean;
begin
Result:=IsCheckRotateChecked(C)=True;
end;


 
Boyza ©   (2004-04-12 19:33) [4]

1. Может будете меня еще учить логическим операциям? Я пишу так, чтобы потом мне было удобно отслеживать код, а не для минимизации кода.

Palladin, тебе нравится такая конструкция
{
if (((!((x-5)<8))||((double)(8/i)<4))&&((i++)>57))
 cout << "gi\tpolutsilosyaaa!!!";
}

Думаю ты меня понял?



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

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

Наверх




Память: 0.47 MB
Время: 0.047 c
4-1078857378
Tofig Gasanov
2004-03-09 21:36
2004.05.02
Нестандартные окна..


1-1081848346
Блондинка
2004-04-13 13:25
2004.05.02
Как отловить минимизирование формы ?


1-1081925164
Yevgeniy
2004-04-14 10:46
2004.05.02
Загрузка BMP из ресурсов в компоненте


1-1082214926
Barmaglot
2004-04-17 19:15
2004.05.02
Pascal......работа с матрицами....


3-1081277285
neVIP
2004-04-06 22:48
2004.05.02
Как лечить Cannot modify