|
define class cjProgrBar as container && прогрессбар
visible=.t.
procedure init
lparameters tnLeft,tnTop,tnWidth,tnHeight && левая позиция, верхняя позиция, ширина, высота
with this
.borderwidth=0
.left=tnLeft
.top=tnTop
.width=tnWidth
.height=tnHeight
.resize()
endwith
endproc
procedure refresh
lparameters tnValOfprog
local lnValidHeightOfShape,lnValidCenterDyspPos
tnValOfprog=iif(vartype(tnValOfprog)#'N',0,iif(tnValOfprog>100,100,tnValOfprog))
this.oBody.value=tnValOfprog
lnValidHeightOfShape=this.oBody.width-1
lnValidCenterDyspPos=lnValidHeightOfShape/2-this.display1.width/2
this.display1.left=iif(tnValOfprog=0,26,this.display1.left)
this.display1.caption=transform(tnValOfprog,'999.9 %')
this.display2.caption=this.display1.caption
this.oProgress.width=iif(ceil(lnValidHeightOfShape*tnValOfprog/100)-3<0,0,ceil(lnValidHeightOfShape*tnValOfprog/100)-3)
this.display1.left=iif(this.display1.left>=lnValidCenterDyspPos,;
lnValidCenterDyspPos,;
iif(this.oProgress.left+this.oProgress.width<lnValidCenterDyspPos,this.oProgress.left+this.oProgress.width,lnValidCenterDyspPos))
this.display2.left=this.display1.left
this.display2.width=iif(this.oProgress.left+this.oProgress.width>this.display1.left,;
this.oProgress.width+this.oProgress.left-this.display1.left,;
0)
procedure resize
with this
.oBody.disabledforecolor=this.oBody.disabledbackcolor
.oBody.left=2
.oBody.top=2
.oBody.width=iif(this.width-4>0,this.width-4,this.width)
.oBody.height=iif(this.height-4>0,this.height-4,this.height)
.oProgress.zorder(0)
.oProgress.top=.oBody.top+2
.oProgress.left=.oBody.left+2
.oProgress.height=.oBody.height-4
.oProgress.backcolor=this.oBody.selectedbackcolor &&rgb(0,0,255)
.display1.top=this.oBody.height/2-this.display1.height/2
.display2.top=this.display1.top
.display1.zorder(0)
.display2.zorder(0)
.display1.forecolor=this.oBody.forecolor &&rgb(0,0,0) &&
.display2.forecolor=this.oBody.selectedforecolor &&rgb(255,255,255) &&
.refresh(this.oBody.value)
endwith
endproc
add object oProgress as shape with ;
borderstyle=0 ,;
width=0 ,;
visible=.t. ,;
name= 'oProgress'
add object display1 as label with ;
fontname='Tahoma',;
fontsize=8,;
caption='' ,;
visible=.t. ,;
backstyle=0 ,;
fontbold=.t. ,;
width=50 ,;
height=11,;
name = 'display1'
add object display2 as label with ;
fontname='Tahoma',;
fontsize=8,;
caption='' ,;
visible=.t. ,;
backstyle=0 ,;
fontbold=.t. ,;
width=60 ,;
height=11,;
name = 'display2'
add object oBody as textbox with ;
visible=.t. ,;
specialeffect=0 ,;
themes=.f. ,;
enabled=.f. ,;
visible=.t. ,;
name = 'oBody'
enddefine
|
