FoxPro/Visual FoxPro - Mi toolbar aparce en la ventana de FoxPro

 
Vista:

Mi toolbar aparce en la ventana de FoxPro

Publicado por Diego (11 intervenciones) el 17/06/2005 17:17:45
El código que tengo en el INIT del formulario principal es el siguiente:

SET CLASSLIB TO C:\videoclub\LIBS\videoclub_app.vcx
PUBLIC mybarra
mybarra=CREATEOBJ('tbrprincipal')
mybarra.Dock(0,1,1)&&,1,1
mybarra.SHOW

¿qué puedo hacer para que aparezca en dicho formulario, y no en la ventana de foxpro?

Gracias de antemano!

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:Mi toolbar aparce en la ventana de FoxPro

Publicado por Plinio (7841 intervenciones) el 17/06/2005 19:35:28
En los ejemplos de Solution muestra como hacerlo. Busca SDI Form.
\Samples\Solution\Forms\Sdiform.scx


SET CLASSLIB TO tulibreria ADDITIVE
thisform.oToolbar=create("barra")
thisform.oToolbar.show
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

RE:Mi toolbar aparce en la ventana de FoxPro

Publicado por David Amador T. (520 intervenciones) el 17/06/2005 20:55:01
Puedes hacer así...

oFrm = Createobject("MiForm")
oFrm.Show()

Read Events

Define Class MiToolBar As Toolbar
ShowWindow=1
Enddefine

Define Class MiForm As Form
ShowWindow=2
Procedure Init
This.Visible=.T.
This.AddProperty('oToolbar',.Null.)
This.oToolbar=Createobject('MiToolBar')
This.oToolbar.Dock(0)
This.oToolbar.Show()
EndProc
EndDefine

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
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

RE:Mi toolbar aparce en la ventana de FoxPro

Publicado por Diego (11 intervenciones) el 17/06/2005 22:08:30
Eso anduvo!
Como ya tenía creada la clase me quedó así
*--------------------------------
SET CLASSLIB TO clasetolbarcreada ADDITIVE
This.Visible=.T.
This.AddProperty('oToolbar',.Null.)
This.oToolbar=Createobject('nombreclase')
This.oToolbar.Dock(0)
This.oToolbar.Show()
*-------------------------------
Muchas gracias!
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