BITMAP
Posted: Wed Sep 09, 2009 7:12 am
Hola amigos:
Tengo un problema y no se porque pasa ni como solucionarlo, es:
Tengo una ventana principal oVentPrinc y en ella creo otra oDlgwBu2 y en esta ultima pongo una imagen con BITMAP y encima de la imagen unos GET y todo se cocloca bien pero si quiero pinchar con el raton en un GET del final para no pasar por todos no me actua. Alguien sabe porque y como corregirlo, el codigo es el siguiente:
Un saludo
Carlos
Tengo un problema y no se porque pasa ni como solucionarlo, es:
Tengo una ventana principal oVentPrinc y en ella creo otra oDlgwBu2 y en esta ultima pongo una imagen con BITMAP y encima de la imagen unos GET y todo se cocloca bien pero si quiero pinchar con el raton en un GET del final para no pasar por todos no me actua. Alguien sabe porque y como corregirlo, el codigo es el siguiente:
Code: Select all
procedure cier115()
bloqfila()
va011 = substr(texto09,1,1)
va012 = substr(texto10,1,13)
va013 = c1
va014 = c2
va015 = c3
va016 = c4
va017 = c5
zAnc = 400
zLar = 708
zVer = int((600 - 400)/2)
zHor = int((1024 - (708*zProPorH))/2)
DEFINE WINDOW oDlgwBu2 MDICHILD OF oVentPrinc PIXEL FROM zVer*ProPorV,zHor*ProPorH TO (zVer+zAnc)*ProPorV,(zHor+zLar)*ProPorH COLORS escri01, fondo01 STYLE nOr(WS_DLGFRAME)
if tipo = "J"
if periodo > 9
va100 = str(periodo,2,0)
else
va100 = "0" + str(periodo,1,0)
endif
else
va100 = str(periodo,1,0) + "T"
endif
oImg = CurDrive() + ":\" + CurDir() + "\impr" + zejer + "\imp115.bmp"
@ 5*ProporV, 5*ProporH BITMAP tDlg101 FILENAME oImg OF oDlgwBu2 PIXEL SCROLL SIZE 600*ProporH,383*ProporV
tDlg101:Zoom(ProPorH*600/840)
@ 55*ProporV,140*ProporH SAY vDlg101 VAR ejercicio OF oDlgwBu2 PIXEL SIZE 29*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER
@ 55*ProporV,237*ProporH SAY vDlg102 VAR va100 OF oDlgwBu2 PIXEL SIZE 17*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER
@ 28*ProporV,375*ProPorH GET gDlg001 VAR va011 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 11*ProPorH,16*ProPorV CENTER PICT "!" valid va011 $ " X"
@ 65*ProporV,455*ProPorH GET gDlg002 VAR va012 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 83*ProPorH,16*ProPorV CENTER
@172*ProporV,541*ProPorH GET gDlg003 VAR va013 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 41*ProPorH,16*ProPorV CENTER PICT "######"
@214*ProporV,499*ProPorH GET gDlg004 VAR va014 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 83*ProPorH,16*ProPorV CENTER PICT "###########.##"
@254*ProporV,499*ProporH GET gDlg005 VAR va015 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 83*ProporH,16*ProporV CENTER PICT "###########.##"
@295*ProporV,499*ProPorH GET gDlg006 VAR va016 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 83*ProPorH,16*ProPorV CENTER PICT "###########.##"
@335*ProporV,499*ProporH GET gDlg007 VAR va017 OF oDlgwBu2 PIXEL COLOR escri02, fondo02 FONT oFont SIZE 83*ProporH,16*ProporV CENTER PICT "###########.##"
@315*ProPorV,610*ProPorH SBUTTON oBot31 PROMPT LocaText(134,2) OF oDlgwBu2 PIXEL COLOR escri05,fondo05 SIZE 75*ProPorH,20*ProPorV ACTION Cier1151(1) RAISED XP
gDlg001:SetFocus()
ACTIVATE WINDOW oDlgwBu2 NORMAL VALID (if (GetKeyState (VK_ESCAPE), .F.,oDlgwBu2:End()))
RETURN (NIL)
Carlos