Posted: Wed Jun 25, 2008 3:42 pm
Para tomar el color predefinido en las ventanas uso GetSysColor(2).
www.FiveTechSoft.com
https://fivetechsoft.com/forums/
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.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
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()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 )
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")
METHOD AddPanel( cTitle, nHeight )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
You can use Tooltip and messages with links and panels, you only need4) 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"
Sorry, I'm working in documentation. Maybe in a few time.5) Suggestion: Documentation of all the methods and data would be helpful.
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()
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 )
Lo Aplicare en la proxima version,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")
METHOD AddPanel( cTitle, nHeight )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
Actualmente los puedes usar tanto en links como Paneles, solo haciendo esto:
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"
Trabajo en ella, en poco tiempo estara disponible,5) Sugerencia: La documentación de todos los métodos y datos sería provechosa.
Great!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()
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.You can use Tooltip and messages with links and panels, you only need
oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"
I'm agree, I recieved you mail, I'm working in a new release that use naturality xp themes.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.
Yes it's possible.Silvio wrote:
And if I want insert COMBOBOX , RADIO and GET and button controls into Panel it is possible ?
Watermarsk, Not, I'm learning how i can do it. Maybe next release.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
More great news!I'm working in a new release that use naturality xp themes.
Code: Select all
You can use Tooltip and messages with links and panels, you only need
oPanel:cTooltip := "My tooltip"
oPanel:cMsg := "My Message"
Yes, you can do it,James Bott wrote:Andres,
Does this mean that oPanel:AddLink() returns a link object? So, can we do:Code: Select all
You can use Tooltip and messages with links and panels, you only need oPanel:cTooltip := "My tooltip" oPanel:cMsg := "My Message"
oLink:= oPanel:AddLink(cPrompt)
James