Fix para FWH 7.11

[Antonio Linares]

Este es un cambio necesario para FWH 7.11 en la Clase TMsgBar:

Code: Select all  Expand view

METHOD SetMsg( cText ) CLASS TMsgBar

   DEFAULT ::cMsg := ""
   
   if ::l2007
      ::cMsg = cText
      ::Refresh()
      return nil
   endif   
   
   ::GetDC()   // debe estar aquí !!!
   ...