DriveSoft wrote:Доработал пример, индивидуальный цвет для неактивного состояния задается скриптом
begin
....
Form1.Panel1.Tag := clBlue;
Form1.Panel2.Tag := clYellow;
Form1.Panel3.Tag := clBlack;
end.
таком образом можете разместить на форме любое количество панелек
Спасибо. Всё работает. Дмитрий, если можно последний вопрос/просьба. У меня на панельки при нажатии повешены скрипты двух вариантов
procedure frmOrder_Panel13_OnClick (Sender: string);
begin
frmOrder.GridOrder.dbFilter := '(repairstatus <> "Принят")';
frmOrder.GridOrder.dbUpdate;
end;
и второй вариант
procedure frmOrder_Panel2_OnClick (Sender: string);
begin
frmOrder.cdRepStatus.Caption:='Принят';
frmOrder.bSearch.Click;
end;
Получается, что цвет панелька меняет, а вот OnClick перестал срабатывать. Можно сделать, что бы OnClick срабатывал и запоминал состояние статуса, актуально к скрипту варианта
procedure frmOrder_Panel13_OnClick (Sender: string);
begin
frmOrder.GridOrder.dbFilter := '(repairstatus <> "Принят")';
frmOrder.GridOrder.dbUpdate;
end;
надо идти вперёд....