XBROWSE Border on cells

User avatar
byte-one
Posts: 1048
Joined: Mon Oct 24, 2005 9:54 am
Location: Austria
Contact:

Re: XBROWSE Border on cells

Post by byte-one »

Uwe, can you send to me the new code?
Regards,
Günther
---------------------------------
office@byte-one.com
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by ukoenig »

The new test :D :D
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 )

Image

You can download the complete source and running exe

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


regards
Uwe :D
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.
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: XBROWSE Border on cells

Post by MGA »

Uwe

using navigation by the arrows, I get a bad effect!
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by ukoenig »

Can You check with < autofocus OFF > :?:

I didn't check using the arrow keys :oops:

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.
User avatar
byte-one
Posts: 1048
Joined: Mon Oct 24, 2005 9:54 am
Location: Austria
Contact:

Re: XBROWSE Border on cells

Post by byte-one »

Uwe, any news for this?
Regards,
Günther
---------------------------------
office@byte-one.com
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by 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.

Image

regards
Uwe :D
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.
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by 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

Image

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.
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by 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 :D
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.
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: XBROWSE Border on cells

Post by MGA »

Uwe:

behavior by holding the key down.

Image
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by 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 :|
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.
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: XBROWSE Border on cells

Post by MGA »

Uwe,

Anyway, congratulations for the excellent work. :D
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: XBROWSE Border on cells

Post by 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 :roll:
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 :D
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.
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: XBROWSE Border on cells

Post by MGA »

Uwe, it was very good, I tested it and I did not find any problems. :D
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
Post Reply