Para tomar el color predefinido en las ventanas uso GetSysColor(2).
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour [TExplorerBar() v1.0] Control Freeware xharbour/fivewin
Andres, funcionou...
Muito obrigado 
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
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???
Saludos
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
SGS wrote: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
{{{ ---- xharbour + Borland C --- }}}
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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
nao consegui baixar, pagina nao encontrado..
onde posso fazer download ?
Ari
Thanks,
Ari
FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br
Ari
FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br
James Bott wrote:
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
{{{ ---- xharbour + Borland C --- }}}
Andres,
Great!
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
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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
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
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
James Bott wrote:
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
{{{ ---- xharbour + Borland C --- }}}
Silvio wrote:
And if I want insert COMBOBOX , RADIO and GET and button controls into Panel it is possible ?
Yes it's possible.
Silvo wrote:
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
{{{ ---- xharbour + Borland C --- }}}
Andres,
More great news!
James
I'm working in a new release that use naturality xp themes.
More great news!
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Andres,
Does this mean that oPanel:AddLink() returns a link object? So, can we do:
oLink:= oPanel:AddLink(cPrompt)
James
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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James Bott wrote:Andres,
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.
{{{ ---- xharbour + Borland C --- }}}