Change XBROWSE Style?

[dutch]

Dear All,

I can define TXBrowse as "Windows Style=0x50210000" in .RC or .RES. But if I need to define from source code with out .RC or .RES.

How do I can define it?

Thanks

[nageswaragunupudi]

What does the style Windows Style=0x50210000 mean?

[dutch]

Dear Mr.Rao,

I need TXBRowse with flat border style as picture.

[FranciscoA]

Hi, Dutch.
Did you resolve?

[nageswaragunupudi]

Mr. Dutch

Set
oBrw:lDrawBorder := .t.

[dutch]

Dear Mr.Rao,

I've tried this but it doesn't effect.

Code: Select all  Expand view  RUN

#include "FiveWin.Ch"

FUNCTION TEST()
LOCAL oDlgTEST
LOCAL oFnt
LOCAL oBtIDOK
LOCAL oXBRW101
 
DEFINE FONT oFnt  NAME "MS Sans Serif"        SIZE 0, -8

DEFINE DIALOG oDlgTEST ;
        FROM  15,6 TO 45,84 ;
        TITLE "TXBrowse demo"  ;
        STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE

@  211, 252 BUTTON oBtIDOK ;
        SIZE 50,  14 ;
        OF oDlgTEST ;
        FONT oFnt ;
        PIXEL

@  5, 4 XBROWSE oXBRW101 ;
        SIZE 297,  202 ;
        OF oDlgTEST ;
        FONT oFnt ;
        PIXEL

   oXBRW101:lDrawBorder := .T.
        oXBRW101:CreateFromCode()

ACTIVATE DIALOG oDlgTEST
RETURN 0
 

image hosting over 10mb

Mr. Dutch

Set
oBrw:lDrawBorder := .t.

Thanks,

[nageswaragunupudi]

Add the clause NOBORDER to XBROWSE command, whenever you create from sourcecode. Just make it a habit to use always.
(Not for resources)

On bottom and right, you see the border drawn by lDrawBorder when HScroll and VScroll are absent.

[dutch]

Is it included in FWH 18.05?

[Horizon]

Hi Mr. Rao,

How can I change border color to light blue?

also if there is a scroolbar in the xbrowse, border is not impressed.

Thanks,

[nageswaragunupudi]

Is it included in FWH 18.05?

It is already there in many previous versions too.

[nageswaragunupudi]

How can I change border color to light blue?

We will provide color choice in future versions.

Code: Select all  Expand view  RUN

also if there is a scroolbar in the xbrowse, border is not impressed.
 

Yes, you are right.
We are unable to draw the border outside the scrollbar.
Drawing the border inside the scrollbar is not looking good.
If you like you may play with this and give your feedback and advice.
Look for the code
::Box( 1, 1 ..... )
towards the end of the Paint() method.
Keep changing the values and let us know if you feel something looks better.

[nageswaragunupudi]

In 18.05, we can specify oBrw:nClrBorder

[cnavarro]

Dear Mr.Rao,

I need TXBRowse with flat border style as picture.

You have tried?

Code: Select all  Expand view  RUN

            @ nRow, nCol XBROWSE ....
                    ...     STYLE FLAT NOBORDER

//   :lFlatStyle   := .T.

 

and

Code: Select all  Expand view  RUN

               //:nClrBorder        := Rgb( 73, 134, 231 )      // only in Fwh 18.05
               :lDrawBorder       := .T.
 

[dutch]

Dear Mr.Cristobal and Mr.Rao,

Yes, it is working [2015,NOBORDER and lDrawBorder].

Thank you so much.

[Horizon]

In 18.05, we can specify oBrw:nClrBorder

Hi Mr. Rao,

Have you noticed that nClrBorder is not painted when xbrowse is empty?