FiveTech Software tech support forums

No accepta objeto mismo.

BORIS.prg(139) Error E0030 Syntax error: "syntax error at 'TBBUTTON'"

Sin el objeto, funciona perfecto el wHEN( lLigaBtn )

Saludos.

... 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 Esercizi." ) DEFINE TBBUTTON OF ...

... de utilizar RADIO in TOOLBAR muestra oscuro DEFINE TOOLBAR oToolBarProd OF oWndChildProd SIZE 26, 70 ; IMAGELIST oImageListProd BALLOON DEFINE TBBUTTON ...... .... ,.... @ 38, 350 RADIO oPesqRadio VAR nPesqRadio PROMPT "Nome" PIXEL SIZE 80, 15 OF oToolBarProd ON CHANGE MudaOrdemProd(nPesqRadio, ...

DEFINE TBBUTTON OF oBar ;
ACTION RPreviewExportarExcel( oReport ) ;
TOOLTIP "Exportar a Excel" ;
MESSAGE "Exporta a formato Excel" ;
WHEN oReport != NIl

... Function BtnBarLook(oImageList) oReBar := TReBar():New( oDlgLook ) DEFINE TOOLBAR oBar OF oReBar SIZE 22,22 IMAGELIST oImageList DEFINE TBBUTTON OF oBar ; ACTION oBrwLook:KeyDown(VK_HOME, 0) ; TOOLTIP i18n( "Primo record" ) ; MESSAGE i18n( "Primo record dell'elenco." ...

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> ...

... Juan, lo que sugería es que la variable static lImprime debes declararla al inicio de tu prg principal. Luego, por ejemplo haces esto: DEFINE TBBUTTON OF oBar ; ACTION ( lImprime:=.t., ::PrintPage() ) ; //aqui sería .t. TOOLTIP Strtran(TXT_PRINT,"&","") ; MESSAGE TXT_PRINT_CURRENT_PAGE ...

... .f., ::oWnd:End() ), según el caso. Es sólo una idea. Con esto puedes saber si se oprimió el botón de Salida o impresión. Por ejemplo en: DEFINE TBBUTTON OF oBar ; ACTION ::PrintPage() ; //aqui sería .t. TOOLTIP Strtran(TXT_PRINT,"&","") ; MESSAGE TXT_PRINT_CURRENT_PAGE ...

... aparece en el tooltip "prÚcÚdent". Para solucionarlo, yo he hecho lo contrario, un AnsiToOem() y todo solucionado: Ejemplo: DEFINE TBBUTTON OF oBar ; ACTION PrevPage( ) ; TOOLTIP AnsiToOem("précédent") ; MESSAGE " Aller vers la page précédente "

Amigos,

Não é possível usar CRLF para ter duas linhas no prompt da REBAR?


EX:

define rebar orebar of odlg
define tbbutton of obbar action(obrw:setfocus());
Prompt "Consulta"+CRLF+"PEDIDOS" <--- CRLF não funciona?!

... ::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, "&", "" ) ; MESSAGE TXT_GOTO_FIRST_PAGE DEFINE TBBUTTON ...

... ) 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 DEFINE TBBUTTON OF oBar ...

... TOOLBAR oToolBar OF oVentana SIZE 33, 33 ; // 50, 50 ; IMAGELIST oImageList BALLOON // tooltips balloon style // oToolBar:SetTextRows( 2 ) DEFINE TBBUTTON OF oToolBar ; ACTION avi601() ; TOOLTIP "Visualiza Maestro De Productores Alfabetico" DEFINE TBSEPARATOR OF oToolBar DEFINE TBBUTTON ...

... 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, "&", "" ) ; MESSAGE TXT_GOTO_FIRST_PAGE ...

... 'test.prg'... rpreview.prg(376) Error E0030 Syntax error: "parse error at 'TBMENU'" rpreview.prg(383) Error E0030 Syntax error: "parse error at 'TBBUTTON'" I need to inizialize the ::oItem thanks thanks