Special Event (small module) for free

dutch · Post by **dutch** » Mon Jan 22, 2007 6:47 am

Dear All,

I made a special event module, if who interesting pls send me a private email. I will send you for free. This is time to pay back to all.

Best regards,
Dutch

PS. I use TWbrowse() class of Hernan Ceccarelli.

dutchez4@gmail.com

Silvio · Post by **Silvio** » Mon Jan 22, 2007 8:52 am

can you send me it pls at silvio_falconi@tin.it
thanks

Gerardo Farfan · Post by **Gerardo Farfan** » Mon Jan 22, 2007 2:55 pm

can you send me it please at gerardofarfan@yahoo.com
thanks

Nop · Post by **Nop** » Mon Jan 22, 2007 3:52 pm

HI, please sendo to norbertolf@terra.com.br

kok joek hoa · Post by **kok joek hoa** » Mon Jan 22, 2007 4:43 pm

can you send me it pls : yukfa@yahoo.com

Regards,

Kok

Post by **Antonio Linares** » Mon Jan 22, 2007 6:01 pm

Dutch,

You may better upload it to www.hyperupload.com so everybody may download it, thanks

Taiwan · Post by **Taiwan** » Tue Jan 23, 2007 1:31 am

Hello Dutch,

Please send to me again. richard.service@seed.net.tw

Regards,

Richard

dutch · Post by **dutch** » Tue Jan 23, 2007 2:36 am

Thanks Antonio,

Pls download here

http://hyperupload.com/download/02ca015a22/EVENT.ZIP.html

Thanks&regards,
Dutch

Silvio · Post by **Silvio** » Tue Jan 23, 2007 9:38 am

ok but it not run on xharbour
I must made many modifies (CMX)
then I compiled it but I cannot see the lines to divide the columns

-------

dutch · Post by **dutch** » Tue Jan 23, 2007 8:51 pm

Yes, it is still 16 bit but you can use new TWbrowse.lib (32 bit) of hernan also. All below function is replace CMX.

Code: Select all | Expand

*--------------------------------------*
* Use these function instead of COMIX  *
*--------------------------------------*
Function cmxSetScope( nScope, xVal )
return if(PCount() <= 1, OrdScope( nScope ), OrdScope( nScope, xVal ))

Function cmxClrScope( nScope )
return OrdScope( nScope, Nil)

Function cmSetFilter( xVal )
return DbSetFilter( {|| xVat }, xVal )

Function cmClrFilter()
return DbClearFilter()

Function cmxKeyNo()
return OrdKeyNo()

Function cmxKeyCount()
return OrdKeyCount()

Function cmxKeyGoTo(nKey)
return OrdKeyGoTo(nKey)

Best regards,
Dutch

Silvio · Post by **Silvio** » Tue Jan 23, 2007 10:56 pm

I correct all
but I not see the lines

dutch · Post by **dutch** » Wed Jan 24, 2007 9:41 am

It has no line but it is Listbox border ( SET _3DLOOK ON ). I think you must resize list box.

Silvio · Post by **Silvio** » Wed Jan 24, 2007 11:33 am

I think we can design lines after each day .... vertical and horizontal