'All variants script
'AutoScaleRate(1)
'AutoScaleAll
pnMenuSuperior.SetLeftAndRight(0,100%x)
imgLogo.Left=(100%x - imgLogo.Width)/2
imgLogo.Top =(100%y - (imgLogo.Height+pnMenuSuperior.Height+pnFoot.Height))/2
' ventas Ficheros Salir Acerca de
btVenta.Top =0
btFicheros.Top =0
btSalir.Top =0
btAcerca.Top =0
'
btSalir.Left =1
btFicheros.Left =btSalir.Right
btVenta.Left =btFicheros.Right
'
btAcerca.Right =100%x
'
pnFoot.SetLeftAndRight(0,100%x)
pnFoot.Bottom=100%y
'
pnTrans.SetLeftAndRight(0,100%x)
pnTrans.SetTopAndBottom(0,100%y)
pnAcercade.Left = (100%x-pnAcercade.Width)/2
pnAcercade.Top = (100%y-pnAcercade.Height)/2
imgAD.Left=(pnAcercade.Width-imgAD.Width)/2
imgAD.Top = 20dip
Label4.Top=imgAD.Bottom
Label4.SetLeftAndRight(0,pnAcercade.Width)
pnRaya1.Height=2dip
pnRaya1.SetLeftAndRight(0,pnAcercade.Width)
pnRaya1.Top=Label4.Bottom
Label5.Top=pnRaya1.Bottom+10dip
Label5.SetLeftAndRight(0,pnAcercade.Width)
btRegistro.Top=Label5.Bottom
btRegistro.SetLeftAndRight(0,pnAcercade.Width)
Button5.Left=(pnAcercade.Width-Button5.Width)/2
Button5.top=btRegistro.Bottom + 20dip
'
pnTrans2.SetLeftAndRight(0,100%x)
pnTrans2.SetTopAndBottom(0,100%y)
pnRegistro.Left = (100%x-pnRegistro.Width)/2
pnRegistro.Top = (100%y-pnRegistro.Height)/2
pnRaya2.Height=2dip
pnRaya2.SetLeftAndRight(0,pnRegistro.Width)
pnRaya2.Top=lb4.Bottom
bt1.Left=(pnRegistro.Width-bt1.Width)/2
'
pnT.SetLeftAndRight(0,100%x)
pnT.SetTopAndBottom(0,100%y)
'