smart-mobile-studio - 根据布局尺寸调整控件大小？

Question

好的，我需要根据布局尺寸调整控件的大小。我还需要它在布局尺寸发生变化时调整大小(例如，将设备从配置文件变为横向)

我的假设是您只需检查设备的尺寸并相应地进行调整

例如

if ClientHeight > ClientWidth then
    fHeader.Height:= ClientHeight Div 6
   else
    fHeader.Height:= ClientHeight Div 8;

但是，把它放在哪里最好呢？

我在布局调整大小之前和布局调整大小之后都在 Resize 方法中尝试过。好像不行!

嗯，它在表单的初始激活时起作用，但是当表单调整大小时，它就不起作用了。在 IDE 中时，我什至必须点击 RELOAD 按钮才能让它工作。

下面是一个在表单上有两个组件的例子。 TW3HeaderControl 与表单顶部对齐，TW3ListBox 与客户端对齐。我想根据 TW3HeaderControl 是在 Profile 还是 Landscape 中调整它的高度

例如

unit Form1;


interface


uses 
  SmartCL.System, SmartCL.Graphics, SmartCL.Components, SmartCL.Forms, 
  SmartCL.Fonts, SmartCL.Borders, SmartCL.Application, SmartCL.Layout,
  SmartCL.Controls;


type
  TForm1 = class(TW3Form)
  private
    {$I 'Form1:intf'}
    fLayout: TLayout;
    fHeader: TW3HeaderControl;
    fList: TW3ListBox;
  protected
    procedure InitializeForm; override;
    procedure InitializeObject; override;
    procedure Resize; override;
  end;


implementation


{ TForm1 }

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(fHeader), Layout.Client(fList)]);
end;


procedure TForm1.InitializeObject;
begin
  inherited;
  {$I 'Form1:impl'}
  fHeader:= TW3HeaderControl.Create(self);
  fList:= TW3ListBox.Create(self);
end;


procedure TForm1.Resize;
begin
  inherited;
  if assigned(FLayout) then
  begin
   fLayout.Resize(self);
    if ClientHeight > ClientWidth then
    fHeader.Height:= ClientHeight Div 6
   else
    fHeader.Height:= ClientHeight Div 8;
  end;
end;


initialization
  Forms.RegisterForm({$I %FILE%}, TForm1);
end.

我什至尝试覆盖“FormActivated”并将其放置在那里并调用 Resize。

什么给了？

更新!!!!!!

而不是在 InitializeForm 中分配布局

例如

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 6),fHeader), Layout.Client(fList)]);
end;

改为在 Resize 方法中分配它？？

例如

procedure TForm1.Resize;
begin
  inherited;
   if ClientWidth > ClientHeight then
    fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 6),fHeader), Layout.Client(fList)])
   else
    fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 8),fHeader), Layout.Client(fList)]);
   fLayout.Resize(self);

end;

更新#2

而且，如果我在表单上添加另一个控件，则会出现另一个问题:(

如果我将大小设置为静态值，效果会很好

procedure TForm1.InitializeObject;
begin
  inherited;
  {$I 'Form1:impl'}


  fHeader:= TW3HeaderControl.Create(self);
  fHeader.Height:= 50;  //******************************
  fHeader.BackButton.Visible:= False;
  fHeader.Title.Caption:= 'Menu';
  fHeader.Title.AlignText:= taCenter;


  fFooter:= TW3HeaderControl.Create(self);
  fFooter.Height:= 50; //******************************
  fFooter.BackButton.Visible:= False;
  fFooter.Title.Caption:= 'Copyright (C) 2016';
  fFooter.Title.AlignText:= taCenter;


  fList:= TW3ListBox.Create(self);
end;

这行得通

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(fHeader),
                           Layout.Bottom(fFooter),
                           Layout.Client(fList)]);
end;

但是，如果我在运行时根据尺寸动态设置高度，则不会

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 6), fHeader),
                           Layout.Bottom(Layout.Height(ClientHeight Div 6),fFooter),
                           Layout.Client(fList)]);
end;

Answer 1

浏览器强加给我们的一些规则，从 object pascal 的角度来看似乎很奇怪。 InitializeForm 与 InitializeObject 之间的区别就是其中之一。 “形式”的古怪之处也是如此。

正如 John 所指出的，InitializeForm 是个好地方。在构建 JS 对象并将 DOM 元素注入(inject)对象模型后调用该方法。这两个不是一回事，这可能有点令人困惑。此外，在我们调用 createElement() 时或在构造函数完成后是否创建元素取决于浏览器。因此我们必须引入几个新过程来处理这个问题。

您可能想更深入地研究一下 TApplication。您会发现以下内容:TApplication -> Display -> View。表单是在“ View ”容器内创建的。每当方向或表单大小发生变化时，最快的通知方式是通过 Application.Display.View.OnReSize() 事件。