[TExplorerBar() v1.0] Control Freeware xharbour/fivewin

[Alfredo Arteaga]

Para tomar el color predefinido en las ventanas uso GetSysColor(2).

[MGA]

Andres, funcionou...

Muito obrigado

[MGA]

Andres,

Como fazer para que controles em uma window fiquem ajustados automaticamente ao lado da texplorerbar?

Creio que isso não seja possível ?


Obrigado

[ADBLANCO]

POR MAS QUE LO INTENTO NO PUEDO BAJAR LA LIBRERÍA,
AL ACTIVARME EL UNZIP, NO ME DESPLIEGA NADA COMO CONTENIDO,
SOY EL ÚNICO QUE HA TENIDO ESTE PROBLEMA???

[andresreyes_mzt]

Andres,

Como fazer para que controles em uma window fiquem ajustados automaticamente ao lado da texplorerbar?

Creio que isso não seja possível ?


Obrigado

TExplorerBar() se ancla automaticamente a la Izquierda de la ventana en la cual es creada, Los controles anclados en en oTop, oRight, oBottom, oClient se ajustan automaticamente, texplorerbar ocupa el espacio de oLeft.

Es eso lo que preguntaste ??

Saludos,

Andres Reyes

[James Bott]

Andres,

Congradulations on a very nice control! I haver been wanting an ExplorerBar control for some time.

I do have some suggestions and questions.

1) Suggestion: There does not appear to be any specification of the parent window.

oBar := TExplorerBar():New()

I assume it always uses the main window ( wndMain() ) as the parent window. Perhaps the parent window should be a passed parameter.

oBar := TExplorerBar():New( oWnd )

2) Suggestion: FW already has a Panel class (TPanel) and Microsoft uses "Expando" as the name of what you are calling a panel. So I suggest changing the AddPanel() method to AddExpando().

So this:

oPanel := oBar:AddPanel("Tareas de Imágenes")

Would become this:

oExpando := oBar:AddExpando("Tareas de Imágenes")

3) Suggestion: It would be nice if we could pass lSpecial as a parameter to AddExpando.

oExpando := oBar:AddExpando("Tareas de Imágenes", lSpecial )

This will allow the creation of preprocessor commands so we can use xBase syntax. Something like this:

define expando of oBar prompt "Tareas de Imágenes" special

4) Suggestion: Two nice additions to addLink() would be tooltips and messages. The Microsoft control does have tooltips, but I think status bar messages would also be a nice option. These also need to be passed parameters so we can use xBase syntax.

define link of oExpando prompt "View as a slide show" ;
action slideshow() ;
tooltip "Arranges all the pictures in this folder into a slideshow"

5) Suggestion: Documentation of all the methods and data would be helpful.

Regards,
James

---------------------------------
Translated by Babelfish (I hope it is not too awful):

Andres,

¡Congradulations en un control muy agradable! Haver I que quiere un control de ExplorerBar por algún tiempo. Tengo algunas sugerencias y preguntas.

1) Sugerencia: No aparece ser ninguna especificación de la ventana del padre.

oBar: = TExplorerBar():New()

Asumo que utiliza siempre la ventana principal (wndMain ()) como la ventana del padre. Quizás la ventana del padre debe ser un parámetro pasajero.

oBar: = TExplorerBar():New( oWnd )

2) Sugerencia: El FW tiene ya un de la clase del panel (TPanel) y de las aplicaciones de Microsoft; Expando como el nombre de lo que usted está llamando un panel. Sugiero tan el cambiar del método de AddPanel() a AddExpando(). Tan esto:

oPanel:= oBar:AddPanel("Tareas de Imágenes")

Se convirtió esto:

oExpando:= oBar:AddExpando("Tareas de Imágenes")

3) Sugerencia: Sería agradable si podríamos pasar lSpecial como parámetro a AddExpando.

oExpando:= oBar:AddExpando("Tareas de Imágenes" , lSpecial )

Esto permitirá la creación de los comandos del preprocesador así que podemos utilizar sintaxis del xBase. Algo similar:

define expando of oBar "Tareas de Imágenes" special

4) Sugerencia: Dos adiciones agradables al addLink () serían tooltips y mensajes. Microsoft controla tiene tooltips, pero pienso que los mensajes de la barra de estado también sería una opción agradable. Éstos también necesitan ser pasados los parámetros así que podemos utilizar sintaxis del xBase.

define link of oExpando prompt "View as a slide show" ;
action slideshow() ;
tooltip "Arranges all the pictures in this folder into a slideshow"

5) Sugerencia: La documentación de todos los métodos y datos sería provechosa.

Respetos,
James

[Ari]

nao consegui baixar, pagina nao encontrado..

onde posso fazer download ?

Ari

[andresreyes_mzt]

1) Suggestion: There does not appear to be any specification of the parent window.

oBar := TExplorerBar():New()

I assume it always uses the main window ( wndMain() ) as the parent window. Perhaps the parent window should be a passed parameter.

oBar := TExplorerBar():New( oWnd )

You can use :New( oWnd ) it's right, and not always uses the main windows as the parent window, if you dont specify oWnd, oWnd has the value of GetWndDefault()

2) Suggestion: FW already has a Panel class (TPanel) and Microsoft uses "Expando" as the name of what you are calling a panel. So I suggest changing the AddPanel() method to AddExpando().

So this:

oPanel := oBar:AddPanel("Tareas de Imágenes")

Would become this:

oExpando := oBar:AddExpando("Tareas de Imágenes")

I Take it for new release, it's ok

3) Suggestion: It would be nice if we could pass lSpecial as a parameter to AddExpando.

oExpando := oBar:AddExpando("Tareas de Imágenes", lSpecial )

This will allow the creation of preprocessor commands so we can use xBase syntax. Something like this:

define expando of oBar prompt "Tareas de Imágenes" special

METHOD AddPanel( cTitle, nHeight )

You Only need nHeight, if you want to use this panel with controls, but no with links. Because with links the nHeight of panel is adjust automatically

I Take it for new release. In Third parameter

4) Suggestion: Two nice additions to addLink() would be tooltips and messages. The Microsoft control does have tooltips, but I think status bar messages would also be a nice option. These also need to be passed parameters so we can use xBase syntax.

define link of oExpando prompt "View as a slide show" ;
action slideshow() ;
tooltip "Arranges all the pictures in this folder into a slideshow"

You can use Tooltip and messages with links and panels, you only need

oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"

5) Suggestion: Documentation of all the methods and data would be helpful.

Sorry, I'm working in documentation. Maybe in a few time.

Asumo que utiliza siempre la ventana principal (wndMain ()) como la ventana del padre. Quizás la ventana del padre debe ser un parámetro pasajero.

oBar: = TExplorerBar():New( oWnd )

No se asume la ventana principal, sino la obtenida por GetWndDefault(), solo en el caso que no se especifique oWnd, que es el unico parametro del metodo :New()

2) Sugerencia: El FW tiene ya un de la clase del panel (TPanel) y de las aplicaciones de Microsoft; Expando como el nombre de lo que usted está llamando un panel. Sugiero tan el cambiar del método de AddPanel() a AddExpando(). Tan esto:

oPanel:= oBar:AddPanel("Tareas de Imágenes")

Se convirtió esto:

oExpando:= oBar:AddExpando("Tareas de Imágenes")

Lo Aplicare en la proxima version,

3) Sugerencia: Sería agradable si podríamos pasar lSpecial como parámetro a AddExpando.

oExpando:= oBar:AddExpando("Tareas de Imágenes" , lSpecial )

Esto permitirá la creación de los comandos del preprocesador así que podemos utilizar sintaxis del xBase. Algo similar:

define expando of oBar "Tareas de Imágenes" special

METHOD AddPanel( cTitle, nHeight )

Solo se nececita especificar el alto en el caso que en lugar de links, se vayan a utilizar controles como botones, cuadros de texto, siempre y cuando no se utilicen links, ya que al utilizar links el alto del panel es ajustado automaticamente.

Tomare la sugerencia para una nueva version, agregandolo como tercer parametro

4) Sugerencia: Dos adiciones agradables al addLink () serían tooltips y mensajes. Microsoft controla tiene tooltips, pero pienso que los mensajes de la barra de estado también sería una opción agradable. Éstos también necesitan ser pasados los parámetros así que podemos utilizar sintaxis del xBase.

define link of oExpando prompt "View as a slide show" ;
action slideshow() ;
tooltip "Arranges all the pictures in this folder into a slideshow"

Actualmente los puedes usar tanto en links como Paneles, solo haciendo esto:

oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"

5) Sugerencia: La documentación de todos los métodos y datos sería provechosa.

Trabajo en ella, en poco tiempo estara disponible,


Saludos,

Andres Reyes

[James Bott]

Andres,

You can use :New( oWnd ) it's right, and not always uses the main windows as the parent window, if you dont specify oWnd, oWnd has the value of GetWndDefault()

Great!

You can use Tooltip and messages with links and panels, you only need

oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"

OK, this is good to know, however, in order to make an include file so we can use xBase syntax, we need to also be able to pass them as parameters.

I will be glad to create the include file if you will add the parameters. I will also be glad to help with an English version of the documentation.

I am really excited about this new control.

Thanks,
James

[Silvio]

Excellent !!

And if I want insert COMBOBOX , RADIO and GET and button controls into Panel it is possible ?

Can you insert also a Image watermask into lo left ?

Also I 'm trying to create this class but now I have this problems

[andresreyes_mzt]

OK, this is good to know, however, in order to make an include file so we can use xBase syntax, we need to also be able to pass them as parameters.

I will be glad to create the include file if you will add the parameters. I will also be glad to help with an English version of the documentation.

I'm agree, I recieved you mail, I'm working in a new release that use naturality xp themes.

Regards,

Andres

Español:

De acuerdo, Recibi tu mail, Estoy trabajando en una nueva version que incluya naturalmente los temas visuales de xp.

Saludos,

Andres

[andresreyes_mzt]

And if I want insert COMBOBOX , RADIO and GET and button controls into Panel it is possible ?

Yes it's possible.

Can you insert also a Image watermask into lo left ?
Also I 'm trying to create this class but now I have this problems

Watermarsk, Not, I'm learning how i can do it. Maybe next release.

Marca de agua, no, Estoy aprendiendo como puedo hacerlo, tal vez en la proxima version

Regard's

Andres Reyes

[James Bott]

Andres,

I'm working in a new release that use naturality xp themes.

More great news!

James

[James Bott]

Andres,

Code: Select all  Expand view

You can use Tooltip and messages with links and panels, you only need

oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"

Does this mean that oPanel:AddLink() returns a link object? So, can we do:

oLink:= oPanel:AddLink(cPrompt)

James

[andresreyes_mzt]

Andres,

Code: Select all  Expand view

You can use Tooltip and messages with links and panels, you only need

oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"

Does this mean that oPanel:AddLink() returns a link object? So, can we do:

oLink:= oPanel:AddLink(cPrompt)

James

Yes, you can do it,

Exacto Puedes Hacerlo,

oLink:SetText( cText ) // to change cPrompt
// cambiar prompt

oLink:bAction // OnClick
// al hacer click

oLink:LoadBitmap( cBitmap ) // To change Bitmap
// para cambiar bitmap

and all you can do with other controls , :cTooltip, :cMsg, etc

y todo lo que puedes hacer con los demas controles, :ctooltip, :cMsg

Saludos,

Andres Reyes Hernandez,

Nota:

Cualquier duda, no voy a poder resolverla inmediatamente, ya que saldo de la ciudad por 3 dias, a mi regreso con gusto contesto cualquier pregunta, gracias.