FiveTech Software tech support forums

Uwe, can you send to me the new code?

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

Uwe

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

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

Uwe, any news for this?

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

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

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

Uwe:

behavior by holding the key down.

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

Uwe,

Anyway, congratulations for the excellent work.

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

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