A Button-effect for BMP > oBmp:bLClicked ?

[ukoenig]

Hello,

For a new project, I'm looking for a Button-effect for the method:
< oBmp:bLClicked > to get a Button-look.
It means : a < pressed-effect > and changing the mouse-cursor inside the bitmap-earea.
Maybe to add something inside the BMP-class ?
Is there a sample for it ?

Code: Select all  Expand view


@ 4, 16 BITMAP oBmp FILENAME "..\bitmaps\Tutanka1.bmp" ADJUST SIZE 280, 200 OF oWnd
   
oBmp:bLClicked := {|| Msgalert( "Button" ) }



Regards
Uwe

[James Bott]

Uwe,

Code: Select all  Expand view

#include "fivewin.ch"

function main()
   local oWnd, oBmp

   define window oWnd title "Test Mouse Over"

   @ 4, 16 BITMAP oBmp FILENAME "Tutanka1.bmp" ADJUST SIZE 280, 200 OF oWnd

   oBmp:bLClicked := {|| Msgalert( "Button" ) }

   oBmp:bMMoved := { || cursorhand() }

   activate window oWnd

return nil

[ukoenig]

James,

thank you very much,
The line is added to the source-sample.

I had a look at

Code: Select all  Expand view


oBmp:lStretch := .f.
nZoom:=nZoom-(0.10)
oBmp:Zoom(nZoom)
oBmp:Refresh()
oBmp:ScrollAdjust()

and than :

oBmp:lStretch := .f.
nZoom:=nZoom+0.10
oBmp:Zoom(nZoom)
oBmp:Refresh()
oBmp:ScrollAdjust()

do get a visual click-effect

maybe it doesn't work with resources ?

A visual-effect you can get with :

oBmp4:bLClicked := {|| ( oBmp4:Hide(), oBmp4:Show(), ;
MsgAlert( "Your Function 1" ) ) }



Regards
Uwe

[ukoenig]

Hello James,

I found a way, to solve the problem

Code: Select all  Expand view


// blClicked changes the Color
// the user can see, if a button is activated.
// after closing the dialog or message, the old color is restored to the button.
// but maybe you have still another idea ?

REDEFINE BITMAP oBmp4  ID 210 ADJUST RESOURCE "Blanc"  OF oDlg
oBmp4:bLClicked := {|| ( oBMP4:bPainted := ;
{ |hDC|OnPaintV( hDC,oBMP4, 128,15779475,0, ;
"Vertical  Button", oBfont1, 0 ,"TEST.BMP" ,4 ) }, oBmp4:Refresh(), ;
MsgAlert( "Your Function 1" ), ;
oBMP4:bPainted := { |hDC|OnPaintV( hDC,oBMP4, 13003573,15779475,0, ;
"Vertical  Button",  oBfont1, 0 ,"TEST.BMP" ,4 ) }, oBmp4:Refresh() ) }
oBmp4:bMMoved := { || cursorhand() }

// The init Color
// ---------------
oBMP4:bPainted := { |hDC|OnPaintV( hDC,oBMP4, 13003573,15779475,0, ;
"Vertical  Button", oBfont1, 0 ,"TEST.BMP" ,4 ) }



Regards
Uwe