topic-9934

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

TSBROWSE 7 updated
Posted: Tue Feb 12, 2008 07:24 PM

You can download this class of Manuel Mercado in our blog:

http://www.respuestasintegradas.blogspot.com

Thanks Manuel for your contribution!!

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

TimStone

Posts: 3022

Joined: Fri Oct 07, 2005 01:45 PM

Compatibility
Posted: Tue Feb 12, 2008 07:51 PM

Am I correct that this revision was built with the Borland compiler ?

Is it compatible with xbuilder / xcc ? ( November 2007 release )
Is it compatible with fwh 8.02 ?
Is it compatible with ADS 8 ?

Thank you.

Tim

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit

demont frank

Posts: 167

Joined: Thu Mar 22, 2007 11:24 AM

Error on 470
Posted: Wed Feb 13, 2008 02:29 PM

On line METHOD REFRESH(lPaint) :

( ::cAlias )->(Eval( ::bLogicLen ))

NOT ( ::cAlias )->Eval( ::bLogicLen )

Code: Select all Collapse

 METHOD Refresh( lPaint ) INLINE If( ::lFirstPaint == Nil .or. ::lFirstPaint, 0, ( ;
                                       ::nLen := If( ::lIsDbf, ( ::cAlias )->(Eval( ::bLogicLen )) , ;
                                       Eval( ::bLogicLen ) ), ::lNoPaint := .F. , Super:Refresh( lPaint ) ) )

The ch-files are hard coded in tsbrowse.prg , tscolumn.prg and debug.prg
Better is to use no path :

Working with a xbp-file , is better to use
# include "fivewin.ch"
instead off "c:\fwh\fivewin.ch"

In step 2 can the include path's be set , so it is possible to test with different fwh versions

Frank

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Compatibility
Posted: Wed Feb 13, 2008 04:54 PM

Hi Tim:

TimStone wrote:Am I correct that this revision was built with the Borland compiler ?

You are Right

TimStone wrote:Is it compatible with xbuilder / xcc ? ( November 2007 release )

Don't know, I don't have nor use it

TimStone wrote:Is it compatible with fwh 8.02 ?

Yes in my tests it's running ok

TimStone wrote:Is it compatible with ADS 8 ?

Don't know I don't use ADS, every ADS stuff in TSBrowse has been done by other TSBrowse contributors.

Best regards

Manuel Mercado

manuelmercado at prodigy dot net dot mx

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

TSBROWSE 7 updated
Posted: Wed Feb 13, 2008 05:01 PM

Hi Frank:

Nice to see you again, many thanks for your feedback (welcome as always)

Best regards

Manuel Mercado

manuelmercado at prodigy dot net dot mx

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

TSBROWSE 7 updated
Posted: Wed Feb 13, 2008 05:12 PM

dear Manuel,
where i can found a sample with trasparent sbrowse as the window you insert on this forum ?

Best Regards, Saludos

Falconi Silvio

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

TSBROWSE 7 updated
Posted: Wed Feb 13, 2008 05:42 PM

Hi Silvio:

Silvio wrote:where i can found a sample with trasparent sbrowse as the window you insert on this forum ?

See SBtest.prg sample 7 in TSBrowose\Samples there you have a VerCe file to build the executable

Best regards.

Manuel Mercado

ps I'm revising TSButton about your transparency request, but it'll take a while because TSButton is now in major surgery

manuelmercado at prodigy dot net dot mx

Gale FORd

Posts: 663

Joined: Mon Dec 05, 2005 11:22 PM

TSBROWSE 7 updated
Posted: Wed Feb 13, 2008 08:09 PM

I have added some things to TSbrowse and was wondering if you would like to add them to the official version.

DATA bLDblClickHeader // custom function for header (change order etc)
DATA bAddColumn // add/ins column block
DATA lColChanged // if a column was moved, added, inserted, freeze changed, or sized. I use this to know if the browse information needs to be saved.

// Right click header additions.
Insert Column - If bAddColumn defined
Add Column - If bAddColumn defined
Freeze Column - If .not. ::lLockFreeze
Unlock Freeze Column - If .not. ::lLockFreeze .and. ::nFreeze > 0

// Add RMDBFCDX to cRDDName list (Same syntax as Comix)

Thanks,

I really like the browser.

Gale

FiveTech Support Forums

Continue the discussion