Barra de Herramientas estandar
Publicado por Pedro Canizales Arredondo (70 intervenciones) el 29/06/2009 20:10:22
Hola a todos espero que se encuentren bien.
tengo un problema que no he podido resolver.
tengo un .exe que se ejecuta muy bien. pero el detalle es que al ejecutarse aparece la barra de herramientas estandar y quisiera quitarla
en mi prg de inicio tengo esto
SET TALK OFF
SET SYSM TO
SET STAT BAR OFF
SET CLOCK STAT
MODIFY WINDOW SCREEN TITLE "Imprime Ticket de Báscula"
SET SAFE OFF
SET EXCL ON
CLOSE DATA
SET DEFA TO C:ascula
OPEN DATA bascula
PUBLIC vControl, nPesoBruto, dFechaEntrada, dHoraEntrada
STORE '' TO vcontrol, dFechaEntrada
STORE 0 TO nPesoBruto, dHoraEntrada
DO FORM imprimeticket
READ EVENTS
SET SYSM TO DEFA
DEFINE CLASS SQLBar AS CUSTOM
PROTECTED lSetTalk, lWindows
lSetTalk = ""
lWindow = ""
NAME = "SQLBar"
PROCEDURE INIT
THIS.lSetTalk = SET("TALK")
THIS.lWindow = SYS(2015)
DEFINE WINDOW (THIS.lWindow) FROM 0,0 TO 1,1
SET TALK WINDOW (THIS.lWindow)
SET TALK ON
ENDPROC
PROCEDURE DESTROY
LOCAL lThisSetTalk
lThisSetTalk = THIS.lSetTalk
SET TALK &lThisSetTalk
RELEASE WINDOW (THIS.lWindow)
ENDPROC
ENdDEFINE
Y EN MI FORM TENGO
EVENTO UNLOAD = RELEASE THISFORM
CLEAR EVENTS
datasession = 1.- Sesion predeterminada
WindowState = 0-Normal
WindowType = 0- Sin Modo
en que me estoy equivocando ?
tengo un problema que no he podido resolver.
tengo un .exe que se ejecuta muy bien. pero el detalle es que al ejecutarse aparece la barra de herramientas estandar y quisiera quitarla
en mi prg de inicio tengo esto
SET TALK OFF
SET SYSM TO
SET STAT BAR OFF
SET CLOCK STAT
MODIFY WINDOW SCREEN TITLE "Imprime Ticket de Báscula"
SET SAFE OFF
SET EXCL ON
CLOSE DATA
SET DEFA TO C:ascula
OPEN DATA bascula
PUBLIC vControl, nPesoBruto, dFechaEntrada, dHoraEntrada
STORE '' TO vcontrol, dFechaEntrada
STORE 0 TO nPesoBruto, dHoraEntrada
DO FORM imprimeticket
READ EVENTS
SET SYSM TO DEFA
DEFINE CLASS SQLBar AS CUSTOM
PROTECTED lSetTalk, lWindows
lSetTalk = ""
lWindow = ""
NAME = "SQLBar"
PROCEDURE INIT
THIS.lSetTalk = SET("TALK")
THIS.lWindow = SYS(2015)
DEFINE WINDOW (THIS.lWindow) FROM 0,0 TO 1,1
SET TALK WINDOW (THIS.lWindow)
SET TALK ON
ENDPROC
PROCEDURE DESTROY
LOCAL lThisSetTalk
lThisSetTalk = THIS.lSetTalk
SET TALK &lThisSetTalk
RELEASE WINDOW (THIS.lWindow)
ENDPROC
ENdDEFINE
Y EN MI FORM TENGO
EVENTO UNLOAD = RELEASE THISFORM
CLEAR EVENTS
datasession = 1.- Sesion predeterminada
WindowState = 0-Normal
WindowType = 0- Sin Modo
en que me estoy equivocando ?
Valora esta pregunta
0