topic-37197

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Problem to change bitmap
Posted: Mon May 20, 2019 05:31 PM

I wish chnge the bitmap on btnbmo when I click over but not run ok
change the caption but not the bitmap (png)

 @ 195,250 BTNBMP oBtnClose  PROMPT "&Chiudi" ;
           RESOURCE ".\bitmaps\DLG_NO_MIN.bmp "  FLAT;
            SIZE  50,50 PIXEL OF oFld:aDialogs[1] RIGHT;
            ACTION CHANGE(oBtnClose, @lgiorno)

Function CHANGE(oBtnClose,lgiorno)
   lgiorno:=!lGiorno
   If lGiorno
       oBtnClose:cBmpFile1:="time.png"
       oBtnClose:cCaption:="giornaliero"
    else
       oBtnClose:cBmpFile1:="prenota.png"
      oBtnClose:cCaption:="periodico"
   endif

    oBtnClose:refresh()
   return lgiorno

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problem to change bitmap
Posted: Mon May 20, 2019 06:03 PM

Maybe using, bChange()

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

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Problem to change bitmap
Posted: Mon May 20, 2019 06:21 PM

Silvio,
tested and works imagechange on mouseclick

Code (fw): Select all Collapse

FUNCTION CHANGE(oBtnClose,lgiorno)

lgiorno:=!lGiorno

If lGiorno
       // replaces the 1th bitmap
       oBtnClose:SetImages( c_path1 + "Checkon.bmp", nil, nil,nil )  
       oBtnClose:cCaption   := "Checkon"
ELSE
       oBtnClose:SetImages( c_path1 + "Checkoff.bmp", nil, nil,nil )
       oBtnClose:cCaption   := "Checkoff"
ENDIF

RETURN lgiorno

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem to change bitmap
Posted: Tue May 21, 2019 10:54 AM

I must use CLASS TButtonBmp
and setimages not good
oBtngiorn:LoadBitmap(".\bitmaps\prenota.png" )

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem to change bitmap
Posted: Wed May 22, 2019 12:27 AM

Code (fw): Select all Collapse

   @ 195,250 BTNBMP PROMPT { || If( lGiorno, "giornaliero", "periodico" ) } ;
      RESOURCE aImages[ 1 ] ;
      SIZE 100,100 PIXEL OF oDlg FLAT ;
      ACTION ( lGiorno := !lGiorno, ;
               ::SetImages( If( lGiorno, aImages[ 1 ], aImages[ 2 ] ) ) )

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem to change bitmap
Posted: Wed May 22, 2019 07:34 AM

Rao,
yes but my problem was the color of the btnbmp (over and not ) because I not Know How make the theme effect

I tried with

Code (fw): Select all Collapse

  @ 6,680 BTNBMP oBtnGiorn PROMPT { || If( lGiorno, "giornaliero", "periodico" ) } ;
      RESOURCE aImagesGiorno[ 1 ] ;
      SIZE 40,30 PIXEL OF oFld:aDialogs[1] FLAT ;
      ACTION ( lGiorno := !lGiorno, ;
               ::SetImages( If( lGiorno, aImagesGiorno[ 1 ], aImagesGiorno[ 2 ] ) ) ) ;
      COLOR CLR_RED,Rgb( 225,239,219) FONT oFontBold ;
        GRADIENT  { | lInvert | If( ! lInvert,;
                { { 1 ,RGB( 225, 225,225 ),   RGB( 229,241,251 ) } },;
                { { 1, RGB( 229,241,251 ),RGB( 225, 225, 225 ) } } ) }

I wish the border gray
the gray color when the btnbmp is not press
the blue color when the bbtnbmp is press or over and chenged the border

But I not have the theme effect

then I thinked to BUTTOMBMP but I have problem with cCaption not refresh

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Problem to change bitmap
Posted: Wed May 22, 2019 03:10 PM

Try this
( I think You mean the colour not border )

I wish the border gray
the gray color when the btnbmp is not press
the blue color when the bbtnbmp is press or over and chenged the border

Code (fw): Select all Collapse

oBtn:bClrGrad = { | lMouseOver | If( ! lMouseOver,; 
    { { 0.9, RGB( 225, 225,225 ), RGB( 225, 225,225 ) }, ;
      { 0.9, RGB( 225, 225,225 ), RGB( 225, 225,225 ) } }, ;
    { { 0.9, RGB( 229,241,251), RGB( 229,241,251 ) }, ;
       { 0.9, RGB( 229,241,251), RGB( 229,241,251 ) } } ) }

Your selected colours

regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem to change bitmap
Posted: Wed May 22, 2019 03:51 PM

I'm searching 2016 Office Like colors for windows 10pro

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion