FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour draw lines on xbrowse
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

draw lines on xbrowse

Posted: Fri Nov 08, 2024 11:42 AM
I must create separator each ten lines
Code (fw): Select all Collapse
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 (fw): Select all Collapse
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: draw lines on xbrowse

Posted: Fri Nov 08, 2024 07:19 PM

We will look into this.

Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: draw lines on xbrowse

Posted: Mon Nov 11, 2024 08:56 PM
nageswaragunupudi wrote: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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Otto
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

Re: draw lines on xbrowse

Posted: Tue Nov 12, 2024 11:00 AM
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 (fw): Select all Collapse
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
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: draw lines on xbrowse

Posted: Tue Nov 12, 2024 03:39 PM
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 (fw): Select all Collapse
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

????????
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM

Re: draw lines on xbrowse

Posted: Tue Nov 12, 2024 05:33 PM
Hola, buen dia
Puedes hacerlo por colores

[/img]
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: draw lines on xbrowse

Posted: Tue Nov 12, 2024 11:15 PM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions