XBrowse 16.04 : RecordSelector

[nageswaragunupudi]

Till now we could toggle display of Record Selector and set width of record selector. From FWH 16.04 we can display text, change or omit pointer bitmap, display text or icon in recsel header, text on recsel footer and assign action and/or popup menu on click on recsel header.

Following screen-shots show some of the possiblities and also the code required.

Text in header, body and footer of record selector:



Row captions on record selector and icon on header:


Excel like look:


Custom bitmap for record selector pointer and
Popup menu on click of recselctor icon.

[Silvio.Falconi]

WORDERFULL

MANY MANY CONGRATULATIONS

[bpd2000]

[ukoenig]

GREAT extensions

just a small correction possible ?

I added and prepared these options in my xbrowse-config-section.
I noticed only a part of the recordselector-area is repainted after a color-change at runtime.
Is it possible to fix it as well ?

The prepared xBrowse-selection-area



best regards
Uwe

[nageswaragunupudi]

After you change record selector color during runtime, are you calling oBrw:Refresh() ?
I think oBrw:Refresh() should repaint fully with new color.
Please let me know.

[ukoenig]

Mr. Rao,

The color-change-button and browser-repaint
Everything is repainted, but for the selector-column, only the background of the selector-image-is changed.

---------------

REDEFINE BTNBMP oBtn[16] OF oDlg4 ;
ID 595 PIXEL 2007 ;
NOBORDER ;
PROMPT "&r) Ausw.Spalte" ;
FILENAME c_Pfad1 + "Paint1.Bmp" ;
ACTION ( aVal[107] := ChooseColor(aVal[107], 2 ), oBBmp[16]:Refresh(), ;
SHOW_XBRW( oBrw, aVal ) ) ;
FONT oFontSys ;
LEFT

// -- the BROWSER-update ( this function is called on any change to show the result )-------

FUNCTION SHOW_XBRW( oBrw, aVal )

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, ;
{ If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[103] ), aVal[102] }, ;
{ If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[101] ), aVal[100] } ) }
oBrw:bClrSel := ;
oBrw:bClrSelFocus := { || { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[105] ), aVal[104] } }
oBrw:nRecSelColor := aVal[107] // selector-col background
oBrw:lHScroll := .T.
oBrw:lVScroll := .T.
oBrw:lFooter := .T.
oBrw:nRowHeight := 25
oBrw:SetFont( oFontSys )

oBrw:Refresh()

RETURN NIL

----------------------

regards
Uwe

[nageswaragunupudi]

Mr Uwe

Thanks for pointing out.
We shall take care of it before release.

[ukoenig]

Mr. Rao,

just a idea.
I don't know if it is possible somthing like

oBrw1:nRecSelColor := { IIF( ( oBrw1:cAlias )->( Deleted() ), 255, aVal[103] ) }
No need to show something in a extra column

like a condition can be defined in
oBrw:aCols[ 2 ]:bClrStd := {|| { aVal[101], aVal[100] } }



best regards
Uwe

[nageswaragunupudi]

In other words, you are suggesting a codeblock for recordselector color also similar to bClrStd for a cell.
Nice suggestion, we shall look into this.