Цитата:
|
Сообщение от tager
а чтобы связать все три условия вот этот кусок нада писать для каждого?
if not Seans[ComboBox1.ItemIndex][r][m].State then
begin
Seans[ComboBox1.ItemIndex][r][m].State := true;
( Sender as TPanel ).Color := clRed;
end
else
begin
Seans[ComboBox1.ItemIndex][r][m].State := false;
( Sender as TPanel ).Color := clBtnFace;
end;
под одной процедурой?
|
На третье условие пример небыл рассчитан, в примере учитавается только фильм, а время не учитывается… там вообще неплохо бы все переписать…
А вообще, жидковатая тема для диплома… Ты где учишься?