Visual Fox Pro
CAPTION amauta
SPINER 1
thisform.s.value=(thisform.n1.value+thisform.n2.value)/2
IF thisform.r.value>thisform.s.valuethisform.f.value=(thisform.s.value+thisform.r.value)/2
thisform.b.value=2
ELSE
thisform.f.value=thisform.s.value
thisform.b.value=-3
ENDIF
thisform.f.value=thisform.s.value+thisform.b.value
IF thisform.f.Value>=12thisform.r1.Interval=100
ELSE
thisform.r1.Interval=0
endif
ESPINER 2
thisform.s.value=(thisform.n1.value+thisform.n2.value)/2
IF thisform.r.value>thisform.s.valuethisform.f.value=(thisform.s.value+thisform.r.value)/2
thisform.b.value=2
ELSE
thisform.f.value=thisform.s.value
thisform.b.value=-3
ENDIF
thisform.f.value=thisform.s.value+thisform.b.value
IF thisform.f.Value>=12thisform.r1.Interval=100
ELSE
thisform.r1.Interval=0
endif
GRUPO DE COMANDOS
op=this.Value
DO case
CASE op=1
GO top
CASE op=2
SKIP -1
IF BOF()=.t.
GO top
endif
CASE op=3
SKIP
IFeOF()=.t.
GO bottom
endif
CASE op=4
GO bottom
ENDCASE
thisform.refresh
OPTION BOTON
op=this.Value
DO case
CASE op=1
thisform.l1.FontName="Tahoma"
thisform.l1.Fontsize=12
CASE op=2thisform.l1.FontName="impact"
thisform.l1.Fontsize=20
ENDCASE
VISTO
IF thisform.ch1.Value=1
thisform.l1.Visible=.t.
thisform.l1.ForeColor=RGB(255,0,0)
thisform.l1.FontUnderline=.t.ELSE
thisform.l1.Visible=.f.
endif
COMBO
op=this.Value
DO case
CASE op="Negrita Rojo"
thisform.l1.Fontbold=.t.
thisform.l1.Fontitalic=.f.
thisform.l1.Forecolor=RGB(255,0,0)
CASEop="Cursiva Verde"
thisform.l1.Fontbold=.f.
thisform.l1.Fontitalic=.t.
thisform.l1.Forecolor=RGB(0,255,0)
ENDCASE
SPINER 3
thisform.l1.FontSize=this.value
LISTA DESPLEGABLE
op=this.Value
DOcase
CASE op="Centro Orellana"
thisform.l1.alignment= 2
thisform.l1.Caption="Orellana"
CASE op="Derecha Pompeya"
thisform.l1.alignment= 1
thisform.l1.Caption="Pompeya"
ENDCASE...
Regístrate para leer el documento completo.