FiveTech Software tech support forums

... IIF( !empty(cMailName),;
oBtnSel[2]:SETFILE("SEL_PIE"),;
oBtnSel[2]:SETFILE("SEL_VUO") ) ) ; */





For n= 1 to 2
oBtnSel[n]:bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, DLG_nColorBar1, DLG_nColorBar1} },;
{ { 1, DLG_nColorBar2, DLG_nColorBar2} } ) }
oBtnSel[n]:nClrBorder := DLG ...

... Type:** `NUMERIC`
- **Description:** The color of the combo box border. Initialized to `CLR_GRAY`.

5. **`lWorking`, `lBtnUp`, `lBtnDown`, `lPressed`**
- **Type:** `LOGICAL`
- **Description:** Flags to track the state of the combo box (e.g., whether it is being interacted with, whether a ...

... has been released.

5. **`lBtnDown`**
- **Type:** Logical
- **Description:** A flag indicating whether the mouse button is pressed down.

6. **`lPressed`**
- **Type:** Logical
- **Description:** A flag indicating whether the button is currently in a pressed state.

7. **`lProcessing`**
- **Type ...

... is clicked. |
| `aBmpRect` | Array | Rectangle coordinates for the bitmap. |
| `cAction` | String | A string description of the action. |
| `lPressed` | Logical | Indicates if the button is currently pressed. |
| `lAdjust` | Logical | Indicates if the button should adjust its size based on the ...

... aControls[ n ]: = "AmarilloClaro20.bmp"
endif
********


//oDlg:aControls[ n ]:cToolTip = DToC(dWork)
if dWork == dSelect
oDlg:aControls[ n ]:lPressed = .T.
oDlg:aControls[ n ]:cToolTip = "Selecciono"
endif
dWork++
next n


Si puedes hecharme una mano te agradezco, solo esto me falta para ...

... ATail( oDlg:aControls ):Cargo))), CLR_BROWN,CLR_BLACK ), CLR_CYAN ) ) ) )



if ATail( oDlg:aControls ):Cargo == dDate
ATail( oDlg:aControls ):lPressed = .t.
ATail( oDlg:aControls ):cToolTip = "Selección"
elseif ATail( oDlg:aControls ):Cargo == Date()
ATail( oDlg:aControls ):cToolTip = "Hoy ...

... 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 oBtn:lPressed
clr := RGB( 180,136,85 )

else
clr := RGB( 245,245,235)
endif
endif
return clr
>

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

... 1, RGB( 229,241,251 ), RGB( 229,241,251 ) } } ) }

aBtnEle[n]:cargo:= lActive

aBtnEle[n]:bAction :={ || lActive := !lActive, aBtnEle[n]:lpressed:=If( lActive, .t.,.f. ) }


nRow+=55
nCol:=10

NEXT

How I can resolve ?

I tried also with
aBtnEle[n]:cargo:= lActive
aBtnEle[n]:bAction ...

... los 2 primeros array marcan los colores del boton al pasar por el, los segundor
// array marcan el gradient de la barra
oBar:bClrGrad := { | lPressed | If( ! lPressed, ;
{ { 1, nRGB( 123, 183, 164 ), nRGB( 151, 164, 174 ) } }, ;
{ { 1, nRGB( 166, 238, 253 ), nRGB( 185, 168, 49 ) } } ) }
return ...

Dear Silvio,

Try with aBtnBrow[3]:lPressed = .T.

... numbers" ;
ACTION (ChangePressedBtn(oSelf:oPlus))


Function ChangePressedBtn(oBtn)   local  bClrGradSelect := {| lPressed | if( lPressed  ,;      { ;         {2/5, nRGB( 253,212,168 ), nRGB( 251 ...

I tried

DEFINE BUTTON oSelf:oPlus FILENAME ".\bitmaps\plus.bmp" OF ::oBar ;
TOOLTIP "plus numbers" ;
ACTION (oSelf:oPlus:lPressed:=!oSelf:oPlus:lPressed,;
oSelf:oPlus:setcolor( CLR_BLUE, If( oSelf:oPlus:lPressed == .t., CLR_RED, CLR_BLUE )) ,;
oSelf:oPlus:refresh()

but not run ok

... a button it stays pressed to simulate the select option , so I made

DEFINE BUTTON oSelf:oPlus FILENAME ".\bitmaps\plus.bmp" OF ::oBar ;
TOOLTIP "plus numbers" ;
ACTION (oSelf:oPlus:lPressed:=!oSelf:oPlus:lPressed, oSelf:oPlus:refresh())

but it is pressed but not change the color how resolve?

... 1 ) + ::nWide_P + 1
Line 1062
//if nCol >= ::nWidth() - 13
if nCol >= ::nWidth() - ::nWide_P
Line 2079
//MoveTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), 1 )
//LineTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), nHeight - 1 )
MoveTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), 1 ...

... 1 ) + ::nWide_P + 1
Line 1062
//if nCol >= ::nWidth() - 13
if nCol >= ::nWidth() - ::nWide_P
Line 2079
//MoveTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), 1 )
//LineTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), nHeight - 1 )
MoveTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), 1 ...