Error in tsay class with FWH27 and ThemeManager disabled

[Marco Turco]

Hi,
the following error appairs now in the tsay class
in a non Themed App on Windows XP and always on all others OS.


===========
Path and name: K:\FWH\SAMPLES\TEST_EP.EXE (32 bits)
Size: 1,180,672 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 03/01/06, 09:19:41
Error description: Error BASE/1079 Argument error: .OR.
Args:
[ 1] = L .F.
[ 2] = U

Stack Calls
===========
Called from: SAY.PRG => TSAY:ERASEBKGND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: SAY.PRG => TSAY:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => SHOWWINDOW(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: RPREVIEW.PRG => RPREVIEW(0)
Called from: PRINTER.PRG => (b)TPRINTER:TPRINTER(0)
Called from: PRINTER.PRG => TPRINTER:PREVIEW(0)
Called from: PRINTER.PRG => PRINTEND(0)
Called from: test_ep.prg => MAIN(0)


This is a self-contained code that show this problem:

**********************
function Main()

local oPrn,I,nRowStep, oFont

PRINT oPrn NAME "Testing the new EP version" PREVIEW
oPrn:SetPortrait()

DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -12 OF oPrn
nRowStep:=oPrn:nVertRes()/60 && I want 60 lines

PAGE
for i:=1 to 60
oPrn:Say( i,0,"This is the row no."+str(i,3))
next
ENDPAGE
PAGE
for i:=1 to 10
oPrn:Say( i,0,"This is the row no."+str(i,3))
next
ENDPAGE
ENDPRINT

return nil
*************************

Any solution available ?

Thanks in advance.

Best Rgs,

Marco

[Enrico Maria Giordano]

Code: Select all  Expand view

METHOD EraseBkGnd( hDC ) CLASS TSay

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

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

return Super:EraseBkGnd( hDC )

EMG

[Marco Turco]

Solved. Thanks a lot EMG.

Best Regards,

Marco