为Form中的控件增加自适应功能 转

创建一个基于Custom的类resizeable，并新建属性和方法程序，其说明如下：
　　a) 新建属性：
　posiTyperList　　　可调整位置的控件类型列表
sizeTypeList　　　　可调整大小的控件类型列表
acontrolStats［1,4］存放Form初始状态下所有控件的大小
initformHeight　　　Form的初始高度
initformWidth　　　　Form的初始宽度
initResize　　　　　初次调整否
　　b) 新建方法程序：
　　procontrols　　　处理Form中所有控件位置和大小
　　savecontrols　　保存Form中所有控件的大小和比例
　　setposition　　　重新设置控件位置
　　setsize　　　　　重新设置控件大小
　　具体实现的程序代码清单如下：
Procedure procontrols　　&&处理Form中所有控件位置和大小
　IF This.InitResize　　　　&&是初次调整
　　This.InitResize=.F.　　&&设为非初次调整
　ENDIF
　Thisform.LockScreen=.T.　　　&&禁止屏幕刷新
　nPos=0　　　　&&控件计数器
　FOR m.i=1 TO Thisform.ControlCount　　　&&遍历所有控件
　　oControl=Thisform.Controls［m.i］
　　　nPos=nPos+1
　　　If This.InitResize　　　　&&初次调整
　　　　This.Savecontrols(oControl)　　　　&&保存原Form中所有控件的大小比例
　　　ENDIF
　　　IF oControl.Class$This.posiTypeList　　　&&控件是否为用户指定类型
　　　　This.SetPosition(oControl,nPos)　　　&&设置控件位置
　　　ENDIF
　　　IF oControl.Class$This.SizeTypeList　　&&控件是否为用户指定类型
　　　　This.SetSize(oControl,nPos)　　　&&设置控件大小
　　　ENDIF
　ENDFOR
　Thisform.LockScreen=.F.　　　　&&允许屏幕刷新
Procedure savecontrols　　　&&保存Form初始状态下所有控件的大小比例
Para oControl
　nLen=ALEN(This.aControlStats,1)
　This.aControlStats［nLen,1］=oControl.Height/This.InitFormHeight
　This.aControlStats［nLen,2］=oControl.Width/This.InitFormWidth
　This.aControlStats［nLen,3］=oControl.Top/This.InitlFormHeight
　This.aControlStats［nLen,4］=oControl.Left/This.InitFormWidth
　DIMENSION This.aControlStats［nLen+1,4］
Procedure setposition　　　　&&重新设置控件位置
　Para oControl,nPos
　　oControl.Top=Thisform.Height*This.aControlStats［nPos,3］
　　oControl.Left=Thisform.Width*This.aControlStats［nPos,4］
Procedure setsize　　　&&重新设置控件大小
　Para oControl,nPos
　　oControl.Width=Thisform.Width*This.aControlStats［nPos,2］
　　IF !oControl.Baseclass $ "Textbox Spinner"
　　　oControl.Height=Thisform.Height * This.aControlStats［nPos,1］
　　ENDIF
Procedure Init　　　&&初始化
　This.InitFormHeight=Thisform.Height
　This.InitFormWidth=Thisform.Width
　InitResize=.T.

 

2　实际应用

　　将resizeable类应用到Form中，需完成以下工作：
　　(1) Form中添加resizeable类对象，且向其Resize Event添加代码：
This.Resizable1.procontrols
　　(2) Form中resizeable1对象的posiTypeList和sizeTypeList分别输入属性值。posiTypeList指定了允许调整位置的控件类型，例如：
Commandbutton Combobox Checkbox Listbox Grid Textbox Label Shape Editbox Spinner
　　同样，sizeTypeList由用户指定允许调整大小的控件类型。posiTypeList值和sizeTypeList值可以不一致。
　　在Form运行状态下，当点击Form的最大/恢复按钮或拖动Form边框时，Form中所有控件会随窗口的变化自动改变大小。
　　与调整尺寸有关的Form属性有: ZoomBox 、Minheight、 MinWidth、MaxHeight 、MaxLeft 、MaxTop 、MaxWidth。若允许用户调整Form 尺寸必须设置 Form.ZoomBox=.F.。
　　用户可根据Form的页面布局，选定Form的高度和宽度的最值。
　　所设计的resizable类有以下特点：通用性强，适用于任何Form，程序不需作变动；封装性好，易于使用和维护；留有接口，允许用户自由选择调整位置和大小的控件类型。