📄 w_autosize.srw
字号:
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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=it_obj.control[j].control[k]
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_obj1=it_obj.control[j].control[k]
ls_xbl=string(round(it_obj1.x/ll_width,3))
ls_ybl=string(round(it_obj1.y/ll_height,3))
ls_wbl=string(round(it_obj1.width/ll_width,3))
ls_hbl=string(round(it_obj1.height/ll_height,3))
it_obj1.tag=ls_xbl+'/'+ls_ybl+'/'+ls_wbl+'/'+ls_hbl
END CHOOSE
next
next
END CHOOSE
NEXT
end event
private subroutine of_getbl (string vs_blstr, ref string rs_xbl, ref string rs_ybl, ref string rs_wbl, ref string rs_hbl);//////////////////////////////////////////////////////////////////
// Write by Jiangjeffrey on 16 Apr. 2002 in shenzhen
// Let the window's controls automatically adjust size
// relatiom me:jianghanwen@sohu.com
/////////////////////////////////////////////////////////////////
String ls_bl[],ls_buff
Integer li_len,i
IF vs_blstr='' OR isnull(vs_blstr) THEN RETURN
i=1
ls_buff=vs_blstr
li_len=len(ls_buff)
DO WHILE Pos(ls_buff,'/')<>0
ls_bl[i]=Left(ls_buff,Pos(ls_buff,'/') - 1)
i++
li_len=Len(ls_buff)
ls_buff=Right(ls_buff,li_len - (Pos(ls_buff,'/')))
LOOP
IF Trim(ls_buff)='' THEN
i=i - 1
ELSE
ls_bl[i]=ls_buff
END IF
rs_xbl=ls_bl[1]
rs_ybl=ls_bl[2]
rs_wbl=ls_bl[3]
rs_hbl=ls_bl[4]
RETURN
end subroutine
on w_autosize.create
end on
on w_autosize.destroy
end on
event open;//////////////////////////////////////////////////////////////////
// Write by Jiangjeffrey on 16 Apr. 2002 in shenzhen
// Let the window's controls automatically adjust size
// relation me:jianghanwen@sohu.com
/////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////
//窗口想滚动显示 2003.4.30 jiangjeffrey
//long ll_handle
//ll_handle = Handle ( This )
//Randomize ( 0 )
//Choose Case rand ( 6 )
//Case 1
//AnimateWindow ( ll_handle, 1000, AW_SLIDE + AW_VER_POSITIVE + AW_ACTIVATE )
//Case 2
//AnimateWindow ( ll_handle, 1000, AW_SLIDE + AW_VER_NEGATIVE+ AW_ACTIVATE )
//Case 3
//AnimateWindow ( ll_handle, 1000, AW_SLIDE + AW_HOR_POSITIVE + AW_ACTIVATE )
//Case 4
//AnimateWindow ( ll_handle, 1000, AW_SLIDE + AW_HOR_NEGATIVE + AW_ACTIVATE )
//Case 6,5
//AnimateWindow ( ll_handle, 1000, AW_SLIDE + AW_CENTER + AW_ACTIVATE )
//End Choose
/////////////////////////////////////////////////////////////////////////////////////////////
f_center(this)
This.TriggerEvent('ue_position')
w_show.postevent("jhw")
end event
event resize;//////////////////////////////////////////////////////////////////
// Write by Jiangjeffrey on 16 Apr. 2002 in shenzhen
// Let the window's controls automatically adjust size
// relatiom me:jianghanwen@sohu.com
/////////////////////////////////////////////////////////////////
Integer li_controls,i,j,k
String ls_xbl,ls_ybl,ls_wbl,ls_hbl
This.Setredraw(false)
li_controls=upperbound(This.Control[])
FOR i=1 TO li_controls
CHOOSE CASE This.Control[i].TypeOf()
CASE checkbox!
icbx_obj=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
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=This.control[i]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -