Hi Guys,
please have a look at TMS Web Project
I am trying to get the first tab to wrap and scroll.
The 2 other tabs work as expected.
Which bit have I got wrong please.
procedure TForm7.WebResponsiveGridPanel1LayoutChange(Sender: TObject;
ALayout: TResponsiveLayoutItem);
begin
case ALayout.Index of
0:
begin
// WebImageControl1.URL := 'videoThumbnails/Logo20.png';
// webgridPanel1.ColumnCollection.Items[0].Value := 50;
// webgridPanel1.ColumnCollection.Items[1].Value := 50;
end;
1:
begin
// need to move dowm
// WebImageControl1.URL := 'videoThumbnails/Logo20.png';
webgridPanel1.ColumnCollection.Items[0].Value := 99;
webgridPanel1.ColumnCollection.Items[1].Value := 1;
// webgridPanel1.ControlCollection.Items[0].
webgridPanel1.ControlCollection.Items[2].Control := WebResponsiveGridPanel2 ;
webgridPanel1.ControlCollection.Items[3].Control := WebMultimediaPlayer4;
webgridPanel1.ControlCollection.Items[4].Control := webButton3;
end;
2:
begin
// WebImageControl1.URL := 'videoThumbnails/Logo15.png';
webgridPanel1.ColumnCollection.Items[0].Value := 70;
webgridPanel1.ColumnCollection.Items[1].Value := 30;
webgridPanel1.ControlCollection.Items[1].Control := WebResponsiveGridPanel2 ;
webgridPanel1.ControlCollection.Items[2].Control := WebMultimediaPlayer4;
webgridPanel1.ControlCollection.Items[3].Control := webButton3;
end;
end;
end;
