Manejo de ToolBar en VFP
Publicado por Tavo (11 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:
De antemano gracias por sus aportaciones.
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, MiBarraSet 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
0