block some buttons

block some buttons

Postby Silvio.Falconi » Fri Jun 17, 2022 8:26 am

I have this dialog

Image


See the red Box

the problem is that the user can only enter the prices in a single column among those inserted in the red box. how do i block the entry.
i.e. if for example the user presses a button in the sixth column he cannot then press the prices in the seventh / eighth / ninth / tenth column


Code: Select all  Expand view  RUN
for k=1 to 11
        for j=1 to 13
           @ nrow,ncol BTNBMP oPrezziBtn[k,j] PROMPT transform(aImporti[j],"999.99") ;
                          SIZE nSizeW,nSizeH FLAT PIXEL OF oDlg NOROUND

               oPrezziBtn[k,j]:ocursor := oHand
             oPrezziBtn[k,j]:cargo   :={k,j, 1 }
             oPrezziBtn[k,j]:bAction := { | o |  SetStatusImporto( o,oSayTotal,aTotali,oSayImporto,oBtnConfirm) }
            oPrezziBtn[k,j]:SetColor( CLR_BLACK, CLR_WHITE )

       nrow+=nSizeH +2
    next

 


How I can make to Block a column ( from 6 to 10) if the user press a button on six/ten column?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm

Re: block some buttons

Postby Silvio.Falconi » Fri Jun 17, 2022 9:27 am

I resolved with ...
I insert a radio menu on first dialog

Image

where the user select wich must insert

then on dialog of prices enable/disable the columns

Image

I realize that it is bullshit but I have not found solutions

doing so maybe I'll be sure that the right columns go into the aTotals array
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7072
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 36 guests