Problem with CHEKBOX in FW27

Post Reply
User avatar
Maurizio
Posts: 705
Joined: Mon Oct 10, 2005 1:29 pm
Contact:

Problem with CHEKBOX in FW27

Post 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)
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Maurizio,

Is it using FWH 2.7 February build ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

RETURN( .T. )
João Santos - São Paulo - Brasil
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post 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 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Post by fp »

I had the same problem with tsay and Fwh27Feb (missing "default ltransparent := .F.)
Frank-Peter
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post 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
João Santos - São Paulo - Brasil
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Post by fp »

I don't find a class TSSAY in FWH?
Frank-Peter
Post Reply