TSButton V.6.1 as I promised.

[mmercado]

my first test.

Very good Otto (what a speed) I hope TSButton help you to keep the quality of your apps as in every work you have shown to us.

Best regards.

Manuel Mercado

[dutch]

Dear Manuel,

I've compile with xHB.com Nov '07. I works great.

Thanks for nice lib.

Regards,
Dutch

[Otto]

Mr. Manuel,

I made some more tests.

Could you please have a look into
TSTSay:SetText() method.

SetText writes the caption and paint draws cText

Workaround:
oRes:VarPut(Tran(nMemo,"@E 999,999,999,999,999.99"))
oRes:SetText()

Regards,
Otto

[mmercado]

SetText writes the caption and paint draws cText
Workaround:
oRes:VarPut(Tran(nMemo,"@E 999,999,999,999,999.99"))
oRes:SetText()

Please change SetText Method in TSTSay.prg to:

Code: Select all  Expand view  RUN

   METHOD SetText( cText ) INLINE ::Hide(), ::VarPut( cText ), ::cCaption := Eval( ::bGet ), ;
                                  SetWindowText( ::hWnd, ::cCaption ), ::Show()


TSTSay class was a little forgotten, many thanks for your feedback.

Manuel Mercado

[ShumingWang]

Manuel Mercado,
Very little need enhance:
1.crystal,sunset shape,
the conner seems not transparent.
2. @1,2 sbutton .. ,
seems default size 0 height
3.@1,2 sbutton "text" of odlg
seems ilegal sytax "text" ,must prompt "text"
Best regards!
Shuming Wang

[Otto]

Mr. Manuel,

Thank you for your quick response and help.
I change these lines.
May I ask you if you allow me posting the
SBUTTON class for downloading on

http://fwcodesnips.com/

Regards,
Otto

[mmercado]

May I ask you if you allow me posting the
SBUTTON class for downloading on
http://fwcodesnips.com/

Of course

Regards

Manuel Mercado