FLAT BUTTON does NOT executes its action by Pressing Alt Key

[shri_fwh]

Dear All ,

I am using FLATBTN its working only with Mouse Click and Enter Key. But Normal button work also with Hot Key as we define "&" in the button Lable e.g. "&Delete" . When user press ALT+D its execute the code block but its NOT happening with FLATBTN. How we can achieve the same with FLATBTN as well ?



Thanks
Shridhar

[shri_fwh]

Dear All ,

Flat Button and Normal Button behavior is NOT same. Please check/test below the code
1) Flat Button executes the Code Block/Action only when user PRESS ENTER Key
2) Normal Button execute the Code Block/Action when user PRESS ENTER Key , SPACE BAR and Alt+Macro(&) Char e.g. Alt+B

Can FLATBTN work as same as BUTTON ( Normal ) ? Please guide on this.

Code: Select all  Expand view  RUN

PROCEDURE TestBtns
local aoBTN := Array(5)
local oDlg

   DEFINE DIALOG oDlg FROM 0 , 0 TO 500 ,1050 PIXEL TRUEPIXEL

  @ 100, 100 FLATBTN aoBTN[1] PROMPT "&F-Quit" SIZE 100, 40 PIXEL  OF oDlg ;
      ACTION oDlg:End()


  @ 200, 100 BUTTON aoBTN[2] PROMPT "&B-Quit" SIZE 100 , 40 PIXEL OF oDlg ;
      ACTION oDlg:End()

  ACTIVATE DIALOG oDlg CENTERED

return nil

 

Thanks
shridhar

[Otto]

Hello Shridhar,
switch to
BTNBMP PROMPT "test" SIZE 80, 32 PIXEL OF oDlg FLAT COLOR CLR_WHITE,METRO_CYAN;

FLATBTN is not well supported and you get the same look with BTNBMP FLAT.
Best regards
Otto

[shri_fwh]

Hi Otto ,

Thanks a lot ...! Its working as per expected.

Thanks
Shridhar