FiveTech Software tech support forums

... = TReBar():New( ::oWndMain ) DEFINE TOOLBAR ::oBar OF oReBar SIZE 36,36 IMAGELIST oImageList ::oBar:lTTBalloon:=.t. ::oBar:oCursor:= oHand oReBar:InsertBand( ::oBar ) ::oBar:nHeight -= 2 DEFINE TBBUTTON OF ::oBar ; ACTION NIL ; TOOLTIP i18n( "Gestione Esercizi" ) ; MESSAGE i18n( "Gestione ...

... ) ) ::oImageList = oImageList oReBar = TReBar():New( ::oWnd ) DEFINE TOOLBAR oBar OF oReBar SIZE 25, 25 IMAGELIST oImageList ::oBar = oBar oReBar:InsertBand( oBar ) oBar:nHeight -= 2 DEFINE TBBUTTON OF oBar ; ACTION ::TopPage() ; TOOLTIP Strtran( TXT_FIRST, "&", "" ) ; ...

... oWnd ), nRGB( 192, 192, 192 ) ) oReBar = TReBar():New( oWnd ) DEFINE TOOLBAR oBar OF oReBar SIZE 25, 25 IMAGELIST oImageList oReBar:InsertBand( oBar ) oBar:nHeight -= 2 DEFINE TBBUTTON OF oBar ; ACTION TopPage() ; TOOLTIP Strtran(TXT_FIRST,"&","") ; MESSAGE ...

... } , "Excel", "Excel") AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd,; nBtn, nOr( 0x0010 ) ) } ) oReBar : InsertBand( oToolBar ) oWinH : Hide() Define Statusbar Prompt Alltrim( Str( nSegundos ) ) + " Segundos..." OF oWinh PROMPTS cTitle @ 47, 285 Get oSay ...

... "one_page2",, oWnd ), nRGB( 192, 192, 192 ) ) oReBar = TReBar():New( oWnd ) DEFINE TOOLBAR oBar OF oReBar SIZE 25, 25 IMAGELIST oImageList oReBar:InsertBand( oBar ) oBar:nHeight -= 2 DEFINE TBBUTTON OF oBar ; ACTION TopPage() ; TOOLTIP Strtran(TXT_FIRST,"&","") ; MESSAGE TXT_GOTO_FIRST_PAGE ...

... OF oToolBar[1] ; TOOLTIP "Elimina partida" DEFINE TBSEPARATOR OF oToolBar[1] DEFINE TBBUTTON OF oToolBar[1] ; TOOLTIP "Imprime relación" oReBar[1]:InsertBand( oToolBar[1] ) RETURN NIL ya probe metiendo tambien dentro de la funcion la opcion del nil y del nWidth y tampoco. Salu2 Paco

... ,,oWnd ) , nRGB( 255, 0, 255 ) ) oReBar = TReBar():New( oWnd ) DEFINE TOOLBAR oBar OF oReBar SIZE 42,42 IMAGELIST oImageList BALLOON oReBar:InsertBand( oBar ) oBar:nHeight -= 2 // ???? DEFINE TBBUTTON OF oBar ; ACTION msginfo("1") TOOLTIP "Teste de tooltip" ; menu popup <--- IS POSSIBLE ...

... widths for each toolbar oToolBar1:nWidth = 150 oToolBar2:nWidth = 500 oToolBar3:nWidth = 150 // Now we insert the toolbars into the rebar oReBar:InsertBand( oToolBar1 ) oReBar:InsertBand( oToolBar2 ) oReBar:InsertBand( oToolBar3 ) @ 2.15,1 SENSITIVE SAY oSay PROMPT "Buscar Poliza : " OF oToolBar2 ...

... widths for each toolbar oToolBar1:nWidth = 150 oToolBar2:nWidth = 500 oToolBar3:nWidth = 150 // Now we insert the toolbars into the rebar oReBar:InsertBand( oToolBar1 ) oReBar:InsertBand( oToolBar2 ) oReBar:InsertBand( oToolBar3 ) Saludos Aida

... "Salida" ) // We set the widths for each toolbar oToolBar1:nWidth = 290 oToolBar2:nWidth = 290 // Now we insert the toolbars into the rebar oReBar:InsertBand( oToolBar1 ) oReBar:InsertBand( oToolBar2 ) por que sera que sale escondido en la barra :?: Saludos Aida

... "Salida" ) // We set the widths for each toolbar oToolBar1:nWidth = 290 oToolBar2:nWidth = 290 // Now we insert the toolbars into the rebar oReBar:InsertBand( oToolBar1 ) oReBar:InsertBand( oToolBar2 ) DEFINE STATUSBAR OF oWnd PROMPT "Programacion Aida 2007" //@ 2,100 combobox cAcom var listb items ...

Gustavo,

Se le puede insertar cualquier control:

METHOD InsertBand( oControl, cText )

Desafortunadamente Windows no considera un menú como un control más.

... ) oToolBar:AddButton( { || MsgInfo( "three" ) }, "three" ) oToolBar:AddSeparator() oToolBar:AddButton( { || MsgInfo( "four" ) }, "four" ) oReBar:InsertBand( oPanel ) @ 10, 2 FOLDER oFolder PROMPTS "One", "Two", "Three" SIZE 400, 62 oToolBar2 = TToolBar():New( oFolder:aDialogs[ 1 ],,, oImageList ...