[quote="ukoenig":1cy9da9e]Cristobal,
maybe adding as well a solution to get a button-focus-effect.
For the moment I added a little function to paint a border around the button
on focus and destroy the border on lost focus.
I had to find another solution because there is no action on
:bgotfocus and :bLostfocus.
That works fine and the user can select the border-color and pensize.
Also I asked for showing a button < disabled > if possible.
I still remember a question about < on button-move > saving the new button-positions
This option is disabled using my solution because of using < :bMMoved >
sample :
DEFINE METROBUTTON oSBtn[60] OF oMenu1 ;
COLOR aVal[73], aVal[72] ;
CAPTION "Rechnungen" ;
ALIGN "TOPLEFT" ;
GROUP 2 ;
BITMAP c_Pfad1 + "Save.bmp" ;
BMPALIGN "MIDDLECENTER" ;
SIZE 50, 50 ;
ACTION RECHNUNG("RECH0") ;
BODYTEXT "testen" ;
TEXTALIGN "BOTTOMCENTER"
oSBtn[60]:nClrCaption := aVal[74]
oSBtn[60]:oFont := oFontTiny
oSBtn[60]:oTextFont := oFontTiny
[color=#0000FF:1cy9da9e]oSBtn[60]:bMMoved = { | nRow, nCol, nFlags | SHOW_FRAME( oSBtn, 60, nOld ), nOld := 60 } [/color:1cy9da9e]
[img:1cy9da9e]http://www.pflegeplus.com/IMAGES/MButton1.jpg[/img:1cy9da9e]
[code=fw:1cy9da9e][/code:1cy9da9e]
best regards
Uwe [/quote:1cy9da9e]
Uwe, please excuse the delay in answering
I will look at its implementation
Thank you
↧