Manuel Mercado & TSBROWSE class

George · Post by **George** » Sat Dec 22, 2007 4:40 pm

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

Otto · Post by **Otto** » Sat Dec 22, 2007 6:40 pm

Hello George,

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

James Bott · Post by **James Bott** » Sat Dec 22, 2007 8:01 pm

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

Detlef Hoefner · Post by **Detlef Hoefner** » Sat Dec 22, 2007 8:14 pm

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

James Bott · Post by **James Bott** » Sat Dec 22, 2007 8:26 pm

Detlef,

>But there are still some bugs.

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

James

Otto · Post by **Otto** » Sat Dec 22, 2007 8:40 pm

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

Otto · Post by **Otto** » Sat Dec 22, 2007 8:50 pm

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

Detlef Hoefner · Post by **Detlef Hoefner** » Sat Dec 22, 2007 9:39 pm

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

   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

Detlef Hoefner · Post by **Detlef Hoefner** » Sat Dec 22, 2007 9:46 pm

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

Otto · Post by **Otto** » Sat Dec 22, 2007 10:08 pm

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

James Bott · Post by **James Bott** » Sat Dec 22, 2007 10:29 pm

Detlef,

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

Do you remember what other problems you had?

James

Silvio · Post by **Silvio** » Sun Dec 23, 2007 1:01 am

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...

George · Post by **George** » Sun Dec 23, 2007 2:29 am

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

Armando · Post by **Armando** » Sun Dec 23, 2007 2:39 am

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

RAMESHBABU · Post by **RAMESHBABU** » Sun Dec 23, 2007 4:27 am

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