Ща попробую перевести кусок этот
if not ( Seans[ComboBox1.ItemIndex][r][m].State ) and
( time_Seans[ComboBox2.ItemIndex][r][m].State ) then
begin
Seans[ComboBox1.ItemIndex][r][m].State := true;
time_Seans[ComboBox2.ItemIndex][r][m].State := true;
( Sender as TPanel ).Color := clRed;
end
else
begin
Seans[ComboBox1.ItemIndex][r][m].State := false;
time_Seans[ComboBox2.ItemIndex][r][m].State := false;
( Sender as TPanel ).Color := clBtnFace;
end;
------------------------
как я понимаю.. если в массиве combobox1(ряд и место).обозначены и в массиве комбобокс2(ряд и место).обозначены
то
обозначенные массивы принимают знаечение истинно и цвет красный
иначе
значение ложно и цвет серый
|