📄 w_autosize.srw
字号:
$PBExportHeader$w_autosize.srw
$PBExportComments$Let the window's controls automatically adjust size
forward
global type w_autosize from Window
end type
end forward
global type w_autosize from Window
int X=1056
int Y=484
int Width=2309
int Height=1116
boolean TitleBar=true
string Title="aa"
long BackColor=79741120
boolean ControlMenu=true
boolean MinBox=true
boolean MaxBox=true
boolean Resizable=true
event ue_position ( )
end type
global w_autosize w_autosize
type prototypes
//function boolean AnimateWindow ( long hwnd, long dwtime, long dwflags ) library "user32"
end prototypes
type variables
integer ii_orgwidth,ii_orgheight
checkbox icbx_obj
radiobutton irb_obj
commandbutton icb_obj
datawindow idw_obj
dropdownlistbox iddlb_obj
dropdownpicturelistbox iddplb_obj
editmask iem_obj
groupbox igb_obj
hscrollbar ihsb_obj
line iln_obj
listbox ilb_obj
listview ilv_obj
multilineedit imle_obj
picture ip_obj
picturebutton ipb_obj
picturelistbox iplb_obj
singlelineedit isle_obj
tab it_obj,it_obj1
treeview itv_obj
userobject iuo_obj
vscrollbar ivsb_obj
graph igr_obj
olecontrol iole_obj
richtextedit irte_obj
statictext ist_obj
rectangle irec_obj
//////////////////////////////////////////////////
//窗口想滚动显示 2003.4.30 jiangjeffrey
//constant long AW_HOR_POSITIVE = 1
//constant long AW_HOR_NEGATIVE = 2
//constant long AW_VER_POSITIVE = 4
//constant long AW_VER_NEGATIVE = 8
//constant long AW_CENTER = 16
//constant long AW_HIDE = 65526
//constant long AW_ACTIVATE = 131072
//constant long AW_SLIDE = 262144
//constant long AW_BLEND = 524288
/////////////////////////////////////////////////////
end variables
forward prototypes
private subroutine of_getbl (string vs_blstr, ref string rs_xbl, ref string rs_ybl, ref string rs_wbl, ref string rs_hbl)
end prototypes
event ue_position;//////////////////////////////////////////////////////////////////
// Write by Jiangjeffrey on 16 Apr. 2002 in shenzhen
// Let the window's controls automatically adjust size
// relatiom me:jianghanwen@sohu.com
// direction:inherit
/////////////////////////////////////////////////////////////////
Integer li_controls,i,j,k
Long ll_width,ll_height
String ls_xbl,ls_ybl,ls_wbl,ls_hbl
ll_width=this.workspacewidth()
ll_height=this.workspaceheight()
li_controls=upperbound(this.control[])
FOR i=1 TO li_controls
CHOOSE CASE this.control[i].typeof()
CASE checkbox!
icbx_obj=this.control[i]
ls_xbl=string(round(icbx_obj.x/ll_width,3))
ls_ybl=string(round(icbx_obj.y/ll_height,3))
ls_wbl=string(round(icbx_obj.width/ll_width,3))
ls_hbl=string(round(icbx_obj.height/ll_height,3))
icbx_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE radiobutton!
irb_obj=this.control[i]
ls_xbl=string(round(irb_obj.x/ll_width,3))
ls_ybl=string(round(irb_obj.y/ll_height,3))
ls_wbl=string(round(irb_obj.width/ll_width,3))
ls_hbl=string(round(irb_obj.height/ll_height,3))
irb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE commandbutton!
icb_obj=this.control[i]
ls_xbl=string(round(icb_obj.x/ll_width,3))
ls_ybl=string(round(icb_obj.y/ll_height,3))
ls_wbl=string(round(icb_obj.width/ll_width,3))
ls_hbl=string(round(icb_obj.height/ll_height,3))
icb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE picture!
ip_obj=this.control[i]
ls_xbl=string(round(ip_obj.x/ll_width,3))
ls_ybl=string(round(ip_obj.y/ll_height,3))
ls_wbl=string(round(ip_obj.width/ll_width,3))
ls_hbl=string(round(ip_obj.height/ll_height,3))
ip_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE statictext!
ist_obj=This.control[i]
ls_xbl=string(round(ist_obj.x/ll_width,3))
ls_ybl=string(round(ist_obj.y/ll_height,3))
ls_wbl=string(round(ist_obj.width/ll_width,3))
ls_hbl=string(round(ist_obj.height/ll_height,3))
ist_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE datawindow!
idw_obj=this.control[i]
ls_xbl=string(round(idw_obj.x/ll_width,3))
ls_ybl=string(round(idw_obj.y/ll_height,3))
ls_wbl=string(round(idw_obj.width/ll_width,3))
ls_hbl=string(round(idw_obj.height/ll_height,3))
idw_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE dropdownlistbox!
iddlb_obj=this.control[i]
ls_xbl=string(round(iddlb_obj.x/ll_width,3))
ls_ybl=string(round(iddlb_obj.y/ll_height,3))
ls_wbl=string(round(iddlb_obj.width/ll_width,3))
ls_hbl=string(round(iddlb_obj.height/ll_height,3))
iddlb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE dropdownpicturelistbox!
iddplb_obj=this.control[i]
ls_xbl=string(round(iddplb_obj.x/ll_width,3))
ls_ybl=string(round(iddplb_obj.y/ll_height,3))
ls_wbl=string(round(iddplb_obj.width/ll_width,3))
ls_hbl=string(round(iddplb_obj.height/ll_height,3))
iddplb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE listbox!
ilb_obj=this.control[i]
ls_xbl=string(round(ilb_obj.x/ll_width,3))
ls_ybl=string(round(ilb_obj.y/ll_height,3))
ls_wbl=string(round(ilb_obj.width/ll_width,3))
ls_hbl=string(round(ilb_obj.height/ll_height,3))
ilb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE multilineedit!
imle_obj=this.control[i]
ls_xbl=string(round(imle_obj.x/ll_width,3))
ls_ybl=string(round(imle_obj.y/ll_height,3))
ls_wbl=string(round(imle_obj.width/ll_width,3))
ls_hbl=string(round(imle_obj.height/ll_height,3))
imle_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE editmask!
iem_obj=this.control[i]
ls_xbl=string(round(iem_obj.x/ll_width,3))
ls_ybl=string(round(iem_obj.y/ll_height,3))
ls_wbl=string(round(iem_obj.width/ll_width,3))
ls_hbl=string(round(iem_obj.height/ll_height,3))
iem_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE groupbox!
igb_obj=this.control[i]
ls_xbl=string(round(igb_obj.x/ll_width,3))
ls_ybl=string(round(igb_obj.y/ll_height,3))
ls_wbl=string(round(igb_obj.width/ll_width,3))
ls_hbl=string(round(igb_obj.height/ll_height,3))
igb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE hscrollbar!
ihsb_obj=this.control[i]
ls_xbl=string(round(ihsb_obj.x/ll_width,3))
ls_ybl=string(round(ihsb_obj.y/ll_height,3))
ls_wbl=string(round(ihsb_obj.width/ll_width,3))
ls_hbl=string(round(ihsb_obj.height/ll_height,3))
ihsb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE listview!
ilv_obj=this.control[i]
ls_xbl=string(round(ilv_obj.x/ll_width,3))
ls_ybl=string(round(ilv_obj.y/ll_height,3))
ls_wbl=string(round(ilv_obj.width/ll_width,3))
ls_hbl=string(round(ilv_obj.height/ll_height,3))
ilv_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE picturebutton!
ipb_obj=this.control[i]
ls_xbl=string(round(ipb_obj.x/ll_width,3))
ls_ybl=string(round(ipb_obj.y/ll_height,3))
ls_wbl=string(round(ipb_obj.width/ll_width,3))
ls_hbl=string(round(ipb_obj.height/ll_height,3))
ipb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE picturelistbox!
iplb_obj=this.control[i]
ls_xbl=string(round(iplb_obj.x/ll_width,3))
ls_ybl=string(round(iplb_obj.y/ll_height,3))
ls_wbl=string(round(iplb_obj.width/ll_width,3))
ls_hbl=string(round(iplb_obj.height/ll_height,3))
iplb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE singlelineedit!
isle_obj=this.control[i]
ls_xbl=string(round(isle_obj.x/ll_width,3))
ls_ybl=string(round(isle_obj.y/ll_height,3))
ls_wbl=string(round(isle_obj.width/ll_width,3))
ls_hbl=string(round(isle_obj.height/ll_height,3))
isle_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE treeview!
itv_obj=this.control[i]
ls_xbl=string(round(itv_obj.x/ll_width,3))
ls_ybl=string(round(itv_obj.y/ll_height,3))
ls_wbl=string(round(itv_obj.width/ll_width,3))
ls_hbl=string(round(itv_obj.height/ll_height,3))
itv_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE userobject!
iuo_obj=this.control[i]
ls_xbl=string(round(iuo_obj.x/ll_width,3))
ls_ybl=string(round(iuo_obj.y/ll_height,3))
ls_wbl=string(round(iuo_obj.width/ll_width,3))
ls_hbl=string(round(iuo_obj.height/ll_height,3))
iuo_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE vscrollbar!
ivsb_obj=this.control[i]
ls_xbl=string(round(ivsb_obj.x/ll_width,3))
ls_ybl=string(round(ivsb_obj.y/ll_height,3))
ls_wbl=string(round(ivsb_obj.width/ll_width,3))
ls_hbl=string(round(ivsb_obj.height/ll_height,3))
ivsb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE graph!
igr_obj=this.control[i]
ls_xbl=string(round(igr_obj.x/ll_width,3))
ls_ybl=string(round(igr_obj.y/ll_height,3))
ls_wbl=string(round(igr_obj.width/ll_width,3))
ls_hbl=string(round(igr_obj.height/ll_height,3))
igr_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE olecontrol!
iole_obj=this.control[i]
ls_xbl=string(round(iole_obj.x/ll_width,3))
ls_ybl=string(round(iole_obj.y/ll_height,3))
ls_wbl=string(round(iole_obj.width/ll_width,3))
ls_hbl=string(round(iole_obj.height/ll_height,3))
iole_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE richtextedit!
irte_obj=this.control[i]
ls_xbl=string(round(irte_obj.x/ll_width,3))
ls_ybl=string(round(irte_obj.y/ll_height,3))
ls_wbl=string(round(irte_obj.width/ll_width,3))
ls_hbl=string(round(irte_obj.height/ll_height,3))
irte_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE statictext!
ist_obj=this.control[i]
ls_xbl=string(round(ist_obj.x/ll_width,3))
ls_ybl=string(round(ist_obj.y/ll_height,3))
ls_wbl=string(round(ist_obj.width/ll_width,3))
ls_hbl=string(round(ist_obj.height/ll_height,3))
ist_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE line!
iln_obj=this.control[i]
ls_xbl=string(round(iln_obj.beginx/ll_width,3))
ls_ybl=string(round(iln_obj.beginy/ll_height,3))
ls_wbl=string(round(iln_obj.endx/ll_width,3))
ls_hbl=string(round(iln_obj.endy/ll_height,3))
iln_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE rectangle!
irec_obj=this.control[i]
ls_xbl=string(round(irec_obj.x/ll_width,3))
ls_ybl=string(round(irec_obj.y/ll_height,3))
ls_wbl=string(round(irec_obj.width/ll_width,3))
ls_hbl=string(round(irec_obj.height/ll_height,3))
irec_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE tab!
it_obj=this.control[i]
ls_xbl=string(round(it_obj.x/ll_width,3))
ls_ybl=string(round(it_obj.y/ll_height,3))
ls_wbl=string(round(it_obj.width/ll_width,3))
ls_hbl=string(round(it_obj.height/ll_height,3))
it_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+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]
ls_xbl=string(round(icbx_obj.x/ll_width,3))
ls_ybl=string(round(icbx_obj.y/ll_height,3))
ls_wbl=string(round(icbx_obj.width/ll_width,3))
ls_hbl=string(round(icbx_obj.height/ll_height,3))
icbx_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE radiobutton!
irb_obj=it_obj.control[j].control[k]
ls_xbl=string(round(irb_obj.x/ll_width,3))
ls_ybl=string(round(irb_obj.y/ll_height,3))
ls_wbl=string(round(irb_obj.width/ll_width,3))
ls_hbl=string(round(irb_obj.height/ll_height,3))
irb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE commandbutton!
icb_obj=it_obj.control[j].control[k]
ls_xbl=string(round(icb_obj.x/ll_width,3))
ls_ybl=string(round(icb_obj.y/ll_height,3))
ls_wbl=string(round(icb_obj.width/ll_width,3))
ls_hbl=string(round(icb_obj.height/ll_height,3))
icb_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE picture!
ip_obj=it_obj.control[j].control[k]
ls_xbl=string(round(ip_obj.x/ll_width,3))
ls_ybl=string(round(ip_obj.y/ll_height,3))
ls_wbl=string(round(ip_obj.width/ll_width,3))
ls_hbl=string(round(ip_obj.height/ll_height,3))
ip_obj.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
CASE statictext!
ist_obj=it_obj.control[j].control[k]
ls_xbl=string(round(ist_obj.x/ll_width,3))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -