Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Problem with CHEKBOX in FW27
Posted: Fri Feb 10, 2006 05:30 PM

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)

Maurizio
www.nipeservice.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Problem with CHEKBOX in FW27
Posted: Fri Feb 10, 2006 06:38 PM

Maurizio,

Is it using FWH 2.7 February build ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Problem with CHEKBOX in FW27
Posted: Fri Feb 10, 2006 06:58 PM

RETURN( .T. )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Problem with CHEKBOX in FW27
Posted: Fri Feb 10, 2006 07:16 PM

Maurizio,

Code: Select all Collapse

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

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Problem with CHEKBOX in FW27
Posted: Fri Feb 10, 2006 08:40 PM

I had the same problem with tsay and Fwh27Feb (missing "default ltransparent := .F.)

Frank-Peter

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Problem with CHEKBOX in FW27
Posted: Fri Feb 10, 2006 09:07 PM

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 - Phone: +55(11)95150-7341

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Problem with CHEKBOX in FW27
Posted: Sat Feb 11, 2006 09:28 AM

I don't find a class TSSAY in FWH?

Frank-Peter

FiveTech Support Forums

Application

Stack Calls

Continue the discussion