Uwe, can you send to me the new code?
Board index FiveWin for Harbour/xHarbour XBROWSE Border on cells
Page: 1 2 (28 posts)
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
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.
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
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.
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
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.
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.
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
You can download the complete new source and running exe
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
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
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.
Uwe:
behavior by holding the key down.
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 
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.
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
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.
Uwe, it was very good, I tested it and I did not find any problems.
Page: 1 2 (28 posts)