Problem with say object

[Detlef Hoefner]

Hi all,

i just found out that a redefined say does change its length depending of the content of characters .
I saw this when giving a different background color than the one of the dialog.

In 16 bit FW the say object did hold the size i gave it in Resource Workshop.
No matter how long the string was which had to be displayed.

Is there a way to reach this old behaviour ( constant length ) with FWxH ?

Thanks and regards,
Detlef

[Antonio Linares]

Detlef,

Please modify Class TSay Method SetText() this way:

Code: Select all  Expand view

METHOD SetText( cText ) CLASS TSay

   local hDC, nWidth

   DEFAULT ::lTransparent := .f.

   ::cCaption := If( ::cPicture != nil, Transform( cText, ::cPicture ),;
                     cValToChar( cText ) )

   #ifndef __CLIPPER__
      if ::oWnd:oBrush != nil .and. Empty( ::oWnd:oBrush:hBitmap ) .and. ( IsAppThemed() .or. ::lTransparent )
         DrawPBack( ::hWnd, hDC := GetDC( ::hWnd ) )
         ReleaseDC( ::hWnd, hDC )
      endif   
   #endif

   if ! lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), nOr( SS_LEFT, SS_RIGHT, SS_CENTER ) )
      nWidth = GetTextWidth( 0, ::cCaption, If( ::oFont != nil, ::oFont:hFont,) ) + 20
      if nWidth > ::nWidth
         ::nWidth = nWidth
      endif   
   endif   
   SetWindowText( ::hWnd, ::cCaption )

return nil


[Detlef Hoefner]

Antonio,

many thanks for your advice.
Is there a link script or list of modules how to rebuild the FiveHx.lib?

Regards,
Detlef