XBROWSE Border on cells
Re: XBROWSE Border on cells
Uwe, can you send to me the new code?
Re: XBROWSE Border on cells
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


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

Last edited by ukoenig on Wed Jun 05, 2019 8:38 am, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
Uwe
using navigation by the arrows, I get a bad effect!
using navigation by the arrows, I get a bad effect!
Re: XBROWSE Border on cells
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

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

Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
Uwe, any news for this?
Re: XBROWSE Border on cells
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
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

Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
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
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

Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
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
http://www.pflegeplus.com/DOWNLOADS/Border3.zip
regards
Uwe
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
You can download the complete new source and running exeApril/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
http://www.pflegeplus.com/DOWNLOADS/Border3.zip
regards
Uwe

Last edited by ukoenig on Wed Jun 05, 2019 6:09 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
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
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

Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
Uwe,
Anyway, congratulations for the excellent work.
Anyway, congratulations for the excellent work.

Re: XBROWSE Border on cells
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
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

Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Re: XBROWSE Border on cells
Uwe, it was very good, I tested it and I did not find any problems. 
