Page 1 of 1

Problem with CHEKBOX in FW27

Posted: Fri Feb 10, 2006 5:30 pm
by Maurizio
I have this broblem and it is casual not in all CheckBox

The broblem is ::lTransparent

Application
===========
Path and name: D:\PRGWIN\MAST_VA\TOOLS.exe (32 bits)
Size: 2,439,168 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 10-02-2006, 18:26:32
Error description: Error BASE/1077 Parametro errato: .NOT.
Args:
[ 1] = U

Stack Calls
===========
Called from: checkbox.prg => TCHECKBOX:ERASEBKGND(182)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCHECKBOX:HANDLEEVENT(0)

Posted: Fri Feb 10, 2006 6:38 pm
by Antonio Linares
Maurizio,

Is it using FWH 2.7 February build ?

Posted: Fri Feb 10, 2006 6:58 pm
by karinha
RETURN( .T. )

Posted: Fri Feb 10, 2006 7:16 pm
by Antonio Linares
Maurizio,

Code: Select all

METHOD EraseBkGnd( hDC ) CLASS TCheckBox

   DEFAULT ::lTransparent := .f.

   if IsAppThemed() .and. ! ::lTransparent
      return 1
   endif   

return Super:EraseBkGnd( hDC )

Posted: Fri Feb 10, 2006 8:40 pm
by fp
I had the same problem with tsay and Fwh27Feb (missing "default ltransparent := .F.)

Posted: Fri Feb 10, 2006 9:07 pm
by karinha
fp wrote:I had the same problem with tsay and Fwh27Feb (missing "default ltransparent := .F.)
#ifndef _SSAY_CH
#define _SSAY_CH

/*----------------------------------------------------------------------------//
!short: SENSITIVE SAY */

#xcommand REDEFINE SENSITIVE SAY [<oSSay>] ;
[ <label: PROMPT, VAR> <cText> ] ;
[ PICTURE <cPict> ] ;
[ ID <nId> ] ;
[ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ ACTION <uAction,...> ] ;
[ <lCenter: CENTERED, CENTER > ] ;
[ <lRight: RIGHT > ] ;
[ <lBottom: BOTTOM > ];
[ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
[ COLOROVER <nClrOver> ] ;
[ <update: UPDATE > ] ;
[ FONT <oFont> ] ;
[ CURSOR <oCursor> ] ;
[ <lShaded: SHADED, SHADOW > ] ;
[ <lBox: BOX > ] ;
[ <lRaised: RAISED > ] ;
[ <lTransparent: TRANSPARENT > ] ;
[ <lLight: LIGHT > ] ;
[ ON MOUSEOVER <uMOver> ] ;
=> ;
[ <oSSay> := ] TSSay():ReDefine( <nId>, <{cText}>, <oWnd>, <cPict>, ;
[\{|Self|<uAction>\}], <.lCenter.>, <.lRight.>, <.lBottom.>, ;
<nClrText>, <nClrBack>, <nClrOver>, <.update.>, <oFont>, <oCursor>, ;
<.lShaded.>, <.lBox.>, <.lRaised.>, <.lTransparent.>, [{||<uMOver>}], <.lLight.> )

#xcommand @ <nRow>, <nCol> SENSITIVE SAY [ <oSSay> <label: PROMPT,VAR > ] <cText> ;
[ PICTURE <cPict> ] ;
[ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ FONT <oFont> ] ;
[ CURSOR <oCursor> ] ;
[ <lCenter: CENTERED, CENTER > ] ;
[ <lRight: RIGHT > ] ;
[ <lBottom: BOTTOM > ];
[ <lBorder: BORDER > ] ;
[ <lPixel: PIXEL, PIXELS > ] ;
[ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
[ COLOROVER <nClrOver> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ ACTION <uAction,...> ] ;
[ <design: DESIGN > ] ;
[ <update: UPDATE > ] ;
[ <lShaded: SHADED, SHADOW > ] ;
[ <lBox: BOX > ] ;
[ <lRaised: RAISED > ] ;
[ <lTransparent: TRANSPARENT > ] ;
[ <lLight: LIGHT > ] ;
[ ON MOUSEOVER <uMOver> ] ;
=> ;
[ <oSSay> := ] TSSay():New( <nRow>, <nCol>, <{cText}>,;
[<oWnd>], [<cPict>], <oFont>, <oCursor>, ;
[\{|Self|<uAction>\}], <.lCenter.>, <.lRight.>, <.lBottom.>, <.lBorder.>,;
<.lPixel.>, <nClrText>, <nClrBack>, <nClrOver>, <nWidth>, <nHeight>,;
<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>,;
<.lTransparent.>, [{||<uMOver>}], <.lLight.> )

#Endif

Posted: Sat Feb 11, 2006 9:28 am
by fp
I don't find a class TSSAY in FWH?