FiveTech Software tech support forums

... ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT "Font" WIDTH 205 @ 10, 05 ADD BUTTON oBtn5 GROUP oGr1 BITMAP "..\bitmaps\bold16.bmp" GROUPBUTTON FIRST SIZE 25, 20 ROUND ; ACTION( oBtn5:lSelected := !oBtn5:lSelected ) oBtn5:Disable() ...

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

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

... oFont1:end() SELECT(cAlias) DBGOTO(nRec) RETURN NIL FUNCTION CatchCta( oCuenta, cCTABCO ) * LOCAL oDlg, oBrw, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5 LOCAL nRec, lOk := .F. LOCAL cAlias := ALIAS() * ---Initialize database file. SELECT Cta DBGOTOP() * * ---Main execution loop. DEFINE DIALOG oDlg ...

...      //150                                    // 130          ,oBtn1:move(arect[3] -aRect[1]- 89,11  ,,,.t.);   //14  *          ,oBtn5:move(arect[3] -aRect[1]- 89,197 ,,,.t.);   //106          ,oBtn7:move(arect[3] -aRect[1]- 89,380 ,,,.t.);   //16          ,oBtn2:move(arect[3] ...

... IF !FILE( c_path + "\System\textedit.bmp" ) MsgAlert( "BMP not found !", "Attention" ) ENDIF REDEFINE BTNBMP oBtn5 ID 40 OF oDlg9 2007 ; FILENAME c_path + "\System\textedit.bmp" ; LEFT ; PROMPT " &Save" + CRLF + " to INI" ; ...

... ****************************************************************************************** function Socket1() local oBtn1, oBtn2, oBtn3, oBtn4 ,oBtn5 DEFINE WINDOW oWnd2 TITLE "Client socket" @ 1, 2 BUTTON oBtn1 PROMPT "Connect" ; ACTION Client( oBtn1, oBtn2, oBtn3, oBtn4, ...

... #include "fivewin.ch" function main DEFINE DIALOG oDlg5 FROM 10,10 to 300,500 TITLE "TEST" PIXEL @ 110, 190 BTNBMP oBtn5 size 50, 30 of oDlg5 2007 pixel action test1(odlg5,obtn5) activate dialog odlg5 centered return nil function test1(odlg5,obtn5) * coord. from ...

... TO nDlgWidth, nDlgHeight TITLE "Background-Tests" ICON oIco PIXEL // Button-Position not related to Dialogsize : @ 220, 250 BTNBMP oBtn5 SIZE 70, 40 OF oDlg5 2007 PIXEL ; http://www.pflegeplus.com/pictures/relation1.jpg Best Regards Uwe :lol:

... the Tools ( Button and ButtonBMP of the ButtonSkin -part ). Is it possible, to use it for Resources to ? I don't get it working. REDEFINE BUTTON oBtn5 PROMPT TRIM(aBTNTEXT[5][1]) + CHR( 13 ) + "Multiline-Test" ID 210 OF oDlg70 oBtn5:oFont := oTextFont oBtn5:nStyle = NOR( oBtn5:nStyle, ...

... 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, oBtn14, oBtn15 local oBtn16, oBtn17, oBtn18, oBtn19, oBtn20 local oBtn21, ...

... Bar, und changed the 2. oDlg in oDlg1 ( double define ) Static FUNC _utilmenu( oDlg, oBtn_1 ) LOCAL oWndChild, oDlg1 , oBtn1, oBTN2, oBTN3, oBTN4, oBTN5, oBTN6 ... ... DEFINE DIALOG oDlg1 RESOURCE "UTILMENU" ; // OF oWndChild ; TITLE "Utility Menu" The bar now fits exactly the ...

... W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn3:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn4:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn5:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn6:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ) ) The Original-Button-Size 65 x 40 http://www.pflegeplus.com/pictures/Butresize1.jpg ...

... 'Status' ,; 'Usuario Actual:' ,; ' ' ; on change ( xRecno := (PRESUPU)->(RECNO()) ,; If((PRESUPU)->PRE_NRO<>0,; (oBTN2:DISABLE(),oBTN5:ENABLE() ) ,; (oBTN2:ENABLE() ,oBTN5:DISABLE())) ,; oLbxPRESU:nClrPane:={||If((PRESUPU)->URGENCI==1,; CLR_HCYAN,; CLR_HGRAY ) } ) ; FIELDSIZES ...

Hi Marceo I have tried // This works DEFINE BUTTON oBtn5 of oBar RESOURCE "FIND" ; FLAT ; PROMPT 'Find' ; ACTION(oLbx:skip(20),oLbx:Refresh()) ; TOOLTIP('Find Value') // This Does Not Work DEFINE BUTTON oBtn5 of oBar RESOURCE "FIND" ...