а чтобы связать все три условия вот этот кусок нада писать для каждого?
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;
под одной процедурой?
|