1
OPC UA/DA сервер arOPC / Re: Ширина колонок
« : 13 Января 2026, 08:43:45 »
Да Ваша рекомендация помогла. Спасибо!
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
dwCMD_Set.Value := SetBit(dwCMD_Set.Value, 20, True);
dwCmd_TP_Set.Value := SetBit(dwCmd_TP_Set.Value, 20, True);
procedure SelectRoutes(aNameSubPage, aNameTC:String; tblRoutes_U4XXXMXX_XXX:TM_Table);
var
aQuery: string;
aSubPage: TM_Subpage;
begin
aSubPage := pVCU.FindSubpageByName(aNameSubPage);
if aSubPage <> nil then
begin
aQuery := 'SELECT ... FROM ... WHERE TC=' ... ' + QuotedStr(aNameTC);
tblRoutes_U4XXXMXX_XXX.RunSQL(aQuery, tsSaveFixRow);
end else
begin
ShowMessageClient(GetClientName, 'Предупреждение!', 'Выберите ТС.');
Exit;
end;
end;
aSubPage := pVCU.FindSubpageByName(aNameSubPage);
aSubPage := aNameSubPage.FindSubpageByName('pVCU');var
bTC:TM_Button;
txtText:TM_Text;
begin
txtText := GetTemplateObject('Text8022') as TM_Text;
txtText.Text := 'Test';
bTC := GetTemplateObject('tmp_butTC') as TM_Button;
bTC.States[0].Caption := 'TU4' + IntToStr((Sender as TM_Button).Tag);
end.