TSay class and non themed apps

[AlexSchaft]

Hi, I got an argument error .or. in the tsay class in here

Code: Select all  Expand view  RUN

METHOD EraseBkGnd( hDC ) CLASS TSay

   if IsAppThemed() .or. ::lTransparent
      return 1
   endif

return Super:EraseBkGnd( hDC )


It seems lTransparent does not get initialized. I added

::lTransparent := .f. to TSay():New()

Not exactly sure why it came up, but it did

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

METHOD EraseBkGnd( hDC ) CLASS TSay

   DEFAULT ::lTransparent := .f.  <-- NOTE

   if IsAppThemed() .or. ::lTransparent
      return 1
   endif

return Super:EraseBkGnd( hDC )


EMG