Page 1 of 1
draw lines on xbrowse
Posted: Fri Nov 08, 2024 11:42 am
by Silvio.Falconi
I must create separator each ten lines
Code: Select all | Expand
static Function Marcar_Lines(oBrw)
WITH OBJECT oBrw
FOR i := 1 TO 91 STEP 10
oCol := :aCols[ i ]
ColPenColor( oCol, CLR_BLACK,:nSizePen )
NEXT
END
oBrw:refresh()
return nil
it run ok but when I scroll ( horizontal scroll) I lose the lines i.e. the lines are on bad pos as you can see on this video
How I can resolve it ?
I tried to make
Code: Select all | Expand
oDlg:bPainted := { |hDC| PaintDlg( hDC, oDlg, oBrw ) }
static function PaintDlg( hDC, oDlg, oBrw )
( hDC )
Marcar_Lines(oBrw)
* oBrw:CalcHdrHeight()
oBrw:Refresh()
return nil
but not run ok
Re: draw lines on xbrowse
Posted: Fri Nov 08, 2024 7:19 pm
by nageswaragunupudi
We will look into this.
Re: draw lines on xbrowse
Posted: Mon Nov 11, 2024 8:56 pm
by Silvio.Falconi
nageswaragunupudi wrote:We will look into this.
Nages,
I ask you the same on Nov 07, 2022
see this topic
https://forums.fivetechsupport.com/view ... 0c#p255093
Re: draw lines on xbrowse
Posted: Tue Nov 12, 2024 11:00 am
by Otto
Silvio, you cannot use i because 1 is always on the far left. You need to link the lines with the date. Create the msginfo's and check what is in aCols[ i ], for example, with xbrowse(aCols[ i ]). You need some kind of offset.
Best regards,
Otto
Code: Select all | Expand
static Function Marcar_Lines(oBrw)
WITH OBJECT oBrw
FOR i := 1 TO 91 STEP 10
oCol := :aCols[ i ]
ColPenColor( oCol, CLR_BLACK,:nSizePen )
NEXT
END
oBrw:refresh()
return nil
Re: draw lines on xbrowse
Posted: Tue Nov 12, 2024 3:39 pm
by Silvio.Falconi
Otto wrote:Silvio, you cannot use i because 1 is always on the far left. You need to link the lines with the date. Create the msginfo's and check what is in aCols[ i ], for example, with xbrowse(aCols[ i ]). You need some kind of offset.
Best regards,
Otto
Code: Select all | Expand
static Function Marcar_Lines(oBrw)
WITH OBJECT oBrw
FOR i := 1 TO 91 STEP 10
oCol := :aCols[ i ]
ColPenColor( oCol, CLR_BLACK,:nSizePen )
NEXT
END
oBrw:refresh()
return nil
????????
Re: draw lines on xbrowse
Posted: Tue Nov 12, 2024 5:33 pm
by VitalJavier
Hola, buen dia
Puedes hacerlo por colores
[/img]
Re: draw lines on xbrowse
Posted: Tue Nov 12, 2024 11:15 pm
by Silvio.Falconi
No i Need Lines each 10
maybe the problem is that you did not understand, the lines are drawn well, when you scroll with the horizontal scrollbar the lines do not remain every 10 columns, when you use the vertical scroll the lines disappear (previous message from November 7, 2022), I do not want to transform my table into a carnival of colors I just want some separation lines