TSay cuts the last character

[StefanHaupt]

Hi all,

under certain circumstances TSay cuts the last character.




I don´t use any font definitons. Does anyone ever noticed this ?

[Enrico Maria Giordano]

As a workaround, use SIZE clause.

EMG

[StefanHaupt]

I found a solution, nWidth gets a wrong value by default in this line in the method ::New() in TSay

Code: Select all  Expand view  RUN

DEFAULT nWidth := SAY_CHARPIX_W * Len( ::cCaption ) - 4

If you replace it with

Code: Select all  Expand view  RUN

DEFAULT nWidth := GetTextWidth( 0, ::cCaption, IIF (oFont != nil, oFont:hFont, oWnd:oFont:hFont ) )

all is working fine.

In method ::SetText you have to do the same, insert this line before ::SetWindowText (...)

Code: Select all  Expand view  RUN

::nWidth := GetTextWidth( 0, ::cCaption, ::oFont:hFont)

Now also changed text is shown correctly.

[Antonio Linares]

Stefan,

We have modified it as per your advise, many thanks

A little modifications in your code:
DEFAULT nWidth := GetTextWidth( 0, ::cCaption, If( oFont != nil, oFont:hFont,;
If( oWnd:oFont != nil, oWnd:oFont:hFont,) ) )

::nWidth := GetTextWidth( 0, ::cCaption, If( ::oFont != nil, ::oFont:hFont,) )

[RAMESHBABU]

Hello Mr.Antonio

Where to add the changes in SAY.PRG

Thanks

- Ramesh Babu P

[StefanHaupt]

Stefan,

We have modified it as per your advise, many thanks

My pleasure

Ramesh,
the first change is in method ::new() and the second in method ::SetText(). See also my former post