PB窗口居中显示的公用函数
来源:互联网 发布:佛山淘宝机械厂 编辑:程序博客网 时间:2024/05/16 14:34
在PB9.0之下的版本中,因为窗口没有属性‘Center’,必须自己编写程序,使窗口居中。下面这个公用函数考虑的自认为比较全面,在PB9.0之前的版本中都还是非常有用的。
//*************************************************************
//* 功能: 将窗口移到屏幕的中央
//* 参数1: aw_window 要处理的窗口
//* 返回值: (none)
//* 调用举例:gf_window_center(w_pay_mode) //将窗口置于屏幕的中央
//************************************************************
environment le_env
int li_ScreenHeight, li_ScreenWidth
long ll_posx,ll_posy
GetEnvironment(le_env)
if IsValid(w_main) then
li_ScreenHeight = w_main.MDI_1.Height
li_screenwidth = w_main.MDI_1.Width
else
li_ScreenHeight = PixelsToUnits(le_env.screenheight,YPixelsToUnits!)
li_screenwidth = PixelsToUnits(le_env.screenwidth,XPixelsToUnits!)
end if
if aw_window.width>li_ScreenWidth then//如果窗口超宽
ll_posx=1
else
ll_posx=(li_ScreenWidth - aw_window.Width) / 2
end if
if aw_window.height>li_ScreenHeight then//如果窗口超高
ll_posy=1
else
ll_posy=(li_ScreenHeight - aw_window.Height) / 2
end if
aw_window.Move(ll_posx ,ll_posy)
- PB窗口居中显示的公用函数
- PB窗口居中的实现方法
- PB窗口居中的实现方法
- 使PB窗口居中
- 使PB窗口居中
- PB中消息对话框的居中显示
- PB中消息对话框的居中显示
- 窗口居中显示的方法
- PB中窗口自动居中
- PB中窗口自动居中
- PB中数据窗口的函数小结
- PB中数据窗口的函数小结
- pb中数据窗口的部分函数
- js弹出的窗口居中显示
- js弹出的窗口居中显示
- Qt 让弹出的窗口居中显示
- Qt 让弹出的窗口居中显示
- 窗口弹出居中显示
- Web.config详解
- C# 调用外部dll
- JDBC 基础应用
- Repeater事件的执行顺序
- java 逆波兰表达式 (后缀表达式) 计算器
- PB窗口居中显示的公用函数
- 如何优雅地关闭一个socket .
- 运用wpa_cli连接wifi
- 图像分割的关键
- 测试带饭的
- TQ2440 GPIO模拟SPI读取AD转换器TLC2543芯片
- fasdf
- 常用协议端口号和传输层协议
- PHP页面跳转几种实现方法