Disable Bitmap for Get-Action

[Rick Lipkin]

To All

I am looking for a way to disable a bitmap for a get-action line when ... specifically :

Code: Select all  Expand view

REDEFINE GET oPERMASSN  VAR cPERMASSN  ID 138 of oGRPS PICTURE "@!";
             valid cPERMASSN $ "YN' '" UPDATE

REDEFINE GET oOPERATOR  VAR xOPERATOR  ID 121 of oGRPS PICTURE "@!" UPDATE

REDEFINE GET oPRIMARY  VAR xPRIMARY  ID 122 of oGRPS PICTURE "@!" BITMAP "find" ;  // <-- disable here when not true
            when ( cPERMASSN = 'N' .and. xOPERATOR = "  " );
            Action( LightGreyGrad(), _Drvrget(  xPrimary, cMODE, oPrimary, oRsVEH, "VEHICLES", "PRIMARY", "BUTTON", oFontB ),;
                            GreenBlueGrad(),oContact:SetFocus(),oContact:oJump := oContact )
            oPrimary:lAdjustBtn := .t.

 

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

Try:

oPRIMARY:oBtn:bWhen = ...

or

oPRIMARY:oBtn:Disable() (or Enable()) from the WHEN clause

[Rick Lipkin]

Antonio

Here is my attempt to use your suggestion ..

Code: Select all  Expand view

Application
===========
   Path and name: C:\Fox\VehSql-MH\Veh32.Exe (32 bits)
   Size: 5,952,512 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150518)
   FiveWin  Version: FWHX 15.04
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 06/07/2016, 11:28:11
   Error description: Error BASE/1005  Class: 'NIL' has no property: BWHEN
   Args:
     [   1] = U  
     [   2] = B   {|| ... }

Stack Calls
===========
   Called from:  => _BWHEN( 0 )
   Called from: VEHVIEW.PRG => _VEHVIEW( 737 )
   Called from: VEHBROW.PRG => (b)_VBROW( 507 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 581 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 815 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1549 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1057 )
   Called from: MAIN.PRG => MAIN( 509 )
 

What I would like to do is use your codeblock and if bWhen is true .. enable otherwise disable at runtime.. Here is my code :

Code: Select all  Expand view

REDEFINE GET oPERMASSN  VAR cPERMASSN  ID 138 of oGRPS PICTURE "@!";
             valid cPERMASSN $ "YN' '" UPDATE

REDEFINE GET oOPERATOR  VAR xOPERATOR  ID 121 of oGRPS PICTURE "@!" BITMAP "find" ;
            when ( cPERMASSN = 'Y' .or. xOPERATOR <> "  " );
            Action( LightGreyGrad(), _Drvrget(  xOperator, cMODE, oOperator, oRsVEH, "VEHICLES", "OPERATOR", "BUTTON", oFontB ),;
                            GreenBlueGrad(),oContact:SetFocus(),oContact:oJump := oContact )
            oOperator:lAdjustBtn := .t.

            oOperator:oBtn:bWhen := {| | if( ( cPERMASSN = 'Y' .or. xOPERATOR <> "  " ), oOperator:oBtn:Enable(), oOperator:oBtn:Disable() ) }
 

Appreciate your help.

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

bWhen has to return a logical value:

oOperator:oBtn:bWhen := {| | if( ( cPERMASSN = 'Y' .or. xOPERATOR <> " " ), ( oOperator:oBtn:Enable(), .T. ), ( oOperator:oBtn:Disable(), .F. ) ) }

[Rick Lipkin]

Antonio

I inserted your code and am still getting a similar error :

Code: Select all  Expand view

Application
===========
   Path and name: C:\Fox\VehSql-MH\Veh32.Exe (32 bits)
   Size: 5,952,512 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150518)
   FiveWin  Version: FWHX 15.04
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 13 secs
   Error occurred at: 06/07/2016, 14:19:18
   Error description: Error BASE/1005  Class: 'NIL' has no property: BWHEN
   Args:
     [   1] = U  
     [   2] = B   {|| ... }

Stack Calls
===========
   Called from:  => _BWHEN( 0 )
   Called from: VEHVIEW.PRG => _VEHVIEW( 737 )
   Called from: VEHBROW.PRG => (b)_VBROW( 507 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 581 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 815 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1549 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3355 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1057 )
   Called from: MAIN.PRG => MAIN( 509 )
 

Code: Select all  Expand view

REDEFINE GET oPERMASSN  VAR cPERMASSN  ID 138 of oGRPS PICTURE "@!";
             valid cPERMASSN $ "YN' '" UPDATE

REDEFINE GET oOPERATOR  VAR xOPERATOR  ID 121 of oGRPS PICTURE "@!" BITMAP "find" ;
            when ( cPERMASSN = 'Y' .or. xOPERATOR <> "  " );
            Action( LightGreyGrad(), _Drvrget(  xOperator, cMODE, oOperator, oRsVEH, "VEHICLES", "OPERATOR", "BUTTON", oFontB ),;
                            GreenBlueGrad(),oContact:SetFocus(),oContact:oJump := oContact )
            oOperator:lAdjustBtn := .t.

            oOperator:oBtn:bWhen := {| | if( ( cPERMASSN = 'Y' .or. xOPERATOR <> " " ), ( oOperator:oBtn:Enable(), .T. ), ( oOperator:oBtn:Disable(), .F. ) ) }
         *   oOperator:oBtn:bWhen := {| | if( ( cPERMASSN = 'Y' .or. xOPERATOR <> "  " ), oOperator:oBtn:Enable(), oOperator:oBtn:Disable() ) }
 

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

The button may not be created yet.

Please call your code from the ON INIT clause of the dialog

[Rick Lipkin]

Antonio .. I have made the code suggestion to insert the code in ON INIT and I no longer get a run-time .. as before the Get is read only and you can not navigate into the field .. but the Bitmap graphic has not changed it's appearance ..

Code: Select all  Expand view

 ACTIVATE DIALOG oGRPS ;
   ON INIT ( oOperator:oBtn:bWhen := {| | if( ( cPERMASSN = 'Y' .or. xOPERATOR <> " " ), ;
           ( oOperator:oBtn:Enable(), .T. ), ( oOperator:oBtn:Disable(), .F. )) }) ;
   ON PAINT (PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ));
   VALID (!GETKEYSTATE( 27 ))  // do not allow esc key here
 

Thanks, Rick

[Antonio Linares]

Rick,

Try to repaint it:

( oOperator:oBtn:Disable(), oOperator:oBtn:Refresh(), .F. )

[Rick Lipkin]

Antonio

Instead of disable .. is there just a way to :Hide() .. I have inserted the Hide method in my code instead of Disable() and still 'no joy' .. If you can think of a way to :Hide() when .f. and Show() when .t. and do it without ON Init .. that would be wonderful.

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

You may use the oGet:bGotFocus to check the WHEN and Hide or not the oBtn accordingly