FiveTech Software tech support forums

hi Antonio,

Antonio Linares wrote:After you create it, then do oWnd:oBottom = oToolBar where oWnd is the parent container of the toolbar

will SPLITTER "respect" it at Bottom like STATUSBAR

Dear Jimmy,

> p.s. can i put a Toolbar on Bottom using Fivewin ?

After you create it, then do oWnd:oBottom = oToolBar where oWnd is the parent container of the toolbar

C5 is a external class ? to no Use c5, Perhaps with a pocket class ? oToolbar:=TMyControl():New( oBrw:ntop-10,oBrw:nwidth,oBrw:oWnd , , ,, , , oBrw:nWidth, 20,, ) obtn[1] := oToolbar:AddItem("test", bAction, "top2.bmp") CLASS TMyControl ...

... Buttonbar #include "fivewin.ch"   REQUEST DBFCDX    Function Test()     local cHelp     local oDlgLook,oBar     local oBrwLook,oToolBar     local oDbf,nRec     local aCols     local cSeek:=Space(100)     local oGet     local oFont,oBold       oDbf:=Tdatabase():Open( ...

... uno de los botones debe tener un ancho mayor a los demas, los botones, tiene un ancho de 60 px, pero este necesito que sea el doble, si bien con oToolbar:aControls[ 7 ]:nWidth := 120, el tamaño se incrementa, el siguiente boton, continua en su posicion, por lo cual se solapan, STATIC PROCEDURE ...

para atualizar o menu faço assim:
oWnd:setmenu( MenuPrincipal() )
oWnd:Refresh()

pergunta, como faço para atualizar TOOLBAR ?
ex: DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 IMAGELIST oImageList BALLOON
??

Gustavo,

Hay un ejemplo en samples\toolbar1.prg:

MENUITEM "&Disable button..." ACTION oToolBar:EnableButton( 3, .f. )

MENUITEM "&Enable button..." ACTION oToolBar:EnableButton( 3, .t. )

Silvio, I am still not clear what you want to do. Do you want to be able to allow the user to show and hide the toolbar? If so, oWnd:oTop:= oToolbar oWnd:oClient:= oBrowse ACTIVATE WINDOW oWnd Then to hide the toolbar: oWnd:oTop:=nil oWnd:resize() Or to show the toolbar oWin:oTop:= oToolbar ...

oToolBar:bRClicked := {|| TRUE } oToolBar:bLClicked := {|| TRUE }    DEFINE BUTTONBAR oToolBar OF oDlg SIZE 70, 60 2010   DEFINE BUTTON NAME "TB_CLOSE"       OF oToolBar ACTION oDlg:END()                 ...

... see what happens. Maybe something with DEFINE IMGBITMAP OF oImageList NAME "new" COLOR nRGB( 255, 0, 255 ) @ 15, 900 BTNBMP oBtn5 OF oToolBar ; SIZE 100, 55 PIXEL ; // Width, Hight NOBORDER ; PROMPT " &Exit" ; FILENAME ".\bitmaps\Exit.bmp" ; ACTION oWnd:End() ...

... give You more Options ) ? Testing BtnBmp on Toolbar : http://www.pflegeplus.com/pictures/toolbar4.jpg @ 15, 900 BTNBMP oBtn3 OF oToolBar ; SIZE 100, 70 PIXEL ; // Width, Hight NOBORDER ; PROMPT " &Exit" ; FILENAME ".\bitmaps\Exit.bmp" ; ACTION oWnd:End() ...

Rick, added to sample Toolbar1.prg MDIFRAME DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 ; // 50, 50 ; IMAGELIST oImageList BALLOON // tooltips balloon style DEFINE BRUSH oTBrush COLOR 128 // Red Color oToolbar:oBrush := oTBrush 2 Gradient-Samples ( vertical, ...

jjl; voy a necesitar mas ayuda porque mirando el include de la toolbar tengo;   #xcommand DEFINE TBBUTTON ; [ OF <oToolBar> ] ; [ ACTION <uAction> ] ; [ TOOLTIP <cToolTip> ] ; [ PROMPT <cPrompt> ] ; [ WHEN <uWhen> ] ; [ MESSAGE <cMsg> ] ; => ...

... := (::nBottom / 2) - 90 ELSE ::nGridBottom := (::nBottom / 2) - oApp:oBar:nHeight ENDIF instead of ::nGridBottom := (::nBottom / 2) - oApp():oToolBar:nHeight

... Keyboard status at the MsgBar..." #DEFINE KEYB_OFF "Hides the KeyBoard status at the MsgBar..." STATIC oDlg,oBmp,oBar,ownd static oToolBar FUNCTION Main() ownd:=0 set exact on .. . .. Any ideas ?