FiveTech Software tech support forums

... Barra de opciones //------------------------------------------------------------------------------ Static Procedure BrwbtnBar( oBrw ) local oBar, oBtn, oBold DEFINE BUTTONBAR oBar OF oBrw:oWnd SIZE 75,75 3D 2015 HEIGHT 96 oBold := oBar:oFont:Bold() oBar:oGrpFont := oBold oBar:bClrGrad = { || { ...

... GDIP WHEN lMenu OF oDlg ; ACTION ::ShowPopUp( Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ) .... MENU oMenu POPUP .. ENDMENU return oMenu

... ) .... ENDMENU return oMenu and another with btnbmp ocolonne .... ACTION oColonne:ShowPopUp( { |oBtn,nRow,nCol| ColonneMenu(oBtn,oBrw,oDbf,nRow,ncol,oDlg,cSection,cIniUser) } ) with the return ENDMENU return oMenu I saw your sample and not understood ...

solved https://i.postimg.cc/x1P2G9QM/gg.gif Function Hide_Ctrls(oBrw,oGet,oSay,lSearchBar,aBtn,oBar) local oBtn,n If lSearchBar oSay[1]:show() oSay[2]:show() oGet:show() oBrw:oSortCbx:show() oBrw:nTop:=32 oBrw:nHeight:= oBar:ntop-40 else oSay[1]:hide() oSay[2]:hide() ...

... 221, 239) ) ) } and I have this result https://i.postimg.cc/2jVKcWLj/jjj.gif try with this config ren NOBORDER on btnbmp for each oBtn in aBtn WITH OBJECT oBtn :nClrText := { |lOver,o| If( o:HasFocus(), DLG_nColortitle1, If( lOver, RGB(195,195,185), RGB(195,195,185) ) ) } :bClrGrad ...

I wish only delete that internal Black Box https://i.postimg.cc/Z5y5F83c/llll.png I tried also with For n= 1 to len(oBtn) obtn[n]:bClrGrad := < |u,oBtn| local clr := RGB( 245,245,235) if oBtn:lActive if oBtn:lMOver clr := {{ 1, RGB( 250,250,245),RGB( 250,250,245) }} elseif ...

Antonio Linares wrote:Silvio,

Have you tried to remove this line ?

obtn[n]:nClrBorder := RGB(195,195,185)

I remeber it wanted a codeblock with lMover but I 'm searching on forum now

Silvio,

Have you tried to remove this line ?

obtn[n]:nClrBorder := RGB(195,195,185)

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil > Albeiroval, intenta asi ...

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil >

Sample using oBtn:Toggle() function BarBtnToggle()   local oWnd, oBar, oBtn   DEFINE WINDOW oWnd MDI   DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2007   DEFINE BUTTON oBtn OF oBar ;  ...

Yes, we can use oBtn:Toggle()

? oBtn:WinStyle( WS_TABSTOP ) --> lActiveoBtn:WinStyle( WS_TABSTOP,  .T.  (or) .F. ) // Enable/Disable the TabStop style Mr. Nages Desn't work. In the TABSTOP option of the button in Pelles c I set ...

? oBtn:WinStyle( WS_TABSTOP ) --> lActiveoBtn:WinStyle( WS_TABSTOP,  .T.  (or) .F. ) // Enable/Disable the TabStop style Mr. Nages Desn't work. In the TABSTOP option of the button in Pelles c I set ...

? oBtn:WinStyle( WS_TABSTOP ) --> lActiveoBtn:WinStyle( WS_TABSTOP,  .T.  (or) .F. ) // Enable/Disable the TabStop style Mr. Nages Desn't work. In the TABSTOP option of the button in Pelles c I set ...