Changing BtnBmp Icon on demand

[Rick Lipkin]

To All

I have a BtnBmp that uses icons from resources ( enabled and disabled ) and I would like to be able to change the Enabled Bitmap that shows on the button based on a programmatical logical value which needs to be changed and re-evaluated on the value of the variable.

In clearer terms .. I need to change the Bitmap at runtime based on the value of a logical variable.

Any Ideas ??

Thanks
Rick Lipkin

[Enrico Maria Giordano]

Rick,

To All

I have a BtnBmp that uses icons from resources ( enabled and disabled ) and I would like to be able to change the Enabled Bitmap that shows on the button based on a programmatical logical value which needs to be changed and re-evaluated on the value of the variable.

In clearer terms .. I need to change the Bitmap at runtime based on the value of a logical variable.

Any Ideas ??

Thanks
Rick Lipkin

Did you try using WHEN clause?

EMG

[Rick Lipkin]

Enrico

Here is a typical BtnBmp button code with Icons from resource .. I want to be able to change the Enabled Icon at runtine .. "Ok" to maybe "Finished" ( resource icons ).

Where would I use the 'when' clause ?

Thanks
Rick Lipkin

Code: Select all  Expand view

REDEFINE BTNBMP oBtn1 ID 111 OF oDlg   ;
         RESOURCE "OK", "DOK", "DOK" ;
         PROMPT "  &Ok    " LEFT 2007;
         ACTION nil
 

[Enrico Maria Giordano]

Rick,

Enrico

Here is a typical BtnBmp button code with Icons from resource .. I want to be able to change the Enabled Icon at runtine .. "Ok" to maybe "Finished" ( resource icons ).

Where would I use the 'when' clause ?

Thanks
Rick Lipkin

Code: Select all  Expand view

REDEFINE BTNBMP oBtn1 ID 111 OF oDlg   ;
         RESOURCE "OK", "DOK", "DOK" ;
         PROMPT "  &Ok    " LEFT 2007;
         ACTION nil
 

Ok, so try using oBtn:SetFile() method.

EMG

[dutch]

Dear Rick,

I test with BmpFile and it works well. I'm not quite sure, is it what you want.

Code: Select all  Expand view

function Main()
#include 'Fivewin.ch'

   local oBru, oDlg, oBtn
   local lYes := .T.

   DEFINE BRUSH oBru FILENAME "../bitmaps/Backgrnd/beach.bmp"

   DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT

   @ 2, 2 SAY "Hello" OF oDlg
   oDlg:aControls[ 1 ]:lTransparent = .t.

   @ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
      SIZE 50, 30 OF oDlg NOBORDER ACTION ChangeBmp( oBtn, @lYes) // MsgInfo( "click" )
     
   oBtn:lTransparent = .T.  
     
   ACTIVATE DIALOG oDlg CENTERED

return nil

//----------------------------------------------------------------------------//


Function ChangeBmp( oBtn, lYes )
lYes := !lYes

if lYes
   oBtn:LoadBitmaps( ,, "../bitmaps/yes.bmp" )
else
   oBtn:LoadBitmaps( ,, "../bitmaps/no.bmp" )

end

   oBtn:Refresh()
return nil
 

[Rick Lipkin]

Dutch

Thank you ... I will test your suggestion when I get to work Monday!

Rick Lipkin

[FranciscoA]

Hi, Ricky, you can try this, also:

Code: Select all  Expand view

if cVar=="A"
   oBtn:LoadBitmaps("A")
elseif cVar =="B"
   oBtn:LoadBitmaps("B")
else
   oBtn:LoadBitmaps("X")
endif
oBtn:Refresh()
 

Regards.