Crear Nuevo Codigo Clase StatusBar Personalizada
Publicado por Gabriel (427 intervenciones) el 17/08/2007 17:52:54
Que tal amigos :
Estoy entrampado y no consigo solucion con este tema...
Estoy tratando de crear en el _SCREEN un StatusBar personalizado pero
me da algunos errores entre ellos :
"LA CLASE DE OBJETO NO ES VALIDA PARA ESTE CONTENEDOR"
A continuacion les muestro el codigo del problema...
Local lnPanels
WITH _Screen
.Caption="SISGEN - Sistema General de Control de Pagos (Version
1.0)"
.WindowState=2 &&Maximizado
.Autocenter=.F.
.Top=0
.Left=0
.backcolor =RGB(192,192,0)
.visible=.T.
.ControlBox=.T.
.Closable=.T. && Quitar botones de control de ventana
.MaxButton=.T.
.MinButton=.T.
.Movable=.F.
.Fontname="tahoma"
.Fontsize=10
.FontBold=.F.
ENDWITH
**********************************
* Crea el objeto TOOLBAR *
**********************************
oToolBar=CREATEOBJECT("ToolBar")
* Le agrega el objeto StatusBar
oToolBar.addobject("oStatusBar",'StatusBarX')
oToolBar.Dock(3) &&Inferior
oToolBar.movable=.F.
oToolBar.sizable=.T.
oToolBar.visible=.t.
oToolBar.oStatusBar.visible=.t.
_SCREEN.AddObject("OCXTest","StatusBarX", "MSComctlLib.sBarCtrl.2")
With oStatusBar.OCXTest
.Panels(1).Text = "Ejemplo de Status Bar"
.Panels(1).ToolTipText = "Panel 1"
.Panels(1).Style = 0
.Panels(1).Width = 300
.Panels.Add()
.Panels(2).ToolTipText = "Mayusculas Siempre"
.Panels(2).Style = 1
.Panels(2).Width = 50
.Panels.Add()
.Panels(3).ToolTipText = "Bloque numerico"
.Panels(3).Style = 2
.Panels(3).Width = 50
Endwith
Define Class StatusBarX As OleControl
Visible = .T.
Height = 25
Enddefine
Amigos me urge solucionar este problema para poder seguir avanzando en
mi proyecto...
Agradezco sus comentarios y soluciones a este caso. Ya que no logro
concentrarme en la solucion
Saludos,
GABRIEL
(Lima-Perú)
Estoy entrampado y no consigo solucion con este tema...
Estoy tratando de crear en el _SCREEN un StatusBar personalizado pero
me da algunos errores entre ellos :
"LA CLASE DE OBJETO NO ES VALIDA PARA ESTE CONTENEDOR"
A continuacion les muestro el codigo del problema...
Local lnPanels
WITH _Screen
.Caption="SISGEN - Sistema General de Control de Pagos (Version
1.0)"
.WindowState=2 &&Maximizado
.Autocenter=.F.
.Top=0
.Left=0
.backcolor =RGB(192,192,0)
.visible=.T.
.ControlBox=.T.
.Closable=.T. && Quitar botones de control de ventana
.MaxButton=.T.
.MinButton=.T.
.Movable=.F.
.Fontname="tahoma"
.Fontsize=10
.FontBold=.F.
ENDWITH
**********************************
* Crea el objeto TOOLBAR *
**********************************
oToolBar=CREATEOBJECT("ToolBar")
* Le agrega el objeto StatusBar
oToolBar.addobject("oStatusBar",'StatusBarX')
oToolBar.Dock(3) &&Inferior
oToolBar.movable=.F.
oToolBar.sizable=.T.
oToolBar.visible=.t.
oToolBar.oStatusBar.visible=.t.
_SCREEN.AddObject("OCXTest","StatusBarX", "MSComctlLib.sBarCtrl.2")
With oStatusBar.OCXTest
.Panels(1).Text = "Ejemplo de Status Bar"
.Panels(1).ToolTipText = "Panel 1"
.Panels(1).Style = 0
.Panels(1).Width = 300
.Panels.Add()
.Panels(2).ToolTipText = "Mayusculas Siempre"
.Panels(2).Style = 1
.Panels(2).Width = 50
.Panels.Add()
.Panels(3).ToolTipText = "Bloque numerico"
.Panels(3).Style = 2
.Panels(3).Width = 50
Endwith
Define Class StatusBarX As OleControl
Visible = .T.
Height = 25
Enddefine
Amigos me urge solucionar este problema para poder seguir avanzando en
mi proyecto...
Agradezco sus comentarios y soluciones a este caso. Ya que no logro
concentrarme en la solucion
Saludos,
GABRIEL
(Lima-Perú)
Valora esta pregunta
0