TsBrowse last version. Where to download ?

[avista]

Please,
Where can i download last version of TsBrowse (9.0) or higher ?

In version 8.0 line 4913

While ! ::IsColVisible( nNewCol ) .and. ::nColpos >= 1 .and. ::nColPos

something missing at the end of line and produce error..

Best regards,

[avista]

????

Noone know ?

Best regards,

[StefanHaupt]

I can send it to you, if you want. I just need your email

[avista]

Thanks for reply ,
Please send it to me, my e-mail is:

sunrised@t-home.mk

Best regards.

[StefanHaupt]

Ok, done

[MGA]

StefanHaupt,

please: ubiratan@sgsistemas.com.br

[Gale FORd]

Could you please send it to me also. Manual has tried to send it to me but he has always had problems.

gale.ford@wwrowland.com

Thanks

[StefanHaupt]

Ok, just sent

[Gale FORd]

Thanks you

[RAMESHBABU]

Hi,

Can you please send it to me also to aksharasoft@live.com ?

Regards,

- Ramesh Babu

[StefanHaupt]

done

[RAMESHBABU]

Mr.Stefan,

Thank you very much.

My best regards,

- Ramesh

[Gale FORd]

I had a problem with the horizontal scroll bar. I traced it down to the addcolumn method. If you use addcolumn, there is no updating of ::oHScroll.
The delcolumn has the code below to update the horizontal scroll bar. So I added that code to method addcolumn and it fixed my problem. I also added some code to method setdbf. I use filters and want to use cmKeyCount() because it respects the filter and scope. ordkeycount() and cmxKeyCount() will respect the scope but do not respect the filter. So a section for ::cDriver == "RMDBFCDX" .or. ::cDriver == "COMIX" was added (see 2nd code sample below).

Code: Select all  Expand view

  // added to method addcolumn
   If ::lNoHScroll
      nMin := Min( 1, Len( ::aColumns ) )
      nMax := Len( ::aColumns )
      ::oHScroll := TSBScrlBar():WinNew( nMin, nMax,, .F., Self )
      ::oHScroll:SetRange( 1, Len( ::aColumns ) )
      ::oHScroll:SetPage( 1 , .T. )

      If ::nCell == Len( ::aColSizes )
         ::oHScroll:GoBottom()
      Else
         ::oHScroll:SetPos( ::nCell )
      EndIf

   EndIf

 

Code: Select all  Expand view

   // added to method setdbf
   Elseif ::cDriver == "RMDBFCDX" .or. ::cDriver == "COMIX"
      ::bTagOrder := {|uTag|( cAlias )->( OrdSetFocus(uTag) )}
      ::lClipMore := .t.
      ::bKeyNo    := {|cTag|( cAlias )->( cmKeyNo(cTag) ) }
      ::bKeyCount := {|cTag| ( cAlias )->( If( IndexOrd() > 0, cmKeyCount( cTag ), lastrec() ) ) }
      ::bLogicLen := {|cTag| ( cAlias )->( If( IndexOrd() > 0, cmKeyCount( cTag ), lastrec() ) ) }
      ::bGoToPos  := {|n| ( cAlias )->( cmKeyGoTo( n ) ) }

 

[Gosha]

Hi,

Can you please send it to me also to gosha@dr.lv.ukrtel.net ?

Regards, - Igor.

[StefanHaupt]

Igor,

just sent