FoxPro/Visual FoxPro - Barra de Herramientas estandar

   
Vista:

Barra de Herramientas estandar

Publicado por Pedro Canizales Arredondo (70 intervenciones) el 29/06/2009 20:11:00
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 ?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Barra de Herramientas estandar

Publicado por Pedro Canizales A. (70 intervenciones) el 29/06/2009 22:42:44
Gracias Plinio quedo resuelto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar