FiveTech Software tech support forums

... lPressed | If( ! lPressed,;
{ { 1, DLG_nColorBar1, DLG_nColorBar1} },;
{ { 1, DLG_nColorBar2, DLG_nColorBar2} } ) }
oBtnSel[n]:nClrBorder := DLG_nColorBtnB
oBtnSel[n]:oCursor:= oCursorBtn
oBtnSel[n]:nClrFocusRect := DLG_nColorBar2
oBtnSel[n]:nDeepFocusRect := 0
next

ACTIVATE ...

... box. Initialized to `8`.

3. **`oWndParent`**
- **Type:** `OBJECT`
- **Description:** Reference to the parent window of the combo box.

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

5. **`lWorking`, `lBtnUp`, `lBtnDown ...

... Description:** Additional header text.

20. **`nClrPane2`**
- **Type:** NUMERIC
- **Description:** The secondary background color.

21. **`nClrBorder`**
- **Type:** NUMERIC
- **Description:** The border color.

22. **`nClrSepara1`**
- **Type:** NUMERIC
- **Description:** The primary ...

... number. |
| `lDisColor` | Logical | Indicates if the button should use a disabled color. |
| `nClrTextDis` | Numeric | Disabled text color. |
| `nClrBorder` | Numeric | Border color. |
| `lFlatStyle` | Logical | Indicates if the button uses a flat style. |
| `nClrFocusRect` | Numeric | Color for the ...

... NOROUND ;
UPDATE TOP

also the control must not be disabled but it must not be clicked either in fact I use Toggle()


oImage:Toggle()
oImage:nClrBorder := RGB(195,195,185)
oImage:nDeepFocusRect := 0
oImage:nClrFocusRect := RGB(245,245,235)
oImage:ltransparent:=.t.
oImage:lMOver = .f.


I ...

I use
oGrp[4]:nClrText := 0xC38B2B

nClrBorder not work !!!

... it

I made

@ 105,5 XBROWSE oBrwBox OF ::oBarRight SIZE ::oBarRight:nWidth-20,279;
PIXEL NOBORDER ;
COLS 1,2,3,4,5,6;
HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ;
SIZES 80,30,30,30,30,30 ;
ARRAY adata FONT oFontx

WITH OBJECT oBrw


:lDrawBorder := .t.
:nClrBorder := CLR_RED


....
end

... lBorder.>,;
<.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,;
<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;
<.lTrans.>, [<(oSay)>], [Upper( Left( <"uni">, 1 ) ) == "U"], <.lVCenter.>, [<uCargo>], [<.relpix.>], <nClrBorder> ); [ <oSay>:SetSize( <nWidth>, <nHeight> ) ]

... dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ FONT <oFont> ] ;
[ <lCenter: CENTERED, CENTER > ] ;
[ <lRight: RIGHT > ] ;
[ <lBorder: BORDER > [CLR <nClrBorder>] ] ;
[ [<relpix:RELATIVE>] <lPixel: PIXEL, PIXELS > ] ;
[ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
[ SIZE <nWidth>, <nHeight ...

... es igual a .T., el borde se dibuja dentro del control de
navegación (Browse) y también dentro de los controles VScroll y HScroll.

- nClrBorder: Puede ser un color sólido u oPen (objeto lápiz) o hPen (manejador de lápiz).
Si se utiliza un lápiz, el recurso debe ser liberado por el ...

... control.
- New: If ::lDrawBorderIn is set to .t., the border is drawn inside
the browse control and also inside the VScroll and HScroll.
- nClrBorder: This can be a solid color or oPen (pen object) or
hPen (pen handle). If a Pen is used, the resource should be
released by the programmer after ...

... in btnbmp.prg:
Please locate these lines in the method PaintBorder
RoundBox( ::hDC, 1, 1, ::nWidth - 2, ::nHeight - 1, nRound, nRound, XEval( ::nClrBorder, ::lMover, Self ) )
if ::lFocused
RoundBox( ::hDC, 3, 3, ::nWidth - 4, ::nHeight - 3, nRound, nRound, XEval( ::nClrText, ::lMover, Self ...

... in btnbmp.prg:
Please locate these lines in the method PaintBorder
RoundBox( ::hDC, 1, 1, ::nWidth - 2, ::nHeight - 1, nRound, nRound, XEval( ::nClrBorder, ::lMover, Self ) )
if ::lFocused
RoundBox( ::hDC, 3, 3, ::nWidth - 4, ::nHeight - 3, nRound, nRound, XEval( ::nClrText, ::lMover, Self ...

... in aBtn
WITH OBJECT oBtn
:nClrText := { |lOver,o| If( o:HasFocus(), DLG_nColortitle1, If( lOver, RGB(195,195,185), RGB(195,195,185) ) ) }
:bClrGrad := { |lOver,o| If( o:HasFocus(), RGB( 250,250,245), If( lOver, RGB( 245,245,235), RGB( 250,250,245) ) ) }
:nClrBorder := RGB(195,195,185)
END
next

... 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:= oCursorBtn
next

Is it possible that it can't be removed or changed to another color?