Как обходное решение, попробуйте этот код:
with UniPanel1 do
begin
JSInterface.JSCall('setBodyStyle', ['background', 'url(files/tulips.jpg)']);
if Background.Fit then
JSInterface.JSCall('setBodyStyle', ['background-size', '100%']);
end;
Hi,
One possible solution.
procedure TMainmForm.UnimFormCreate(Sender: TObject);
begin
with UnimSegmentedButton1 do
JSInterface.JSAddListener(
'painted',
JSControl.JSFunction('me', 'me.element.select(".x-body-el").elements.forEach(function(el){el.style["font-size"] = "20px"});')
);
end;
Hello,
You can try this approach ...
type
TExUniCustomDBGrid = class (TUniCustomDBGrid)
end;
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
if mu.Text='NUMBER' then
UniDBGrid1.Columns.Items[1].Editor:=edtDecimal
else
UniDBGrid1.Columns.Items[1].Editor:=edtTime;
TExUniCustomDBGrid(UniDBGrid1).DoConfigureJSColumns(UniDBGrid1.DataSource.DataSet);
end;