Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
if not (Sender is TM_Button) then Exit;
with Sender as TM_Button do
if Assigned(VariableEx) then
if GetBit(VariableEx.AsInt,7) then
begin
VariableEx.Value := SetBit(VariableEx.Value,7,False);
VariableEx.Value := SetBit(VariableEx.Value,6,False);
end else
begin
VariableEx.Value := SetBit(VariableEx.Value,6,False);
end;
end.
end.
begin
if vrSCREEN.AsInt = 0 then
Page1.GoToPageClient(GetClientName);
if vrSCREEN.AsInt = 1 then
Page2.GoToPageClient(GetClientName);
if vrSCREEN.AsInt = 2 then
Page3.GoToPageClient(GetClientName);
end.
begin
CASE vrSCREEN.AsInt OF
0: Page1.GoToPageClient(GetClientName);
1: Page2.GoToPageClient(GetClientName);
2: Page3.GoToPageClient(GetClientName);
END;
end.
то и изменений придется отправить много.Может у Вас есть возможность добавить функцию сброса выделенных цветом ячеек таблицы, хотя бы через массив столбцов? Типа- Table1.Columns[1..3].Color := clNone;(Это как образный пример)
var
aIndex:integer;
begin
aIndex := tblTEST.RowIndex;
if aCell.Variable <> nil then
begin
tblTEST.GetCell(1,aIndex).Color := RGB(217,255,255);
tblTEST.GetCell(2,aIndex).Color := RGB(217,255,255);
tblTEST.GetCell(3,aIndex).Color := RGB(217,255,255);
end;
end.
. Подскажите может проблема не только в моей криворукости?Все таки только в криворукости(
var // Упрощенный вид, но даже он не работает.
aCell_ID:TM_TableCell;
begin
aCell_ID := Table1.GetCell(2,2);
if aCell_ID <> nil then
vID_recept.Value := StrToInt(aCell_ID.Text);
end.
Я правильно понимаю, что эта идея нереализуема в демо64?Здравствуйте. Да, Вы все правильно поняли. Для работы с БД Вам необходимо приобрести лицензию или воспользоватся Demo-Time версией.
Поясните плз механизм назначения цвета объекту Image с пользовательской текстурой.Здравствуйте. Да, действительно пользовательский цвет накладывается поверх текстуры PNG файла. Для корректного изменения цвета текстуры PNG файл должен быть преимущественно белого цвета.
Необходимо отобразить сложный мнемознак с черным контуром и изменяемым цветом заливки.
Подготовил файл текстуры в формате PNG, поэкспериментировал.
Такое ощущение, что итоговый цвет точки получается как смесь цвета из PNG-файла и назначенного свойства "Цвет" объекта
контур должен быть чисто чернымМожно сделать в графическом редакторе изображение белого цвета, а контур этого изображения черного цвета. Тогда изменяя параметр "цвет" ( в свойствах изображения редактора Simple-Scada) Вы не получите ни каких искажений.