PB让窗口在不同的分辨率下自动调整大小

//来自:http://topic.csdn.net/u/20070105/09/88f3c417-6882-4e26-b622-0f9a0a9a65e0.html

//给你个通用函数，在窗口的OPEN事件中加句　f_resize_object(this)即可。
//f_resize_object(window   va_window)
//以下为内容：
//定义环境变量
 

environment   ve_hjbl
dec   vdec_width,vdec_height //宽度比率、高度比率
integer   vi_return //返回数值
long   vl_object
vi_return   =   GetEnvironment(ve_hjbl)
vdec_width   =   ve_hjbl.ScreenWidth   /   1024
vdec_height   =   ve_hjbl.ScreenHeight   /   768
any   vs_object_type

CheckBox   v_CheckBox
OLECustomControl   V_OLECustomControl
CommandButton   v_commandButton
Oval   v_Oval
DataWindow   v_datawindow
Picture   v_picture
DropDownListBox   v_DropDownListBox
PictureButton   v_PictureButton
DropDownPictureListBox   v_dropDownPictureListBox
PictureListBox   v_picTureListBox
EditMask   v_editmask
RadioButton   v_radiobutton
Graph   v_graph
Rectangle   v_rectangle
GroupBox   v_groupbox
RichTextEdit   v_richtextedit
HScrollBar   v_HScrollBar
RoundRectangle   v_RoundRectangle
Line   v_line
SingleLineEdit   v_SingleLineEdit
ListBox   v_ListBox
StaticText   v_statictext
ListView   v_listView
Tab   v_tab
MultiLineEdit   v_MultiLineEdit
TreeView   v_TreeView
OLEControl   v_OLEControl
VScrollBar   v_VSCrollBar
menu   v_menu
//调整窗口属性

va_window.x   =   va_window.x   *   vdec_width
va_window.y   =   va_window.y   *   vdec_height
//va_window.width   =   va_window.width   *   vdec_width
//va_window.height   =   va_window.height   *   vdec_height
va_window.Resize(va_window.width   *   vdec_width,va_window.height   *   vdec_height)

//处理窗口内对象
for   vl_object   =   1   to   upperBound(va_window.control[])
vs_object_type   =   va_window.control[vl_object].typeof()

choose   case   vs_object_type
case   CheckBox!
v_CheckBox   =   va_window.control[vl_object]
v_checkBox.x   =   v_checkBox.x   *   vdec_width
v_checkBox.y   =   v_checkBox.y   *   vdec_height
v_checkBox.width   =   v_checkbox.width   *   vdec_width
v_checkbox.height   =   v_checkbox.height   *   vdec_height
v_checkbox.textsize   =   v_checkbox.textsize   *   vdec_width
case   OLECustomControl!
V_OLECustomControl   =   va_window.control[vl_object]
V_OLECustomControl.x   =   V_OLECustomControl.y   *   vdec_width
V_OLECustomControl.y   =   V_OLECustomControl.y   *   vdec_height
V_OLECustomControl.width   =   V_OLECustomControl.width   *   vdec_width
V_OLECustomControl.height   =   V_OLECustomControl.height   *   vdec_height
case   CommandButton!
v_commandButton   =   va_window.control[vl_object]
v_commandButton.x   =   v_commandButton.x   *   vdec_width
v_commandButton.y   =   v_commandButton.y   *   vdec_height
v_commandButton.width   =   v_commandButton.width   *   vdec_width
v_commandButton.height   =   v_commandButton.height   *   vdec_height
v_commandButton.textsize   =   v_commandButton.textsize   *   vdec_width
case   Oval!
v_Oval   =   va_window.control[vl_object]
v_Oval.x   =   v_Oval.x   *   vdec_width
v_Oval.y   =   v_Oval.y   *   vdec_height
v_Oval.width   =   v_Oval.width   *   vdec_width
v_Oval.height   =   v_Oval.height   *   vdec_height
case   DataWindow!
v_datawindow   =   va_window.control[vl_object]
v_datawindow.x   =   v_datawindow.x   *   vdec_width
v_datawindow.y   =   v_datawindow.y   *   vdec_height
v_datawindow.width   =   v_datawindow.width   *   vdec_width
v_datawindow.height   =   v_datawindow.height   *   vdec_height
case   Picture!
v_picture   =   va_window.control[vl_object]
v_picture.x   =   v_picture.x   *   vdec_width
v_picture.y   =   v_picture.y   *   vdec_height
v_picture.width   =   v_picture.width   *   vdec_width
v_picture.height   =   v_picture.height   *   vdec_height
case   DropDownListBox!
v_DropDownListBox   =   va_window.control[vl_object]
v_DropDownListBox.x   =   v_DropDownListBox.x   *   vdec_width
v_DropDownListBox.y   =   v_DropDownListBox.y   *   vdec_height
v_DropDownListBox.width   =   v_DropDownListBox.width   *   vdec_width
v_DropDownListBox.height   =   v_DropDownListBox.height   *   vdec_height
v_DropDownListBox.textsize   =   v_DropDownListBox.textsize   *   vdec_width
case   PictureButton!
v_PictureButton   =   va_window.control[vl_object]
v_PictureButton.x   =   v_PictureButton.x   *   vdec_width
v_PictureButton.y   =   v_PictureButton.y   *   vdec_height
v_PictureButton.width   =   v_PictureButton.width   *   vdec_width
v_PictureButton.height   =   v_PictureButton.height   *   vdec_height
v_PictureButton.textsize   =   v_PictureButton.textsize   *   vdec_width
case   DropDownPictureListBox!
v_dropDownPictureListBox   =   va_window.control[vl_object]
v_dropDownPictureListBox.x   =   v_dropDownPictureListBox.x   *   vdec_width
v_dropDownPictureListBox.y   =   v_dropDownPictureListBox.y   *   vdec_height
v_dropDownPictureListBox.width   =   v_dropDownPictureListBox.width   *   vdec_width
v_dropDownPictureListBox.height   =   v_dropDownPictureListBox.height   *   vdec_height
v_dropDownPictureListBox.textsize   =   v_dropDownPictureListBox.textsize   *   vdec_width
case   PictureListBox!
v_picTureListBox   =   va_window.control[vl_object]
v_picTureListBox.x   =   v_picTureListBox.x   *   vdec_width
v_picTureListBox.y   =   v_picTureListBox.y   *   vdec_height
v_picTureListBox.width   =   v_picTureListBox.width   *   vdec_width
v_picTureListBox.height   =   v_picTureListBox.height   *   vdec_height
v_picTureListBox.textsize   =   v_picTureListBox.textsize   *   vdec_width
case   EditMask!
v_editmask   =   va_window.control[vl_object]
v_editmask.x   =   v_editmask.x   *   vdec_width
v_editmask.y   =   v_editmask.y   *   vdec_height
v_editmask.width   =   v_editmask.width   *   vdec_width
v_editmask.height   =   (v_editmask.height   *   vdec_height )/0.9
v_editmask.textsize   =   v_editmask.textsize   *   vdec_width
case   RadioButton!
v_radiobutton   =   va_window.control[vl_object]
v_radiobutton.x   =   v_radiobutton.x   *   vdec_width
v_radiobutton.y   =   v_radiobutton.y   *   vdec_height
v_radiobutton.width   =   v_radiobutton.width   *   vdec_width
v_radiobutton.height   =   v_radiobutton.height   *   vdec_height
v_radiobutton.textsize   =   v_radiobutton.textsize   *   vdec_width
case   Graph!
v_graph   =   va_window.control[vl_object]
v_graph.x   =   v_graph.x   *   vdec_width
v_graph.y   =   v_graph.y   *   vdec_height
v_graph.width   =   v_graph.width   *   vdec_width
v_graph.height   =   v_graph.height*   vdec_height
case   Rectangle!
v_rectangle   =   va_window.control[vl_object]
v_rectangle.x   =   v_rectangle.x   *   vdec_width
v_rectangle.y   =   v_rectangle.y   *   vdec_height
v_rectangle.width   =   v_rectangle.width   *   vdec_width
v_rectangle.height   =   v_rectangle.height   *   vdec_height
case   GroupBox!
v_groupbox   =   va_window.control[vl_object]
v_groupbox.x   =   v_groupbox.x   *   vdec_width
v_groupbox.y   =   v_groupbox.y   *   vdec_height
v_groupbox.width   =   v_groupbox.width   *   vdec_width
v_groupbox.height   =   v_groupbox.height   *   vdec_height
v_groupbox.textsize   =   v_groupbox.textsize   *   vdec_width
case   RichTextEdit!
v_richtextedit   =   va_window.control[vl_object]
v_richtextedit.x   =   v_richtextedit.x   *   vdec_width
v_richtextedit.y   =   v_richtextedit.y   *   vdec_height
v_richtextedit.width   =   v_richtextedit.width   *   vdec_width
v_richtextedit.height   =   v_richtextedit.height   *   vdec_height
case   HScrollBar!
v_HScrollBar   =   va_window.control[vl_object]
v_HScrollBar.x   =   v_HScrollBar.x   *   vdec_width
v_HScrollBar.y   =   v_HScrollBar.y   *   vdec_height
v_HScrollBar.width   =   v_HScrollBar.width   *   vdec_width
v_HScrollBar.height   =   v_HScrollBar.height   *   vdec_height
case   RoundRectangle!
v_RoundRectangle   =   va_window.control[vl_object]
v_RoundRectangle.x   =   v_RoundRectangle.x   *   vdec_width
v_RoundRectangle.y   =   v_RoundRectangle.y   *   vdec_height
v_RoundRectangle.width   =   v_RoundRectangle.width   *   vdec_width
v_RoundRectangle.height   =   v_RoundRectangle.height   *   vdec_height
case   Line!
v_line   =   va_window.control[vl_object]
v_line.beginx   =   v_line.beginx   *   vdec_width
v_line.beginy   =   v_line.beginy   *   vdec_height
v_line.endx   =   v_line.endx   *   vdec_width
v_line.endy   =   v_line.endy   *   vdec_height

case   SingleLineEdit!
v_SingleLineEdit   =   va_window.control[vl_object]
v_SingleLineEdit.x   =   v_SingleLineEdit.x   *   vdec_width
v_SingleLineEdit.y   =   v_SingleLineEdit.y   *   vdec_height
v_SingleLineEdit.width   =   v_SingleLineEdit.width   *   vdec_width
v_SingleLineEdit.height   =   v_SingleLineEdit.height   *   vdec_height
v_SingleLineEdit.textsize   =   v_SingleLineEdit.textsize   *   vdec_width
case   ListBox!
v_ListBox   =   va_window.control[vl_object]
v_ListBox.x   =   v_ListBox.x   *   vdec_width
v_ListBox.y   =   v_ListBox.y   *   vdec_height
v_ListBox.width   =   v_ListBox.width   *   vdec_width
v_ListBox.height   =   v_ListBox.height   *   vdec_height
v_ListBox.textsize   =   v_ListBox.textsize   *   vdec_width
case   StaticText!
v_statictext   =   va_window.control[vl_object]
v_statictext.x   =v_statictext.x   *   vdec_width
v_statictext.y   =   v_statictext.y   *   vdec_height
v_statictext.width   =   v_statictext.width   *   vdec_width
v_statictext.height   =  ( v_statictext.height   *   vdec_height )/0.8
v_statictext.textsize   =   v_statictext.textsize   *   vdec_width
case   ListView!
v_listView   =   va_window.control[vl_object]
v_listView.x   =   v_listView.x   *   vdec_width
v_listView.y   =   v_listView.y   *   vdec_height
v_listView.width   =   v_listView.width   *   vdec_width
v_listView.height   =   v_listView.height   *   vdec_height
v_listView.textsize   =   v_listView.textsize   *   vdec_width

case   MultiLineEdit!
v_MultiLineEdit   =   va_window.control[vl_object]
v_MultiLineEdit.x   =   v_MultiLineEdit.x   *   vdec_width
v_MultiLineEdit.y   =   v_MultiLineEdit.y   *   vdec_height
v_MultiLineEdit.width   =   v_MultiLineEdit.width   *   vdec_width
v_MultiLineEdit.height   =   v_MultiLineEdit.height   *   vdec_height
v_MultiLineEdit.textsize   =   v_MultiLineEdit.textsize   *   vdec_width
case   TreeView!
v_TreeView   =   va_window.control[vl_object]
v_TreeView.x   =   v_TreeView.x   *   vdec_width
v_TreeView.y   =   v_TreeView.y   *   vdec_height
v_TreeView.width   =   v_TreeView.width   *   vdec_width
v_TreeView.height   =   v_TreeView.height   *   vdec_height
v_TreeView.textsize   =   v_TreeView.textsize   *   vdec_width
case   OLEControl!
v_OLEControl   =   va_window.control[vl_object]
v_OLEControl.x   =   v_OLEControl.x   *   vdec_width
v_OLEControl.y   =   v_OLEControl.y   *   vdec_height
v_OLEControl.width   =   v_OLEControl.width   *   vdec_width
v_OLEControl.height   =   v_OLEControl.height   *   vdec_height
case   VScrollBar!  
v_VSCrollBar   =   va_window.control[vl_object]
v_VSCrollBar.x   =   v_VSCrollBar.x   *   vdec_width
v_VSCrollBar.y   =   v_VSCrollBar.y   *   vdec_height
v_VSCrollBar.width   =   v_VSCrollBar.width   *   vdec_width
v_VSCrollBar.height   =   v_VSCrollBar.height   *   vdec_height
case   menu!

end   choose

next
//窗口居中
long   ll_ScreenH,ll_ScreenW
ll_ScreenH   =   PixelsToUnits(ve_hjbl.ScreenHeight,   YPixelsToUnits!)
ll_ScreenW   =   PixelsToUnits(ve_hjbl.ScreenWidth   ,   XPixelsToUnits!)

va_window.Y   =   (ll_ScreenH   -   va_window.Height)   /   2
va_window.X   =   (ll_ScreenW   -   va_window.Width   )   /   2