Special Event (small module) for free

[dutch]

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]

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

[Gerardo Farfan]

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

[Nop]

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

[kok joek hoa]

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

Regards,

Kok

[Antonio Linares]

Dutch,

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

[Taiwan]

Hello Dutch,

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

Regards,

Richard

[dutch]

Thanks Antonio,

Pls download here

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

Thanks&regards,
Dutch

[Silvio]

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]

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 view

*--------------------------------------*
* 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]

I correct all
but I not see the lines

[dutch]

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

[Silvio]

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