FiveTech Software tech support forums

ho wI c an use combometro with images @ 9,385 ; COMBOMETRO oNum1 VAR nNumFrom ; PROMPTS ArrTranspose( aElementi )[5 ] ; OF oGr ; SIZE 400, 40 ; PIXEL ; COLOR CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) for n=1 to len(aElementi) oNum1:aItems[n]:cDataType := 'F' next

@ 9,180 GET oNum2 VAR nNumTO SIZE 150,75 RIHGTTOLEFT PIXEL OF oGr PICTURE "999" FONT oFontBigNum

give me an error

test.prg(56) Error E0030 Syntax error "syntax error at '@'"

because there is a error also on whatsnew.txt file

RIGHTTOLEFT instead of RIHGTTOLEFT

Mr fafi, there is also some error because here not run ok @ 10,5 GROUPEX oGr TO 100,175 OF oDlg ; LABEL "Anagrafica cliente " PIXEL FONT oFont; IMAGE "case.bmp" POSITION 0 MARGIN 2 ; COLORHEADER METRO_TEAL,METRO_CYAN ; GRADIENT TEXTALIGN ...

New release the Gradient option not work good !! sample command @ 10,5 GROUPEX oGr TO 100,175 OF oDlg ; LABEL "Anagrafica cliente " PIXEL FONT oFont; IMAGE "case.bmp" POSITION 1 MARGIN 2 ; COLORHEADER METRO_TEAL,METRO_CYAN ; GRADIENT TEXTALIGN ...

This code is working fine:

@ 5, 6 ADD BUTTON oBtn PROMPT "HELP" GROUP oGr BITMAP ".\aiuto.bmp" SIZE 80, 50 ;
ACTION MsgInfo( "click" )

I don't understand what you are trying to do

... BUTTON' in ribbonbar doesn't work. MsgInfo() is not visualized. DEFINE CURSOR oCursor HAND @ 1, 1 ADD BUTTONBMP oBtn prompt "prova" OF oGr BITMAP "info.bmp" SIZE 50, 80 TOP; ACTION( oBtn:Capture(), oBtn:oCursor := oCursor,; oBtn:bLClicked := { | nRow, nCol | MsgInfo("!"), ...

thanks for everything Uwe. you've been very kind.
i am doing some try
do you think that in the say is possible change font and color of the text?
@ 68, 30 ADD BUTTON oSay1 GROUP oGr SIZE 65, 15 PROMPT "A Say" SAYBUTTON
i have tried but with no success.

Marzio

Marzio, these objects are defined as BUTTONS like : http://www.pflegeplus.com/IMAGES/Ribbon1.jpg @ 68, 30 ADD BUTTON oSay1 GROUP oGr SIZE 65, 15 PROMPT "A Say" SAYBUTTON @ 64, 70 ADD BUTTON oChk1 GROUP oGr1 BITMAP ".\bitmaps\checkon.bmp" MOSTLEFT SIZE 85, 18 ...

... //GROUP ------------------------------------------------------------------------------*/ #xcommand ADD GROUP [ <oGr> ] ; [ <of: RIBBONBAR, RIBBON > <oRBar> ]; [ <to: TO OPTION, TO> <nOption> ]; [ PROMPT <cCaption> ]; [ WIDTH <nWidth> ...

Hi ?

Is it possible to create TRBtn from resources ?
or BITMAP must be external file.

Something like

@ 02, 05 ADD BUTTON oBtn2 GROUP oGr RESOURCE Picture1 ;
SIZE 75, 20 PROMPT "Dialog 01" MOSTLEFT round ;
action ( Dialog01() )

Regards,

... dont define ACTION the default action will be ShowPopup() see @ 3,5 ADD BUTTON oBtn PROMPT "Change" BITMAP "mybitmap" GROUP oGr MENU oMenu ; SPLITPOPUP ROUND SIZE 65,75 TOP i dont defined action in this button, when you push the button the popup menu is displayed

Otto..

you dont need call ShowPopup()

use MENU oMenu in command ADD BUTTON
sample

@ 3,5 ADD BUTTON oBtn PROMPT "Change" BITMAP "mybitmap" GROUP oGr MENU oMenu ;
SPLITPOPUP ROUND SIZE 65,75 TOP

... use the clausole SAYBUTTON DEFINE FONT oFontDATE NAME "Verdana" SIZE 0,-20 BOLD @ 5, 3 RBBTN oSay[1] PROMPT "DAL" SAYBUTTON OF oGr SIZE 50, 50 CENTER; ACTION( MsgInfo( "Say Button" ) ) font oFontDATE But I see often the text small and for the radmenu any solution? ...

... nMargend := 3 //, lSintax := .t., lAcro := .t. local bIt, FLbxColr, FlbxFont, aTypes, bColrLoad, bFntLoad //local oRBar // local oWnd, oMenu local oGr, oGr1, oGr2, oGr3, oGr4, oMenu local oBtn, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5 local oBtn6, oBtn7, oBtn8, oBtn9, oBtn10 local oBtn11, oBtn12, oBtn13, ...

... // As Default blue oRBar:SetStyle( nStyle ) // show the Panel Bar and circolar button oRBar:PaintPanelBar() oRBar:PaintCircleButton() ADD GROUP oGr RIBBON oRBar TO OPTION 1 PROMPT "Empresa" width 135 ............ On Circular button I can oppen an popup menu and select colors : Blue, ...