Toolbar en el _screen VFP SP2

[Fox Reloaded]

Amigos antes que nada un saludo de mi parte, yendo al grano mi
pregunta es sencilla.

Se podrá colocar un Toolbar en el _screen de VFP?

En realidad lo hice en un formulario normal con un control ToolBar y
un control ImageList pero por mas que lo intento en el _screen solo me
aparece el Toolbar sin nada dentro de el.

Si alguien tiene información al respecto me seria de mucha ayuda.

Gracias.

Christian Torres.
Venezuela.

[ZeRoberto]

Te refieres a un toolbar nativo o algun toolbar activex, porque el
nativo no usa ImageList.

Saludos

El 28/05/12, Fox Reloaded <extasis...@gmail.com> escribió:

[Fox Reloaded]

Si es uno que esta en la librería de clases MSComctlib.toolbar.2.

Aun asi lo pude hacer en un formulario normal. Pero en el _screen?

Tendria que usar uno nativo en este caso?

De ser asi me imagino que lo agrego mediante las instrucciones normales.

loToolBar = createobject('toolbar')

DEFINE CLASS loToolBar as Toolbar... etc, etc...

Gracias por los aportes de antemano.

Christian Torres.

Venezuela.

2012/5/28 ZeRoberto <zero...@gmail.com>

--
Thanks for everything... :D

         --- Fox ---

Maracaibo, Venezuela

[ZeRoberto]

La verdad no se como seria

Tal vez sea asi

AddProperty(_Screen, "Toolbar", .NULL.)
_Screen.Toolbar = NewObject("MSComctlib.toolbar")
_Screen.Toolbar.Visible = .T.

> *Thanks for everything... :D*
> *
> *
> *
> *
> * **--- Fox ---*
> *Maracaibo, Venezuela*
>

[Fox Reloaded]

mmmmmmmmmm Intente algo asi pero nop, solo me sale la misma barrita sin botones y sin nada parecido :S

Bueno seguire intentando a ver si hay manera de hacer lo mismo que hice en el formulario pero en el _Screen.

Gracias xD

Christian Torres.

[ZeRoberto]

O sino haz esto create una class container y ahi pones el Toolbar y
ImageList creas todo el toolbar con todos los botones, y al container
lo insertas en el _screen.

[Fox Reloaded]

Bueno vamos a ver si puedo porque ya tengo un container en el screen pero tocar no es entrar.

Gracias por la idea :)

2012/5/28 ZeRoberto <zero...@gmail.com>

O sino haz esto create una class container y ahi pones el Toolbar y
ImageList creas todo el toolbar con todos los botones, y al container
lo insertas en el _screen.

--
Thank you for everything... :)

----  Christian Torres ----

* * * * Venezuela * * * *

[Fox Reloaded]

Bueno te cuento que no se puede ya que esa definicion de clase como tal no es permitida dentro del container...

Asi pues seguire intentando, pero lo mas raro es que ahorita encontre un ejemplo en PortalFox y tampoco con ese ejemplo sirve :S

En fin le seguire dando hasta conseguir mi ToolBar en el _screen.

Creo que seria de mucha utilidad. :)

Gracias.

[Daniel Sánchez]

Que deseas poner una ImageList es un objeto ocx que contiene una lista de iconos a utilizar con un listview o treeview, el objeto ocx imagelist no es un objeto que se visualice en tiempo de ejecución.

Saludos

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[Daniel Sánchez]

He realizado una prueba en mi aplicación, en esta prueba he utilizado un tools con un treeview dentro, y lo coloco para que veas que si lo coloca en el screen. Los pasos que hice es crear una clase en este caso le llame toolstree y en mi aplicación de esta manera

la instancia en mi caso esta dentro de la librería de clases mainbox

OMAINtree = Createobject('mainbox.toolstreeview')

otros comandos e instrucciones de mi aplicación

....

omaintree,show

la imagen del treeview

[ZeRoberto]

Daniel lo que Fox Reloaded quiere hacer es poner con control Toolbar Activex, no poner un Activex en un Toolbar.

 

Fox Reloaded te recomiendo que uses un control Toolbar Nativo

 

o

 

MenuCreator que tambien te permite crear Toolbars personalizados

http://www.lawebdelprogramador.com/codigo/FoxPro_Visual_FoxPro/1480-Generador_de_menus.html

 

Saludos

[Daniel Sánchez]

Quien entiende cuando no se explican bien.

[Antonio.xt]

Daniel, solo para comentarte que esta "con madre" el diseño de tu sistema, el menu a la izquierda, la barra superior de herramientas, los iconos que usas y mas porque son de un mismo estilo, me parece bien.

Saludos...

[Daniel Sánchez]

Siempre es muy importante pensar como es que deseas que se vea tu sistema, dedicarle mucho tiempo a buscar o hacer los iconos que necesitas y como comentas que sean del mismo estilo para que no se vea rara ni frankestein tu aplicación y con lo mismo da una apariencia mas profesional al tema.

[Fox Reloaded]

Yo me explique bien, el otro compañero entendio lo que queria.

Viendolo bien adoptare la manera de trabajar con un menu nativo, checkearé los links y les dire que tal me fue.

Gracias por su colaboración.

-- 

Thank you for everything... :)

----  Christian Torres ----

* * * * Venezuela * * * *

P.D: Tratare de ser mas preciso la proxima :)

[Jairo]

Mira este ejemplo

 

 

Local oldScreenLeft

Local oldScreenTop

Local oldScreenHeight

Local oldScreenWidth

Local oldScreenColor

WITH _Screen

 

*---------------------------------------------------------------------------------

Public frmMyForm

  frmMyForm = CREATEOBJECT("misnbts") && debes  crearla desde el objeto toolbar

  frmMyForm.DOCK(0) && se coloca arriba

  frmMyForm.SHOW    && habre la barra

 

*---------------------------------------------------------------------------------

 

 

oldScreenLeft=.Left                 && Guardar el tamaño y la posición actuales

   oldScreenTop=.Top

   oldScreenHeight=.Height

   oldScreenWidth=.Width

   .LockScreen=.T.                     && Desactiva el redibujado de pantalla

   .BorderStyle=1                      && Cambiar el borde a doble

   .Closable=.f.                       && Quitar botones de control de ventana

   .ControlBox=.T.

   .MaxButton=.T.

   .MinButton=.T.

   .Movable=.T.

   .Height=550

   .Width=750

   .WindowState=2

   .AutoCenter=.t.

   .icon = "data\monitor.ico"

   .picture="graphics\clave.bmp"

   .Caption="Sistema de Gestión de Almacén"  && Establecer un título

   .LockScreen=.f.                     && Activa el redibujado de pantalla

ENDWITH

 

JM

[Jairo]

Pueba esto también

 

Crea un botón en el screen

Public oHnd

oHnd = Newobject(“MiClick”)

With _Screen

.AddObject(“CmdBoton”, “CommandButton“)

Bindevent(_Screen.CmdBoton,”Click”,oHnd,”ReClick”)

With .CmdBoton

.Caption = “Prueba”

.Height = 30

.Top = (_Screen.Height / 2) – (.Height / 2)

.Left = (_Screen.Width / 2) – (.Width / 2)

.Visible = .T.

Endwith

Return

ENDWITH

 

Define Class MiClick As Session

Procedure ReClick

Messagebox(“Evento Click”)

Return

EndDefine

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Fox Reloaded
Enviado el: lunes, 28 de mayo de 2012 05:36 p.m.
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Toolbar en el _screen VFP SP2

 

Bueno te cuento que no se puede ya que esa definicion de clase como tal no es permitida dentro del container...

[Fox Reloaded]

Bueno probe lo primero pero osea lo del compañero Jairo y no me resulta, esa clase no esta definida en las librerias de clases de windows.

Y lo segundo tambien pero aunque es buena idea no se adapta al modelo de MainScreen que tengo prefijado para el programa. Ya que a medida que va a ir creciendo el programa tambien las opciones del mismo. Tanto en el Toolbar, como en la barra de menus.

Gracias por su colaboracion.

-- 

Thank you for everything... :)

----  Christian Torres ----

* * * * Venezuela * * * *

P.D: Creanme que mas facil es seguir programando en Linux en C y bajo su interfaz grafica xD

[diac...@hotmail.com]

Hola. como haces para colocar un ese menu al lado izquiero del formulario principal. 

yo quiero uno asi y no he podido hacerlo.

Me regalas el codigo l diac...@live.com

[Daniel Sánchez]

Tienes que anclar el toolbar en la esquina que deseas, luego indicar que el tootlbar no se pueda mover para eso debes indicar lo siguiente

en el método aftedock, y el ini

this.dock(1)

en el dobleclick

nodefault

en las propiedades del toolbar

controlbox=.f.

movable=.f.

top=0

left=0

Con eso debería funcionar.

Saludos

Reset Software SAC
Móvil +051-949398047 RPM 948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[Cristiana Angarita]

No.

Yo hablo es de la barra donde muestras una imagen los botones etc

Obtener Outlook para Android

---

From: publice...@googlegroups.com <publice...@googlegroups.com> on behalf of diac...@hotmail.com <diac...@hotmail.com>
Sent: Monday, August 20, 2018 5:26:30 PM
To: Comunidad de Visual Foxpro en Español
Subject: Re: [vfp] Toolbar en el _screen VFP SP2