FoxPro/Visual FoxPro - Manejo de ToolBar en VFP

   
Vista:

Manejo de ToolBar en VFP

Publicado por Tavo (8 intervenciones) el 12/03/2016 21:51:33
Hola!
Tengo un problema al tratar de mostrar una barra de herramientas en un formulario de nivel superior creado en tiempo de diseño, ya cree mi archivo contenedor de clases el cual contiene 2 clases, barra = "ToolBar" y Boton = "CommandButton", agrego la propiedad a miform y creo el objeto "Barra", le agrego dos nuevos objetos tipo "Boton", con sus respectivas propiedades, me muestra la barra, pero no me muestra los botones.
Anexo codigo contenido en el INIT de mi formulario:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Publ oMiBarra, MiBarra
 
	Set Classlib To Prgs\Util.Vcx
	IF Not PemStatus(ThisForm,"oMiBarra",5)
		ThisForm.AddProperty("oMiBarra", NULL)
	EndIF
 
	IF ISNULL(ThisForm.oMiBarra)
		ThisForm.oMiBarra = CreateObject("Barra")
	EndIF
	ThisForm.oMiBarra.Dock(1)
	ThisForm.oMiBarra.Show()
 
	cName = "Btn" + Alltrim(Str(1, 2))
	ThisForm.oMiBarra.AddObject(cName, "Boton")
*	ThisForm.oMiBarra.NewObject(cName, "Boton", "Prgs\Util.Vcx")
	With ThisForm.oMiBarra
		.&cName..ToolTipText = "Proceso de Captura Compras Sin Pedido"
		.&cName..Picture = "Grfs\Carrito.Png"
		.&cName..Width = 50
		.&cName..Height = 60
		.&cName..Caption = "Compras"
*		.&cName..Command = "ThisForm.Release"
*		.&cName..SkipFor = .T.
	EndWith
 
	cName = "Btn" + Alltrim(Str(2, 2))
	ThisForm.oMiBarra.AddObject(cName, "Boton")
*	ThisForm.oMiBarra.NewObject(cName, "Boton", "Prgs\Util.Vcx")
	With ThisForm.oMiBarra
		.&cName..ToolTipText = "Segundo Boton"
		.&cName..Picture = "Grfs\FlgMex.Ico"
		.&cName..Width = 48
		.&cName..Height = 48
		.&cName..Caption = "Boton 2"
*		.&cName..Command = "ThisForm.Release"
*		.&cName..SkipFor = .T.
	EndWith

De antemano gracias por sus aportaciones.
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

Manejo de ToolBar en VFP

Publicado por Luiz Alexandre (58 intervenciones) el 13/03/2016 01:24:04
Espero que ajude.

.&cName.Visible = .t.

Nos dois botões.
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

Manejo de ToolBar en VFP

Publicado por Tavo (8 intervenciones) el 13/03/2016 21:50:53
Ya probe y resulto, te agradezco mucho, era algo muy sencillo pero en ocasiones se nos pasa lo mas basico, 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