draw lines on xbrowse

[Silvio.Falconi]

I must create separator each ten lines

Code: Select all  Expand view  RUN

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 view  RUN

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

[nageswaragunupudi]

We will look into this.

[Silvio.Falconi]

We will look into this.

Nages,
I ask you the same on Nov 07, 2022

see this topic https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42314&p=255093&hilit=xbrowse+lines&sid=c4aea898a2907347e870093d31362e20&sid=d77ab4e0daafb80e39ceaab5127c5c0c#p255093

[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 view  RUN

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

 

[Silvio.Falconi]

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 view  RUN

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

 

????????

[VitalJavier]

Hola, buen dia
Puedes hacerlo por colores
[img]

[/img]

[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