自适应屏幕分辨率的基类窗口

转载 2012年03月31日 11:13:32

自适应屏幕分辨率的基类窗口

(加入日期:2001-8-10)

保存文章至硬盘】【打印文章】【字体:

分享到: 0
做一个自适应屏幕分辨率的窗口,当成一个应用程序中所有窗体的基类。这样整个程序可以很好的适应屏幕分辨率的改变。实现的原理很简单,就是在窗口打开的时候去RESIZE窗口和窗口中的控件大小,位置。参看下面的源代码,可以很容易的看懂。

1。新建一个窗口。

为窗口写一个函数f_resize()大部分工作就在这里。
无输入参数
返回值为整形:

environment env
integer ii_ScreenWidth,ii_ScreenHeight
double WRadio,HRadio,Radio
integer ii_WinBolderWidth,ii_WinBolderHeight
getenvironment(env)
ii_WinBolderWidth=this.width - this.WorkSpaceWidth()//取得窗体的边框宽度
ii_WinBolderHeight=this.height - this.WorkSpaceHeight()
ii_ScreenWidth=env.screenwidth
ii_ScreenHeight=env.screenheight
//compute the radio that need be resize

WRadio=ii_ScreenWidth/800 //标准认为屏幕分辨率为800*600
HRadio=ii_ScreenHeight/600//计算出屏幕相对800*600分辨率的变化量
Radio=Min(WRadio,HRadio)
if Radio=1.0 then //if the screen is default 800*600
return 0
end if
this.hide()
this.width=(this.width - ii_WinBolderWidth)*Radio + ii_WinBolderWidth
this.height=(this.height - ii_WinBolderHeight)*Radio + ii_WinBolderHeight
integer i
dragobject temp//用于取各种控件

for i=1 to upperbound(this.control)
temp=this.control[i]//调整大小,位置
temp.width=temp.width*Radio
temp.x=temp.x*Radio
temp.y=temp.y*Radio
temp.Height=temp.Height*Radio
choose case typeof(temp)
  case tab!
   tab mtab
   mtab=temp
   mtab.textsize =  mtab.textsize*Radio//设置字体
  case commandbutton!
   commandbutton cb
   cb = temp
   cb.textsize =  cb.textsize*Radio

  case singlelineedit!
   singlelineedit sle
   sle = temp
   sle.textsize=sle.textsize*Radio
  case editmask!
   editmask em
   em = temp
   em.textsize =  em.textsize*Radio
  
  case statictext!
   statictext st
   st = temp
   st.textsize = st.textsize*Radio

  case datawindow! // datawindows get zoomed
   datawindow dw
   dw = temp
   dw.Object.DataWindow.zoom = string(int(Radio*100))//注意DATAWINDOW与其它控件的不同

  case picturebutton!
   picturebutton pb
   pb = temp
   pb.textsize =  pb.textsize*Radio

  case checkbox!
   checkbox cbx
   cbx = temp
   cbx.textsize =  cbx.textsize*Radio

  case dropdownlistbox!
   dropdownlistbox ddlb
   ddlb = temp
   ddlb.textsize =  ddlb.textsize*Radio

  case groupbox!
   groupbox gb
   gb = temp
   gb.textsize =  gb.textsize*Radio

  case listbox!
   listbox lb
   lb = temp
   lb.textsize  =  lb.textsize*Radio

  case multilineedit!
   multilineedit mle
   mle = temp
   mle.textsize = mle.textsize*Radio

  case radiobutton!
   radiobutton rb
   rb = temp
   rb.textsize =  rb.textsize*Radio

end choose
next
this.show()
return 0

函数写好以后,在窗体的OPEN事件里调用该函数即可.

相关文章推荐

安装kali 之后,屏幕分辨率无法 调整,只有一个小窗口

好奇的安装上了kali之后,发现它的系统桌面好小。 听说使用命令apt-get install open-vm-tools-desktop fuse 安装vmware tools后重启即可。 嗯~...

Android自适应屏幕分辨率

  • 2012-11-16 17:43
  • 18KB
  • 下载

自适应屏幕分辨率

  • 2014-02-21 20:15
  • 22KB
  • 下载

cocos2d-x 2.0版本 自适应屏幕分辨率

我使用的版本是cocos2d-2.0-x-2.0.4,cocos2dx-2.0版本对多分辨率适配提供了很好的支持,使用起来比1.0版本要简单些,1.0版本的适配可以参考这篇博文。 1. 做2.0版本...

Unity3D学习笔记01:GUI自适应屏幕分辨率

GUI通常情况下用来制作游戏的菜单界面和游戏运行时的工具栏等,不同型号的手机的屏幕分辨率往往不同,这样我们就会遇到自适应屏幕这个问题,下面我们就来说一下解决办法。        首先我们来看谈一下实现...
  • jukai7
  • jukai7
  • 2013-08-14 23:27
  • 3605

cocos2d-x 2.0版本 自适应屏幕分辨率

我使用的版本是cocos2d-2.0-x-2.0.4,cocos2dx-2.0版本对多分辨率适配提供了很好的支持,使用起来比1.0版本要简单些,1.0版本的适配可以参考这篇博文。 1. 做2.0版本...

网页自适应屏幕分辨率

这是我写的一段让网页自适应屏幕分辨率的代码。贴出来,欢迎补充。 /** *让网页元素自适应所有的分辨率的脚本 *作者:wikies    1175551641@qq.com *时间:2014.02.0...

Unity GUI自适应屏幕分辨率的方法

1:GUI自适应屏幕方法. 由于屏幕尺寸的问题,我们设计的UI在不同尺寸屏幕上不能很好的工作,因此我们的工程需要适应不同屏幕的要求,unity新版本中已经可以设置屏幕自适应而不需要我们自己去设置,在...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)