📄 w_autosize.srw
字号:
of_getbl(iem_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iem_obj.x=newwidth*real(ls_xbl)
iem_obj.y=newheight*real(ls_ybl)
iem_obj.width=newwidth*real(ls_wbl)
iem_obj.height=newheight*real(ls_hbl)
CASE groupbox!
igb_obj=This.control[i]
of_getbl(igb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
igb_obj.x=newwidth*real(ls_xbl)
igb_obj.y=newheight*real(ls_ybl)
igb_obj.width=newwidth*real(ls_wbl)
igb_obj.height=newheight*real(ls_hbl)
CASE hscrollbar!
ihsb_obj=This.control[i]
of_getbl(ihsb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ihsb_obj.x=newwidth*real(ls_xbl)
ihsb_obj.y=newheight*real(ls_ybl)
ihsb_obj.width=newwidth*real(ls_wbl)
ihsb_obj.height=newheight*real(ls_hbl)
CASE picturebutton!
ipb_obj=This.control[i]
of_getbl(ipb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ipb_obj.x=newwidth*real(ls_xbl)
ipb_obj.y=newheight*real(ls_ybl)
ipb_obj.width=newwidth*real(ls_wbl)
ipb_obj.height=newheight*real(ls_hbl)
CASE listview!
ilv_obj=This.control[i]
of_getbl(ilv_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ilv_obj.x=newwidth*real(ls_xbl)
ilv_obj.y=newheight*real(ls_ybl)
ilv_obj.width=newwidth*real(ls_wbl)
ilv_obj.height=newheight*real(ls_hbl)
CASE picturelistbox!
iplb_obj=This.control[i]
of_getbl(iplb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iplb_obj.x=newwidth*real(ls_xbl)
iplb_obj.y=newheight*real(ls_ybl)
iplb_obj.width=newwidth*real(ls_wbl)
iplb_obj.height=newheight*real(ls_hbl)
CASE singlelineedit!
isle_obj=This.control[i]
of_getbl(isle_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
isle_obj.x=newwidth*real(ls_xbl)
isle_obj.y=newheight*real(ls_ybl)
isle_obj.width=newwidth*real(ls_wbl)
isle_obj.height=newheight*real(ls_hbl)
CASE treeview!
itv_obj=This.control[i]
of_getbl(itv_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
itv_obj.x=newwidth*real(ls_xbl)
itv_obj.y=newheight*real(ls_ybl)
itv_obj.width=newwidth*real(ls_wbl)
itv_obj.height=newheight*real(ls_hbl)
CASE userobject!
iuo_obj=This.control[i]
of_getbl(iuo_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iuo_obj.x=newwidth*real(ls_xbl)
iuo_obj.y=newheight*real(ls_ybl)
iuo_obj.width=newwidth*real(ls_wbl)
iuo_obj.height=newheight*real(ls_hbl)
CASE vscrollbar!
ivsb_obj=This.control[i]
of_getbl(ivsb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ivsb_obj.x=newwidth*real(ls_xbl)
ivsb_obj.y=newheight*real(ls_ybl)
ivsb_obj.width=newwidth*real(ls_wbl)
ivsb_obj.height=newheight*real(ls_hbl)
CASE graph!
igr_obj=This.control[i]
of_getbl(igr_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
igr_obj.x=newwidth*real(ls_xbl)
igr_obj.y=newheight*real(ls_ybl)
igr_obj.width=newwidth*real(ls_wbl)
igr_obj.height=newheight*real(ls_hbl)
CASE olecontrol!
iole_obj=This.control[i]
of_getbl(iole_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iole_obj.x=newwidth*real(ls_xbl)
iole_obj.y=newheight*real(ls_ybl)
iole_obj.width=newwidth*real(ls_wbl)
iole_obj.height=newheight*real(ls_hbl)
CASE richtextedit!
irte_obj=This.control[i]
of_getbl(irte_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
irte_obj.x=newwidth*real(ls_xbl)
irte_obj.y=newheight*real(ls_ybl)
irte_obj.width=newwidth*real(ls_wbl)
irte_obj.height=newheight*real(ls_hbl)
CASE statictext!
ist_obj=This.control[i]
of_getbl(ist_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ist_obj.x=newwidth*real(ls_xbl)
ist_obj.y=newheight*real(ls_ybl)
ist_obj.width=newwidth*real(ls_wbl)
CASE line!
iln_obj=This.control[i]
of_getbl(iln_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iln_obj.beginx=newwidth*real(ls_xbl)
iln_obj.beginy=newheight*real(ls_ybl)
iln_obj.endx=newwidth*real(ls_wbl)
iln_obj.endy=newheight*real(ls_hbl)
CASE rectangle!
irec_obj=This.control[i]
of_getbl(irec_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
irec_obj.x=newwidth*real(ls_xbl)
irec_obj.y=newheight*real(ls_ybl)
irec_obj.width=newwidth*real(ls_wbl)
irec_obj.height=newheight*real(ls_hbl)
CASE tab!
it_obj=This.control[i]
of_getbl(it_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
it_obj.x=newwidth*real(ls_xbl)
it_obj.y=newheight*real(ls_ybl)
it_obj.width=newwidth*real(ls_wbl)
it_obj.height=newheight*real(ls_hbl)
FOR j = 1 TO UpperBound(it_obj.control[])
FOR k = 1 TO UpperBound(it_obj.control[j].control[])
CHOOSE CASE it_obj.control[j].control[k].typeof()
CASE checkbox!
icbx_obj=it_obj.control[j].control[k]
of_getbl(icbx_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
icbx_obj.x=newwidth*real(ls_xbl)
icbx_obj.y=newheight*real(ls_ybl)
CASE radiobutton!
irb_obj=it_obj.control[j].control[k]
of_getbl(irb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
irb_obj.x=newwidth*real(ls_xbl)
irb_obj.y=newheight*real(ls_ybl)
CASE commandbutton!
icb_obj=it_obj.control[j].control[k]
of_getbl(icb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
icb_obj.x=newwidth*real(ls_xbl)
icb_obj.y=newheight*real(ls_ybl)
icb_obj.width=newwidth*real(ls_wbl)
icb_obj.height=newheight*real(ls_hbl)
CASE picture!
ip_obj=it_obj.control[j].control[k]
of_getbl(ip_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ip_obj.x=newwidth*real(ls_xbl)
ip_obj.y=newheight*real(ls_ybl)
ip_obj.width=newwidth*real(ls_wbl)
ip_obj.height=newheight*real(ls_hbl)
CASE datawindow!
idw_obj=it_obj.control[j].control[k]
of_getbl(idw_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
idw_obj.x=newwidth*real(ls_xbl)
idw_obj.y=newheight*real(ls_ybl)
idw_obj.width=newwidth*real(ls_wbl)
idw_obj.height=newheight*real(ls_hbl)
CASE dropdownlistbox!
iddlb_obj=it_obj.control[j].control[k]
of_getbl(iddlb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iddlb_obj.x=newwidth*real(ls_xbl)
iddlb_obj.y=newheight*real(ls_ybl)
iddlb_obj.width=newwidth*real(ls_wbl)
CASE dropdownpicturelistbox!
iddplb_obj=it_obj.control[j].control[k]
of_getbl(iddplb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iddplb_obj.x=newwidth*real(ls_xbl)
iddplb_obj.y=newheight*real(ls_ybl)
iddplb_obj.width=newwidth*real(ls_wbl)
CASE listbox!
ilb_obj=it_obj.control[j].control[k]
of_getbl(ilb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ilb_obj.x=newwidth*real(ls_xbl)
ilb_obj.y=newheight*real(ls_ybl)
ilb_obj.width=newwidth*real(ls_wbl)
ilb_obj.height=newheight*real(ls_hbl)
CASE multilineedit!
imle_obj=it_obj.control[j].control[k]
of_getbl(imle_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
imle_obj.x=newwidth*real(ls_xbl)
imle_obj.y=newheight*real(ls_ybl)
imle_obj.width=newwidth*real(ls_wbl)
imle_obj.height=newheight*real(ls_hbl)
CASE editmask!
iem_obj=it_obj.control[j].control[k]
of_getbl(iem_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iem_obj.x=newwidth*real(ls_xbl)
iem_obj.y=newheight*real(ls_ybl)
iem_obj.width=newwidth*real(ls_wbl)
iem_obj.height=newheight*real(ls_hbl)
CASE groupbox!
igb_obj=it_obj.control[j].control[k]
of_getbl(igb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
igb_obj.x=newwidth*real(ls_xbl)
igb_obj.y=newheight*real(ls_ybl)
igb_obj.width=newwidth*real(ls_wbl)
igb_obj.height=newheight*real(ls_hbl)
CASE hscrollbar!
ihsb_obj=it_obj.control[j].control[k]
of_getbl(ihsb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ihsb_obj.x=newwidth*real(ls_xbl)
ihsb_obj.y=newheight*real(ls_ybl)
ihsb_obj.width=newwidth*real(ls_wbl)
ihsb_obj.height=newheight*real(ls_hbl)
CASE picturebutton!
ipb_obj=it_obj.control[j].control[k]
of_getbl(ipb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ipb_obj.x=newwidth*real(ls_xbl)
ipb_obj.y=newheight*real(ls_ybl)
ipb_obj.width=newwidth*real(ls_wbl)
ipb_obj.height=newheight*real(ls_hbl)
CASE listview!
ilv_obj=it_obj.control[j].control[k]
of_getbl(ilv_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ilv_obj.x=newwidth*real(ls_xbl)
ilv_obj.y=newheight*real(ls_ybl)
ilv_obj.width=newwidth*real(ls_wbl)
ilv_obj.height=newheight*real(ls_hbl)
CASE picturelistbox!
iplb_obj=it_obj.control[j].control[k]
of_getbl(iplb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iplb_obj.x=newwidth*real(ls_xbl)
iplb_obj.y=newheight*real(ls_ybl)
iplb_obj.width=newwidth*real(ls_wbl)
iplb_obj.height=newheight*real(ls_hbl)
CASE singlelineedit!
isle_obj=it_obj.control[j].control[k]
of_getbl(isle_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
isle_obj.x=newwidth*real(ls_xbl)
isle_obj.y=newheight*real(ls_ybl)
isle_obj.width=newwidth*real(ls_wbl)
isle_obj.height=newheight*real(ls_hbl)
CASE treeview!
itv_obj=it_obj.control[j].control[k]
of_getbl(itv_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
itv_obj.x=newwidth*real(ls_xbl)
itv_obj.y=newheight*real(ls_ybl)
itv_obj.width=newwidth*real(ls_wbl)
itv_obj.height=newheight*real(ls_hbl)
CASE userobject!
iuo_obj=it_obj.control[j].control[k]
of_getbl(iuo_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iuo_obj.x=newwidth*real(ls_xbl)
iuo_obj.y=newheight*real(ls_ybl)
iuo_obj.width=newwidth*real(ls_wbl)
iuo_obj.height=newheight*real(ls_hbl)
CASE vscrollbar!
ivsb_obj=it_obj.control[j].control[k]
of_getbl(ivsb_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ivsb_obj.x=newwidth*real(ls_xbl)
ivsb_obj.y=newheight*real(ls_ybl)
ivsb_obj.width=newwidth*real(ls_wbl)
ivsb_obj.height=newheight*real(ls_hbl)
CASE graph!
igr_obj=it_obj.control[j].control[k]
of_getbl(igr_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
igr_obj.x=newwidth*real(ls_xbl)
igr_obj.y=newheight*real(ls_ybl)
igr_obj.width=newwidth*real(ls_wbl)
igr_obj.height=newheight*real(ls_hbl)
CASE olecontrol!
iole_obj=it_obj.control[j].control[k]
of_getbl(iole_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iole_obj.x=newwidth*real(ls_xbl)
iole_obj.y=newheight*real(ls_ybl)
iole_obj.width=newwidth*real(ls_wbl)
iole_obj.height=newheight*real(ls_hbl)
CASE richtextedit!
irte_obj=it_obj.control[j].control[k]
of_getbl(irte_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
irte_obj.x=newwidth*real(ls_xbl)
irte_obj.y=newheight*real(ls_ybl)
irte_obj.width=newwidth*real(ls_wbl)
irte_obj.height=newheight*real(ls_hbl)
CASE statictext!
ist_obj=it_obj.control[j].control[k]
of_getbl(ist_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
ist_obj.x=newwidth*real(ls_xbl)
ist_obj.y=newheight*real(ls_ybl)
ist_obj.width=newwidth*real(ls_wbl)
CASE line!
iln_obj=it_obj.control[j].control[k]
of_getbl(iln_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
iln_obj.beginx=newwidth*real(ls_xbl)
iln_obj.beginy=newheight*real(ls_ybl)
iln_obj.endx=newwidth*real(ls_wbl)
iln_obj.endy=newheight*real(ls_hbl)
CASE rectangle!
irec_obj=it_obj.control[j].control[k]
of_getbl(irec_obj.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
irec_obj.x=newwidth*real(ls_xbl)
irec_obj.y=newheight*real(ls_ybl)
irec_obj.width=newwidth*real(ls_wbl)
irec_obj.height=newheight*real(ls_hbl)
CASE tab!
it_obj1=it_obj.control[j].control[k]
of_getbl(it_obj1.tag,ls_xbl,ls_ybl,ls_wbl,ls_hbl)
it_obj1.x=newwidth*real(ls_xbl)
it_obj1.y=newheight*real(ls_ybl)
it_obj1.width=newwidth*real(ls_wbl)
it_obj1.height=newheight*real(ls_hbl)
end choose
next
next
END CHOOSE
NEXT
This.Setredraw(true)
end event
event close;/////////////////////////////////////////////////////////////////////////////////////
//窗口想滚动显示 2003.4.30 jiangjeffrey
//long ll_handle
//ll_handle = Handle ( This )
//AnimateWindow ( ll_handle, 300, AW_SLIDE + AW_HIDE + AW_CENTER )
/////////////////////////////////////////////////////////////////////////////////////
end event
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -