FiveTech Software tech support forums

... with original sample < ribbon2.prg > The image doesn't change. http://www.pflegeplus.com/IMAGES/ribbon10.jpg ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT "Font" WIDTH 205 @ 10, 05 ADD BUTTON oBtn5 GROUP oGr1 BITMAP "..\bitmaps\bold16.bmp" GROUPBUTTON ...

I insert two get on a ribbonbar ( oGr1 ) on this get I need to have a string type " Monday, 3 May 2019" and before converte the date into this string with Convertidata(dTemp) function then I must converte to date with Conv_Textdate( ...

... ::oRebar := TRibbonBar():New(::oWndMain, aRbPrompts,,nOption,,nHeightRib, 26, , ,,,,,,,,.t.,) ::oRebar:l2016:=.t. If I create a GROUP ADD GROUP oGr1 RIBBON ::oRebar TO OPTION 2 WIDTH 480 PROMPT "Gestione" to have the colors blue for the rbbtn as l2013 I must set oGr1:l2013:=.t. and ...

Frances, Here is my exact code: @ 2,5 ADD BUTTON oBtn1 GROUP oGr1 PROMPT "New" BITMAP ".\bitmaps\document_color_blue.BMP" ; NORMAL ROUND SIZE 50,65 ACTION msgInfo("New Work Entry Here") tooltip "New Work Log Entry" ...

Frances, Here is my exact code: @ 2,5 ADD BUTTON oBtn1 GROUP oGr1 PROMPT "New" BITMAP ".\bitmaps\document_color_blue.BMP" ; NORMAL ROUND SIZE 50,65 ACTION msgInfo("New Work Entry Here") tooltip "New Work Log Entry" ...

... no color variables, I copied the whole line of code and used it after the button definition in my code for testing. @ 2,5 ADD BUTTON oBtn1 GROUP oGr1 PROMPT "New" BITMAP ".\bitmaps\document_color_blue.BMP" ; NORMAL ROUND SIZE 50,65 ACTION msgInfo("New Work Entry Here") ...

... @ 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 PROMPT "Checkbox" ; ACTION ( lVal1 := ! lVal1, oChk1:SetFile( If( lVal1, ...

... try this function ribbonbar() Local aRibbonMenu:={"Contabilità","Inventario","Utilità"} Local nHeightRib:=130 Local oGr1,oGr2,oGr3,oGr4,oGr5,oGr6,oGr7,oGr8,oGr9 Local nOption:= 1 Local nStart:= 0 Local oHand:= TCursor():New(,'HAND') oBar=TRibbonBar():New( oWndMain, ...

Estimados estoy usando esta utilidad para crear los ribonbar pero al generar el PRG no salen los bitmap en el prg los omite en fwh15.02 queda asi el prg @ 3, 357 ADD BUTTON oBtn5_1_1 PROMPT "Movimiento Curso" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 123, 26 MOSTLEFT BORDER @ 3...

... aser: tengo un dialogo por recurso con 3 group box, quiero poner color a cada uno de ellos lo estoy asiento asi y no funciona REDEFINE GROUP oGr1 ID 44 OF oDlg COLOR CLR_LCELES, CLR_WHITE REDEFINE GROUP oGr2 ID 45 OF oDlg COLOR CLR_LCELES, CLR_WHITE REDEFINE GROUP oGr3 ID 46 OF oDlg COLOR ...

... oRib:nLeftMargin = 85 oRib:CalcPos() oRib:SetSize( oWnd:nWidth ) ADD GROUP oGr1 RIBBONBAR oRib; WIDTH 80; TO OPTION 1; @ 4, 4 ADD BUTTON GROUP oGr1; SIZE oGr1:nWidth - 9, oGr1:nHeight - 7; PROMPT "Dokumenty"; BITMAP ...

Pedro,

En un grupo de la RibbonBar el bAction se ejecuta al hacer click en esta zona del grupo:

oGr1:bAction = { || MsgInfo( "click" ) }

... hand Local oBtn[40] DEFINE CURSOR oHand HAND @ 5,5 ADD BUTTON oBtn[1] PROMPT "Imprimir" ; BITMAP "RIBBON_IMPRIMIR" ; GROUP oGr1 ROUND SIZE 83,75 ACTION PrinterSetup() ... AEval(oBtn,{|n| oBtn[n]:oCursor:= oHand }) why it make error ?

por postinelli » Jue Jun 09, 2011 2:51 pm respecto a bitmaps, yo los diseño desde disco y luego cambio el codigo para que los lea desde recurso y funciona perfecto hago asi diseñando @ 3, 3 ADD BUTTON oBtn1_1_1 PROMPT "new" BITMAP "C:\FWH1101\bitmaps\16x16\additem.bmp" GROUP oGr1...

... = 30 oRBar:nLeftMargin = 10 oRBar:hSeparation = 5 oRBar:SetFont( oFont3 ) oRBar:CalcPos() all Groups are < Window-width !!! ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT "Image-Selection" width 895 oGr1:SetFont( oFont2 ) Best Regards Uwe :?: