FiveTech Software tech support forums

Dear Silvio,

> Called from: source\comuni\Pcomuni.prg => END( 0 )

Look for an End() call in source\comuni\Pcomuni.prg

... END   Args:     [   1] = U   Stack Calls===========   Called from: source\comuni\Pcomuni.prg => END( 0 )   Called from: Lib\btnbmp.prg => TBTNBMP:SHOWPOPUP( 2183 )   Called from: source\comuni\Pcomuni.prg => (b)COMUNI( 220 ) on the source I have ...

... PICTURE "ddd dd mmm yyyy"  ;     VALID ( DoSwitch( ddatacambio, oBtnGetExchange) ) STYLE DTS_SHOWNONE @ nRow-0.2,  320 BTNBMP oBtnGetExchange ;              PROMPT "Aggiorna on line"  OF oDlgSub;              SIZE 120, 24 PIXEL FLAT GDIPLUS ;              BITMAP ...

Mr Silvio Please make a small modificatin 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 ) )  ...

Mr Silvio Please make a small modificatin in btnbmp.prg: Please locate these lines in the method PaintBorder            RoundBox( ::hDC, 1, 1, ::nWidth - 2, ::nHeight - 1, nRound, nRound, XEval( ::nClrBorder, ...

Silvio, If you need a focus rectangle in a specific color, you would have to implement the drawing yourself. You can do this by drawing a rectangle using functions like WndBoxClr, where you can specify the brush or pen color. Otto local hPen, oCli := ::GetCliRect() hPen = CreatePen( PS_SOLID, 1, nRG...

the btnbmp class takes the color of the text to create the internal box when it has focus Yes, for painting focusrect in case of FLAT style buttons. but it shouldn't be like this....the box must be dotted and not necessarily ...

the btnbmp class takes the color of the text to create the internal box when it has focus

Yes, for painting focusrect in case of FLAT style buttons.

When an element, such as a button, is focused on a webpage, the browser typically outlines it with a dotted or solid border. This behavior is akin to the "FocusRect" you mentioned. The focus outline is crucial for accessibility, as it assists users, especially those using keyboard navigat...

Nages, I think there is an error the btnbmp class takes the color of the text to create the internal box when it has focus for a sample I set the nClrText :nClrText := { |lOver,o| If( o:HasFocus(), RGB( 219, 230, 244), If( lOver, RGB( 219, ...

... 3 ]   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-20   DEFINE DIALOG oDlg SIZE 650,300 PIXEL TRUEPIXEL FONT oFont   @  50, 50 BTNBMP    aBtn[ 1 ] PROMPT "BtnBmp-1"  SIZE 150,80 PIXEL OF oDlg FLAT NOBORDER GDIP NOROUND   @  50,250 BTNBMP    aBtn[ 2 ] ...

Dear Mr. Rao, When an element, such as a button, is focused on a webpage, the browser typically outlines it with a dotted or solid border. This behavior is akin to the "FocusRect" you mentioned. The focus outline is crucial for accessibility, as it assists users, especially those using key...

... 3 ]   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-20   DEFINE DIALOG oDlg SIZE 650,300 PIXEL TRUEPIXEL FONT oFont   @  50, 50 BTNBMP    aBtn[ 1 ] PROMPT "BtnBmp-1"  SIZE 150,80 PIXEL OF oDlg FLAT NOBORDER GDIP NOROUND   @  50,250 BTNBMP    aBtn[ 2 ] ...

... 270 ) Called from: ABMBASES.prg => MOVALIQVS( 3643 ) Called from: Sistema.prg => (b)BARBOTONES( 749 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 ) Called from: .\source\classes\CONTROL.PRG ...

Silvio

FLAT NOROUND GDIP

When these attributes are used, it doesn't work.
I have done tests without them, then it works.
There are so many ifs in the class that it would seem better to me to make a new one without all this legacy.
Best regards,
Otto

I used: C:\fwh2023\source\classes\btnbmp.prg