61
Ваши вопросы / Re: Шаблоны и все такое 3
« : 10 Июня 2024, 10:56:33 »
Добрый день!
Идеи интересные. Надо так сказать руками потрогать. Спасибо!
Идеи интересные. Надо так сказать руками потрогать. Спасибо!
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.

begin
if Sender is TM_Button then
with Sender as TM_Button do
begin
if (GetBit(VariableEx.AsInt, Tag) = TRUE) AND (ActiveState = 0) then
begin
States[0].Color := RGB(0,72,24);
States[0].BorderColor := RGB(32,160,60);
States[0].FontColor := RGB(64,200,120);
end;
if (GetBit(VariableEx.AsInt, Tag) = FALSE) AND (ActiveState = 0) then
begin
States[0].Color := RGB(0,48,48);
States[0].BorderColor := RGB(16,120,120);
States[0].FontColor := RGB(32,240,234);
end;
end;
end.
begin
if Sender is TM_CheckBox then
with Sender as TM_CheckBox do
begin
if GetBit(Variable.AsInt, BitNumber) then
begin
Color := RGB(32,160,60);
Alpha := 255;
end
else
begin
Color := RGB(16,120,120);
Alpha := 128;
end;
end;
end.

begin
if Sender is TM_Button then
with Sender as TM_Button do
begin
if (VariableEx.AsBool = TRUE) AND (ActiveState = 0) then
States[0].Color := $008000;
if (VariableEx.AsBool = FALSE) AND (ActiveState = 0) then
States[0].Color := $003030;
end;
end.