XBROWSE Border on cells

[byte-one]

Uwe, can you send to me the new code?

[ukoenig]

The new test
just let me know if it works for You

added some more options

Autofocus -test
Column-selection

inside the test the pen is defined inside the paint-function
once a style is selected it should be defined once on top of Your prg like

LOCAL lDel := .F. // status
LOCAL oPen := Pen():New( 255, nRGBRed( 16777215 ), ;
nRGBGreen( 16777215 ), ;
nRGBBlue( 16777215 ), 5 )

don*t forget

ACTIVATE DIALOG oDlg2 CENTER
RELEASE FONT oFont, oFont1
oPen:Destroy()

RETURN( NIL )



You can download the complete source and running exe

http://www.pflegeplus.com/DOWNLOADS/Border2.zip


regards
Uwe

[MGA]

Uwe

using navigation by the arrows, I get a bad effect!

[ukoenig]

Can You check with < autofocus OFF >

I didn't check using the arrow keys

Autofocus ON is drawing a border on cellfocus with the mouse
Autofocus OFF is drawing a border on cellclick

The border is painted with :

oBrw:bPainted := < |hDC|
CELL_BORDER( oBrw, hDC, nColRow, nColPos, nOption, nPosition,;
nRGBColor, nPensize, nRound, nTranpL, lCol )
RETURN NIL
>

the new position the border has to be painted :

oBrw:bChange := { || nColPos := oBrw:SelectedCol():nCreationOrder, ;
nColRow := oBrw:nRowSel, ;
MOVEBORDER( oBrw ) }

regards
Uwe

[byte-one]

Uwe, any news for this?

[ukoenig]

Günther,

for better testing I created a new test with many possible settings / selections
only changing the cell-focus from keyboard and autofocus I still found some problems
on mouseclick no problems.



regards
Uwe

[ukoenig]

Günther,

I tested with < testxbr3.prg >
and found the same problem with the < arrow-key right > moving to the next cell.
without a defined background-brush it works.

select : window -> array -> from the menue -> background -> paper
next select a cell and move to the right with the arrow-key



regards
Uwe

[ukoenig]

Günther,

I wanted to test the xBrowse-fix of the cursor-movement to the right
It is working now but if You switch to AUTOFCUS it still exists

April/May 2019
=========

- Fix to Method GoRight: When oBrw:lTransparent := .t., and cursor is moved right with
arrow key, highlight is not cleared from the previous cells. Fixed

You can download the complete new source and running exe

http://www.pflegeplus.com/DOWNLOADS/Border3.zip

regards
Uwe

[MGA]

Uwe:

behavior by holding the key down.

[ukoenig]

Thank You very much

I will have a look at it
as well I noticed a painting problem using the cursor
and reaching the top and bottom ( the painting must stop ).
You can switch to normal xBrowse usage selecting
NO border to check how it works normaly.

regards
Uwe

[MGA]

Uwe,

Anyway, congratulations for the excellent work.

[ukoenig]

The mistake I made : a wrong row-selection for painting
Found there was a wrong var defined for inside, line and outside -border-painting
Added a missing col-focus-selection by radiobuttons

oBrw:bPainted := < |hDC|
nRowPos := oBrw:nRowSel // screen row for border-painting
nRowPos1 := oBrw:Keyno() // record row for record-display on top
nColPos := oBrw:nColSel
oSay[3]:Refresh()
oSay[4]:Refresh()
IIF( nBorder = 1,CELL_BORDER( oBrw, hDC, nRowPos, nColPos, nOption, nPenPos,;
nRGBColor, nPensize, nRound, nTranpL, lCol ), NIL )
RETURN NIL
>
You can download the new source and running exe

http://www.pflegeplus.com/DOWNLOADS/Border4.zip

regards
Uwe

[MGA]

Uwe, it was very good, I tested it and I did not find any problems.