uniGUI之窗体Form相关设置

@zheng

已于 2023-12-05 14:30:18 修改

阅读量1.2k

点赞数

分类专栏： UniGUI 文章标签： javascript 开发语言 ecmascript delphi

于 2022-06-07 09:33:42 首次发布

本文链接：https://blog.csdn.net/zheng52617/article/details/125158994

版权

UniGUI 专栏收录该内容

14 篇文章 5 订阅

订阅专栏

1.设置窗体高度

采用CSS样式：

.x-window-header-default-top{padding:10px 5px}

手动设置：

在这里插入图片描述

function window.beforeInit(sender, config)
{
  config.header={title:"fdsfdsf",height:50};
}

2.窗体去掉边框

在UniEvents中填写：

function window.beforeInit(sender, config)
{
   Ext.apply(sender,{border: false,baseCls: '',shadow: false,frame: false,maximizable: false,resizable: false});
}

该方法虽去掉了窗体的边框，但最大化时窗体整体向左上方移动了，导致最右侧流出一部分空白地方，暂没有找到方法解决

3.窗体自适应

将servermodule中的MainFormDisplayMode设置为mfPage

在这里插入图片描述

也可以通过手动设置窗体宽高

在窗体的OnScreenResize事件中填写：

procedure TfrmAddInfo.UniFormScreenResize(Sender: TObject; AWidth, AHeight: Integer);
begin
  Self.Width := UniApplication.ScreenWidth;
  Self.Height := UniApplication.ScreenHeight;
end;

4.增加tooltip

在uniForm的uniEvent属性中写入以下代码：

function window.OnBeforeInit(sender)
{
   Ext.apply (sender, {
      tools: [{ 
         type: 'pin',
         tooltip: 'tooltip of pin',
         handler: function(event, toolEl, panel){
            ajaxRequest(sender, 'tool', [ 'btn=pin' ] );
         }
      },{ 
         type: 'refresh',
         tooltip: 'tooltip of refresh',
         handler: function(event, toolEl, panel){
            ajaxRequest(sender, 'tool', [ 'btn=refresh' ] );
         }
      },{
         type: 'search', 
         tooltip: 'tooltip of search',
         handler: function(event, toolEl, panel){
            ajaxRequest(sender, 'tool', [ 'btn=search' ] );
         }
      },{ 
         type: 'save',
         tooltip: 'tooltip of save',
         handler: function(event, toolEl, panel){
            ajaxRequest(sender, 'tool', [ 'btn=save' ] );
         }
      }]   
   });
}

在uniForm的AjaxEven事件中:

procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string;
  Params: TStrings);
begin
  if EventName='tool' then
    ShowMessage('Button '+Params.Values['btn']+' pressed') 
end;

效果：
在这里插入图片描述