FiveTech Software tech support forums

The M. Mercado TSbrowse Class is without a doubt the more important component that I am using in my applications. I am for sure that many of you will agree on the importance of this class.
The TSBrowse versatility and advanced characteristics are not found in any other class to manage browses.

My suggestion for M. Mercado is that converts this class to use it with FWH and xHarbour last versions.

This excellent class, as well as others of also excellent quality that are used in our programs, should not be free.
This way we can reward our fellows programmers that are working many many hours for our benefit.

Thank you Manuel for sharing with us TSbrowse.

George

Hello George,

do you have experience with xBrowser?
If yes where do you see advantages of TSBrowser over xBrowser.
Regards,
Otto

George,

>My suggestion for M. Mercado is that converts this class to use it with FWH and xHarbour last versions.

Are you having a problem with this class? It is working fine with 7.11, but I have not tried it with 7.12. If you are having a problem, what is it?

James

George,

i agree with you that TsBrowse is a real asset amongst the browsers for FiveWin. Unfortunatelly it has several bugs which Manuel Mercado never solved.
James Bott made some bug cleaning and enhancements in version 6.13.
Thanks to him. So scrollbars do now work properly.

But there are still some bugs.
I also agree with you that such work should not be distributed as 'freeware'.
I'm not sure if you know the story of Manuel Mercado.
Here in short: some years ago after giving us TsBrowe, Manuel announced to develop a visual IDE for xHarbour and asked for money because this would have been a fulltime job. A lot of FiveWin users payed 50,- Euro to enable Manuel to work on this IDE. But instead of developing Manuel disappeared. Some rumors told he would be ill.

I don't regret the 50 Euros i payed because i use frequently TsBrowse
which IMO is already worth that money.

I don't thing you'll be able to encourage Manuel to complete this great browse.

Regards,
Detlef

Detlef,

>But there are still some bugs.

What bugs have you found? Have you made any fixes?

James

I don’t speak any Spanish but as much as I understand it seems that Manuel is back.
http://fivetechsoft.com/forums/viewtopic.php?t=9312

James, did you evaluate xBrowser versus TS.
Regards,
Otto

Hello Detlef,

I have to correct you.
It was: 50$ or 58 Euro

Today the same would be:
50 Dollar=34.739 Euro
That's business!
Regards,
Otto

James,

if you use Super headers of TsBrowse you'll crash.
I corrected this in 6.13. but after some other misbehaviours i changed to Hernan's browse.

I modified the METHOD TSBrowse:DrawSuper().
Because a variable nI was running from nS to Len( aSuperHead ) + 1 a bound error happened.

In my version it was from line 2790 on

Code: Select all  Expand view

   For nI := nS To Len( aSuperHead ) + 1

      If nStartCol > nMaxWidth
         Exit
      EndIf

      If nI <= Len( aSuperHead )
         nClrFore := If( ValType( aSuperHead[ nI, 4 ] ) == "B", ;
                         Eval( aSuperHead[ nI, 4 ] ), aSuperHead[ nI, 4 ] )
         nClrBack := If( ValType( aSuperHead[ nI, 5 ] ) == "B", ;
                         Eval( aSuperHead[ nI, 5 ] ), aSuperHead[ nI, 5 ] )

         lBrush := Valtype( nClrBack ) == "O"

         If ( lDegrad := ValType( nClrBack ) == "A" )
            nClrTo   := nClrBack[ 2 ]
            nClrBack := nClrBack[ 1 ]
            nClrTo := If( ValType( nClrTo ) == "B", Eval( nClrTo ), nClrTo )
            nClrBack := If( ValType( nClrBack ) == "B", ;
                            Eval( nClrBack ), nClrBack )
         EndIf

         cHeading := aSuperHead[ nI, 3 ]

         cHeading := If( Valtype( cHeading ) == "B", Eval( cHeading ), cHeading )

         lMultiLine := Valtype( cHeading ) == "C" .and. At( Chr( 13 ), cHeading ) > 0

         l3DLook    := aSuperHead[ nI, 6 ]
         hFont      := aSuperHead[ nI, 7 ]
         lBitMap    := aSuperHead[ nI, 8 ]
         lAdjBmp    := aSuperHead[ nI, 9 ]
         nLineStyle := aSuperHead[ nI, 10 ]
         nClrLine   := aSuperHead[ nI, 11 ]
         nHAlign    := aSuperHead[ nI, 12 ]
         nVAlign    := aSuperHead[ nI, 13 ]
         lTransp    := If( lBitMap, If( aSuperHead[ nI, 14 ], 1, 2 ), 0 )
      Else
         cHeading := ""
         nWidth   := ::nPhantom
         lBitmap  := .F.
         lTransp  := 0
         nClrBack := If( ::nPhantom == -2, nClrPane, nClrBack )
      EndIf
         
      if nI <= Len( aSuperHead )
         If ::aColumns[ aSuperHead[ nI, 1 ] ]:l3DTextHead != Nil
            l3DText := ::aColumns[ aSuperHead[ nI, 1 ] ]:l3DTextHead
            nClr3dL := ::aColumns[ aSuperHead[ nI, 1 ] ]:nClr3DLHead
            nClr3dS := ::aColumns[ aSuperHead[ nI, 1 ] ]:nClr3DSHead
            nClr3dL := If( ValType( nClr3dL ) == "B", ;
                           Eval( nClr3dL, 0, nStartCol ), nClr3dL )
            nClr3dS := If( ValType( nClr3dS ) == "B", ;
                           Eval( nClr3dS, 0, nStartCol ), nClr3dS )
         Else
            l3DText := nClr3dL := nClr3dS := Nil
         EndIf
      EndIf

      TSDrawCell(      hWnd, ;  // 1
                        hDC, ;  // 2
                          0, ;  // 3
                  nStartCol, ;  // 4
                     nWidth, ;  // 5
                   cHeading, ;  // 6
                    nHAlign, ;  // 7
                   nClrFore, ;  // 8
                   nClrBack, ;  // 9
                      hFont, ;  // 10
                    lTransp, ;  // 11 0 = No Bitmap 1 = Transparent 2 = Opaque
                nHeightHead, ;  // 12
                    l3DLook, ;  // 13
                 nLineStyle, ;  // 14
                   nClrLine, ;  // 15
                          3, ;  // 16 1=Header 2=Footer 3=Super
                nHeightHead, ;  // 17
                nHeightFoot, ;  // 18
               nHeightSuper, ;  // 19
                    lAdjBmp, ;  // 20
                 lMulTiLine, ;  // 21
                    nVAlign, ;  // 22
                          0, ;  // 23 nVertLine
                     nClrTo, ;  // 24
                    lDegrad, ;  // 25
                 If( lBrush, ;
       nClrBack:hBrush, 0 ), ;  // 26
                    l3DText, ;  // 27  3D text
                    nClr3dL, ;  // 28  3D text light color
                    nClr3dS )   // 29  3D text shadow color

      nStartCol += nWidth

      nWidth := 0
      If nI < Len( aSuperHead )
         For nJ := aSuperHead[ nI + 1, 1 ] To aSuperHead[ nI + 1, 2 ]
            nWidth += aColSizes[ nJ ]
         Next
      EndIf

   Next


regards,
Detlef

Hallo Otto,

i would have paid even 100 Euro because FiveWin is still missing a professional looking browse. And Manuel's work was it worth.

btw, I wonder that you seem to prefer xBrowse.
I even can't believe what the mallorca.prg of the FWH samples is doing if you want to enter values which don't match a valid clause.
It's a mere mess.

Regards,
Detlef

Hello Detlef,
I only ask for pros and cons. As I don’t know these other browsers.
Till now I only used C Five and TWbrowse.

Euro/Dollar
I only wanted to point out how the exchange rate changed in this short time.

Best regards,
Otto

Detlef,

>but after some other misbehaviours i changed to Hernan's browse.

Do you remember what other problems you had?

James

Sorry but MM is the author of Visual fivewin project ?
Some one of us sent to this man 100,00 euros for the project do U remember : we also wait for this project...

The good looking, easy to use, features and power of Tsbrowse has not match.

I am using TSBrowse with FWH 2.7 + xHarbour Jan 2006. Tsbrowse is working fine for me, but I heard from others user that there are some issues with the arrays when using Tsbrowse + FWH.

Regarding the Visual Fivewin project I sent 100.00 to Manuel, through an Patrick Mast account (I don't remember if euros or dollars) but I do not regret it, because I earned much more than $100 by using his Tsbrowse class.
Sylvio, I don't know M. Mercado, but after all of his contribution to our forum, I am glad to see him helping us and developing new class for the Fivewin + [x]Harbour programmers.

Manuel come back and is posting comments in the spanish forum. He is going to develop a new version of TsBrowse for FWH.

Regards,

George

My 2 cents

A

Manuel come back and is posting comments in the spanish forum. He is going to develop a new version of TsBrowse for FWH.

And it will be free for all of us.

Regarding the Visual Fivewin project I sent 100.00 to Manuel, through an Patrick Mast account (I don't remember if euros or dollars) but I do not regret it, because I earned much more than $100 by using his Tsbrowse class.

I Agree.

Kind Regards

Hi all TSB Users!

Indeed it is a good news that Mr.Manuel Mercado is back.

This is the English translation of what Mr.Manuel Mercado said in his
posting in Spanish Forum on Sat Dec 22, 2007 9:26 pm

I am already working on, just trying to run with TSBrowse FWH 7.12 just
to install.

As soon as I have the results I will be communicating and I will get the
latest version of TSBrowse already working with Harbour and xHarbour, of
course for free.

Receive, as always, my affectionate greeting.

Manuel Mercado

- Ramesh Babu P