Hbox to Vbox when screen resize
Hello!
Is there any way to change the layout of a panel when the screen becomes smaller?
I have a panel in my form whose layout is hbox. When my window size is 800px, I'd like the layout to set to vbox.
I've tried something like:
procedure TMainForm.UniFormScreenResize(Sender: TObject; AWidth,
AHeight: Integer);
begin
if Awidth < 800
begin
mypanel.layout := 'vbox';
//other layout adjustements
end;
end;
But to no success.
Do I have to do this with JS? If yes, how
Hello,
In your case, try this approach:
procedure TMainForm.UniFormScreenResize(Sender: TObject; AWidth,
AHeight: Integer);
begin
if AWidth < 800 then
begin
YourContainerPanel.JSInterface.JSCall('getLayout().setVertical', [True]); //vbox
YourContainerPanel.JSInterface.JSCallDefer('updateLayout', [], 20);
end
else begin
YourContainerPanel.JSInterface.JSCall('getLayout().setVertical', [False]); //hbox
YourContainerPanel.JSInterface.JSCallDefer('updateLayout',