04-16-2018, 01:38 PM
Thx Dan,
it worked.
The upper TabControl has 100% width.
The lower TabControl has 20px left and right padding.
Best regards
it worked.
Code:
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
with ExtraHeader do
begin
Add('<style type="text/css">');
Add(' div.IWTABCONTROL1CSS-ROW {display: table; width: 100%; table-layout: fixed; }');
Add(' div.IWTABCONTROL1CSS-ROW span {display: table-cell; padding: 0px; text-align: center; vertical-align: middle; }');
Add(' div.IWTABCONTROL2CSS-ROW {display: table; table-layout: fixed; }');
Add(' div.IWTABCONTROL2CSS-ROW span {display: table-cell; padding: 0px 20px 0px 20px; vertical-align: middle; }');
Add('</style>');
end;
end;
The upper TabControl has 100% width.
The lower TabControl has 20px left and right padding.
Best regards