right mouseclick

[plantenkennis]

Hello Manuel,

Thank you very much for the new libs

The popup menu does exactly what I wants.
Also the WindowVisibleHeigth function is very good. Now the outline of all controls are perfect on all screens.

I also checked the Enable() and DisAble() for BtnBmp. When I use it in the same function as where the button is defined it works well. However if I want to disable a BtnBmp from another function I get an error. How can I enable and disable a button from another function?

Code: Select all  Expand view

@ nScreenHeight-60, nRowPaint BTNBMP oBtnAll OF oWndMain FILENAME cResFilesPad+'FilterLinks.png' ;
    ACTION (nBrowseOrder := 2, RK_SetBrowseArray(2)) SIZE 35, 35 STYLE 4 TOOLTIP 'Toon alle planten'
    oBtnAll:Disable()  && this works fine
 

Code: Select all  Expand view

FUNCTION RK_SetBrowseArray()

oBtnAll:Enable()      &&here I get an error? I have defined oBtbAll as PUBLIC in Main function
 

[plantenkennis]

Hello Manuel,

Sorry, already found the solution:

Code: Select all  Expand view

@ nScreenHeight-60, nRowPaint BTNBMP oBtnSelectie OF oWndMain FILENAME cResFilesPad+'FilterRechts.png' ;
    ACTION (nBrowseOrder := 4, RK_SetBrowseArray(2)) SIZE 35, 35 STYLE 4 TOOLTIP 'Toon laatste selectie nogmaals'
    oBtnSelectie:bAction := {|| oBtnAll:Enable(), oBtnSelectie:Disable(), nBrowseOrder := 4, RK_SetBrowseArray(2)}
    nRowPaint := nRowPaint + nShift
@ nScreenHeight-60, nRowPaint BTNBMP oBtnAll OF oWndMain FILENAME cResFilesPad+'FilterLinks.png' ;
    ACTION (nBrowseOrder := 2, RK_SetBrowseArray(2)) SIZE 35, 35 STYLE 4 TOOLTIP 'Toon alle planten'
    oBtnAll:bAction := {|| oBtnAll:Disable(), oBtnSelectie:Enable(), nBrowseOrder := 2, RK_SetBrowseArray(2)}   &&this way I can enable and diable the buttons
    nRowPaint := nRowPaint + nShift + 10
 

this works perfectly