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

转载 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事件里调用该函数即可.

C# WinForm窗体及其控件自适应各种屏幕分辨率

C# WinForm窗体及其控件自适应各种屏幕分辨率一。说明   我们自己编写程序的界面,会遇到各种屏幕分辨率,只有自适应才能显的美观。实际上,做到这点也很简单,就是首先记录窗体和它上面控件的初始位...
  • zhaoyu_m69
  • zhaoyu_m69
  • 2017年04月21日 09:17
  • 2454

C# WinForm窗体及其控件自适应各种屏幕分辨率

1.声明AutoSizeFormClass类 using System; using System.Collections.Generic; using System.Linq; using Sys...
  • source0573
  • source0573
  • 2016年07月13日 17:12
  • 5031

WinForm窗体自适应分辨率

我们自己编写程序的界面,会遇到各种屏幕分辨率,只有自适应才能显的美观。实际上,做到这点也很简单,就是首先记录窗体和它上面控件的初始位置和大小,当窗体改变比例时,其控件的位置和大小也按此比例变化即可。因...
  • hy6688_
  • hy6688_
  • 2014年02月18日 21:57
  • 9455

Android自适应屏幕分辨率

  • 2012年11月16日 17:43
  • 19KB
  • 下载

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

  • 2012年12月04日 23:59
  • 1.15MB
  • 下载

自适应屏幕分辨率

  • 2014年02月21日 20:15
  • 22KB
  • 下载

cocos2d-x自适应屏幕分辨率 源码

  • 2012年11月27日 01:46
  • 11.81MB
  • 下载

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

1:GUI自适应屏幕方法. 由于屏幕尺寸的问题,我们设计的UI在不同尺寸屏幕上不能很好的工作,因此我们的工程需要适应不同屏幕的要求,unity新版本中已经可以设置屏幕自适应而不需要我们自己去设置,在...
  • u010989951
  • u010989951
  • 2016年08月05日 08:51
  • 6980

Delphi:窗体自适应屏幕分辨率

Delphi:窗体自适应屏幕分辨率
  • fghydx
  • fghydx
  • 2014年08月18日 08:29
  • 574

cocos2d-x自适应屏幕分辨率

Android下分辨率太多,不太可能为每种分辨率做一套资源,目前一般来说比较流行的是320*480, 800*480, 854*480。当然现在720P的也出来了,但至少目前不是主流机型^_^. 对...
  • dragoncheng
  • dragoncheng
  • 2011年11月02日 11:19
  • 16971
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自适应屏幕分辨率的基类窗口
举报原因:
原因补充:

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