xbrowse very slow vs Xbrowser

[Silvio.Falconi]

Pls see this ( xbrowse with array con 91 columns



I have 100 records on xbrowse

when I scroll the xbrowse is very slow and the separator lines are not refreshed, I insert line black each ten columns

I tried also with 20 records






If I use xbrowser adata the dialog of xbrowser is fast how it is possible ?

[nageswaragunupudi]

f I use xbrowser adata the dialog of xbrowser is fast how it is possible ?

In the case of XBrowser, the browse is created by FWH's code.
In the case of direct XBrowse, the browse is created by the programmer.

[Silvio.Falconi]

f I use xbrowser adata the dialog of xbrowser is fast how it is possible ?

In the case of XBrowser, the browse is created by FWH's code.
In the case of direct XBrowse, the browse is created by the programmer.

yes of course

I have these problems, can I have an example with 91 columns, 100 records where I can scroll faster?


then I saw also if I use

Code: Select all  Expand view

:SetGroupHeader( "Estrazione",        1,  1  )
                      :SetGroupHeader( "Decina 1-10",       2,  11 )
                      :SetGroupHeader( "Decina 11-20",     12,  21 )
                      :SetGroupHeader( "Decina 21-30",     22,  31 )
                      :SetGroupHeader( "Decina 31-40",     32,  41 )
                      :SetGroupHeader( "Decina 41-50",     42,  51 )
                      :SetGroupHeader( "Decina 51-60",     52,  61 )
                      :SetGroupHeader( "Decina 61-70",     62 , 71 )
                      :SetGroupHeader( "Decina 71-80",     72,  81 )
                      :SetGroupHeader( "Decina 81-90",     82,  91 )

it is slowly , It's as if the headers slow down the scrolling of the columns

ifI use lheader:=.f. the speed is satisfactory

[Silvio.Falconi]

Now with these clausole

:lFullPaint:=.t.
:lFastDraw:=.t.


it seems to go faster, I don't know what these two variables are, I found them by chance in the xbrowse class





Now I must only resolve the problem on paint lines I made also

Code: Select all  Expand view

oDlg:bPainted  := { |hDC| PaintDlg( hDC, oDlg, oBrw ) }

static function PaintDlg( hDC, oDlg, oBrw )

   ( hDC )

      Marcar_Lines(oBrw)
 
      oBrw:Refresh()

return nil

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

any solution ?

[nageswaragunupudi]

Sorry I posted here an animgif, with very very fast panning but unfortunately the imageshack server itself is very slow today.
Ignore it.

[nageswaragunupudi]

Code: Select all  Expand view

oBrw:lFastDraw := .t.

Improves the speed if the browse is simple and screen ornamentation is less.

FWH provides 3 alternative browses, TWBROWSE, TCBROWSE, TXBROWSE.
Nobody compels us to use XBrowse only for every browse.
We better use the most suitable browse for our requirements.
In this case WBrowse is simpler and provides faster horizontal spanning speeds. You may consider WBrowse, wherever you do not require the extra screen-rich features of xbrowse.

[Silvio.Falconi]

Code: Select all  Expand view

oBrw:lFastDraw := .t.

Improves the speed if the browse is simple and screen ornamentation is less.

FWH provides 3 alternative browses, TWBROWSE, TCBROWSE, TXBROWSE.
Nobody compels us to use XBrowse only for every browse.
We better use the most suitable browse for our requirements.
In this case WBrowse is simpler and provides faster horizontal spanning speeds. You may consider WBrowse, wherever you do not require the extra screen-rich features of xbrowse.

TWBROWSE there is no update Ceccarelli abandoned it many years ago, it does not have the graphic style of the new Windows (seven/10) and I do not think that supergroup headers can be made

Same for TCBROWSE or Superbrowse of Mercado

so I would be forced to use TXBROWSE it is the only one with the best graphics and with the possibility of creating double headers

I always use the dbu of emg giordano (emagdbu) and I saw that an archive of 10538 records and 59 columns goes very fast, I would like to know if it uses xbrowse or wbrowse

[Silvio.Falconi]

Code: Select all  Expand view

oBrw:lFastDraw := .t.

Improves the speed if the browse is simple and screen ornamentation is less.

I tried to use this on your function (viewtopic.php?f=3&t=42291&hilit=xbrowse&sid=219eb3f552cfafd821f3d23014eac849#p254116) I call it "Method NagesProcedure(aCell,aVals,nOption) CLASS TLotto"

I use on procedure to show lotto.dbf

and it make this error

Code: Select all  Expand view

  Called from: Source\lotto\tlotto.prg => (b)TLOTTO_NAGESPROCEDURE( 995 )
   Called from: C:\work\Lib32\xbrowse.prg => TXBROWSE:PAINT( 2504 )
   Called from: C:\work\Lib32\xbrowse.prg => TXBROWSE:DISPLAY( 2218 )

I'm afraid I have to resign myself and give up, unfortunately in the application I'm making I have to display a lot of data, a lot of columns because there are many of them from the Italian lottery archive, I could limit myself to not inserting frills that could weigh down the dialog too much but the result is not satisfactory

[nageswaragunupudi]

Never giveup

TLOTTO_NAGESPROCEDURE: I dont know what is this.
Whatever is it, not a good idea to import some function

Try WBrowse.

[Silvio.Falconi]

Never giveup

TLOTTO_NAGESPROCEDURE: I dont know what is this.
Whatever is it, not a good idea to import some function

Try WBrowse.

Do you remember viewtopic.php?f=3&t=42291&hilit=xbrowse&sid=219eb3f552cfafd821f3d23014eac849#p254116 ?

I use this code ( you wrote)

Code: Select all  Expand view

WITH OBJECT oBrw
      :nMarqueeStyle   := 2

      AEval( :aCols, { |o| o:nWidth := 36 }, 2 )

      for n := 2 to Len( :aCols )
         :aCols[ n ]:bLDClickData   := < |r,c,f,oCol|
            local nRow,nCol,nVal,nAt
            if lNumber == .f.
               nRow  := oCol:oBrw:nArrayAt
               nCol  := oCol:nCreationOrder
               nAt   := AScan( aCell, nRow * 100 + nCol )
               if nAt == 0
                  AAdd( aCell, nRow * 100 + nCol )
               else
                  HB_ADel( aCell, nAt, .t. )
               endif
               oCol:oBrw:Refresh()
            elseif lNumber == .t.
               nVal  := oCol:Value
               nAt   := AScan( aVals, nVal )
               if nAt == 0
                  AAdd( aVals, nVal )
               else
                  HB_ADel( aVals, nAt, .t. )
               endif
               oCol:oBrw:Refresh()
            endif
            return nil
            >
      next

      :bClrStd := < |b,oCol|
         local nRow, nVal, n
         local nCol  := oCol:nCreationOrder
         if nCol > 1
            if lNumber == .f.
               nRow  := b:nArrayAt
               if AScan( aCell, nRow * 100 + nCol ) > 0
                  return ValToColor( oCol:Value )
               endif
            elseif lNumber == .t.
               nVal  := oCol:Value
               if AScan( aVals, nVal ) > 0
                  return ValToColor( nVal )
               endif
            endif
         endif
         return { 0, CLR_WHITE }
         >

     :CreateFromCode()
   END

I always used Wbrowse before using Xbrowse, what do I do now, do I go back? With what unknown? is there a support ?

[Silvio.Falconi]

Dear Nages, Dear Antonio



I asked a friend who uses VBnet to make me a table with my archive and I could notice that unlike Xbrowse the horizontal and vertical scroll is larger than Xbrowse, I mean the scroll bar and therefore the user immediately scrolls to the 90th column, so I ask you is it possible to implement this thing also in xbrowse? that is, increase the scroll bar if the columns are at least more than 50.

[Otto]

Silvio, imagine how many windows (handles) you are using here.
With xBrowse, you have the performance where practically every cell is a window and has all functionality.
This costs resources.
I had the same problem with my room plan and the cash register. Initially, I also tried a browser approach, but it is too slow.
You need to create your own paint method here.

You have to work with coordinates and use oWnd:say(), oWnd:line(), etc.
But it is quite a bit of work.

Have you tried with LISTBOX?
Best regards,
Otto

[Silvio.Falconi]

Silvio, imagine how many windows (handles) you are using here.
With xBrowse, you have the performance where practically every cell is a window and has all functionality.
This costs resources.
I had the same problem with my room plan and the cash register. Initially, I also tried a browser approach, but it is too slow.
You need to create your own paint method here.

You have to work with coordinates and use oWnd:say(), oWnd:line(), etc.
But it is quite a bit of work.

Have you tried with LISTBOX?
Best regards,
Otto

Do you seen the last video ?

Visualbasic net


Xbrowse


look at the horizontal scrollbar class cursor.

how do i increase the size of the scrollbar cursor?

because if the cursor is small the user has to scroll to get to the end of the 90 columns

if the cursor is large the user can get to the end of the 90 columns in two clicks and thus also save resources


I think I didn't ask for the moon, it's not xbrowse's fault

I haven't used listbox (wbrowse) for many years and then listbox doesn't have e style support for win7/win10/win11, it doesn't work with tdatabase, I can't create double headers....


The goal is to increase the size of the thumb on the horizontal scroll bar, so that it visually represents a larger portion of the scrollable area. Increasing the size of the horizontal thumb can be useful when you have many columns in your XBrowse and you want the user to better see how much scrollable space there is compared to the visible data.

I tried to change the size of the thumb

Code: Select all  Expand view

function silvio_scroll( oBrw )
   local nMaxCol := len(oBrw:GetDisplayCols())
   local nVisibleCol := len(oBrw:GetVisibleCols())
   local nRange := nMaxCol - 1
   local nThumbSize := Max( 1, ( nVisibleCol * nRange ) / nMaxCol )

  if oBrw:oHScroll != nil
     oBrw:oHScroll:SetRange( 0, nMaxCol )
      oBrw:oHScroll:SetPage( nVisibleCol, .t. )
    SetScrollInfo( oBrw:oHScroll:hWnd, SB_HORZ, nThumbSize, .t. )
   endif

return nil

but the thumb size is also smaller

[Silvio.Falconi]

Nages,
How I can make to increase the cursor of Horizontal Scroll bar as you can see in this video made with Vb net ? ( Componet Datagridview https://krypton-suite.github.io/Standard-Toolkit-Online-Help/Source/Help/Output/articles/Toolkit/KryptonDataGridView.html)



Notice
the thumb is increased by more than half of the columns in fact initially it supports about 40 columns
by doing this the user does not have to scroll through all the columns and I think there is also a saving of resources,
instead the thumb of the vertical bar is slightly larger

[Silvio.Falconi]

In these days I tried both with Wbrowse (version 17a by Ceccarelli that I don't think is the official one by Fwh) and also the Sbrowse by Manuel Mercado and unfortunately I had the same slow result as xbrowse.

Then this evening I went looking for a solution to scroll my archive faster and I came across an old class of a C5 library, the famous Grid, and I tried the test prueba19.prg, which creates an array from a large BigBase dbf archive.

As you can see in this video, scrolling is very fast



Then I tried to recreate the same example ( prueba19) but with xbrowse and I saw the difference

the test

Code: Select all  Expand view

#include "fivewin.ch"

Function test()
Local oCol, oGrid
Local cCol
Local n, n2
local aTabla := array( 101, 100 )

USE BIGBASE ALIAS BIGBASE

 for n2 := 1 to 100
     aTabla[ 1, n2 ] := n2
 next

for n := 1 to 100
    for n2 := 2 to 101
       aTabla[ n2, n ] := bigbase -> ( fieldget( n2 - 1 ) )
    next n2
    bigbase->( dbskip(1) )
next n

dbclosearea("bigbase")



DEFINE WINDOW oWnd TITLE "Test velocity hscroll from bigbase.dbf"

   @ 0,0 XBROWSE ogrid OF oWnd ;
      array aTabla LINES CELL fastedit

      oWnd:oClient := ogrid

   ogrid:createfromcode()

ACTIVATE WINDOW oWnd MAXIMIZED

Return nil







 

how is this possible?