FiveTech Software tech support forums

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

Hello friends,
 
I want to put text on a background image, but within a dialog. That is, I want to put texts with different sources over a IMAGE and take control
these objects. In Window use the WSAY () and works perfectly,
but DIALOG'm not remembering how to do.
 
It's possible?

This method from TWindow should also accept font, color, etc.! (as in Wsay!)

... TSay como lo hacía anteriormente. Ya no habrá más parpadeos en este control cuando redimensionemos su contenedor :-) * Corrección: La función WSay() usada en el método Say() de la clase TWindow no estaba restaurando los colores anteriormente usados. Ahora está perfecta. * Nuevo: Nueva función ...

... from Class TControl and not from Class TSay as previously. No more flickering on this control when resizing its container :-) * Fix: function WSay() used from Class TWindow Method Say() was not restoring the previous used colors. Now it is ok. * New: function LoadHTML( GetResources(), cHTMLName ...

... METHOD Paint() CLASS TDSay local n local nColorShadow, nColorLight ::GetDC() if ::lActive if ::lView for n := 1 to len( ::aCaption ) WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], ::nClrText,,; If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ...

Its a little bug in function WSay() in source\winapi\wndsay.c:

Code: Select all  Expand view

   if( bTransparent )
      SetBkMode( hDC, TRANSPARENT );
   else    // new
      SetBkMode( hDC, OPAQUE ); // new


Fixed. Thanks for your feedback

... nColorLight if !IsWindowEnabled( ::hWnd ) && By Rossine return nil endif ::GetDC() if ::lActive for n := 1 to len( ::aCaption ) WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight, ::nSLeft, ::aCaption[ n ],; If( ::lOver, ::nClrOver, ::nClrText ),,; If( ::oFont != nil, ::oFont:hFont, ...

Gracias a Todos

Lo he podido hacer mezclando ambas partes de las soluciones que me han enviado, pero en vez de usar ExtTextOut() he utilizado WSay() ya que me permite cambio de color de letra y fondo, y si la deseo transparente o no.

Gracias

Tambien puedes probar con DrawText() o WSay() en lugar de ExTextOut() son muy similares. Con fondo transparente u Opaco, Etc... Consulta las ayudas del FWH para ver el uso de esas functiones.

... nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) endif for n := 1 to len( ::aCaption ) WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], ::nClrText,,; If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ...