TSButton V.6.1 as I promised.

mmercado · Post by **mmercado** » Sun Apr 06, 2008 3:38 pm

Otto wrote: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 · Post by **dutch** » Sun Apr 06, 2008 5:44 pm

Dear Manuel,

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

Thanks for nice lib.

Regards,
Dutch

Otto · Post by **Otto** » Sun Apr 06, 2008 11:16 pm

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 · Post by **mmercado** » Mon Apr 07, 2008 4:25 am

Otto wrote: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

   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 · Post by **ShumingWang** » Mon Apr 07, 2008 6:01 am

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 · Post by **Otto** » Mon Apr 07, 2008 6:38 am

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 · Post by **mmercado** » Mon Apr 07, 2008 4:35 pm

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

Of course

Regards

Manuel Mercado