assign an action to normal folder class

assign an action to normal folder class

Postby Silvio.Falconi » Fri Jan 07, 2022 7:57 am

I have seen that the Folderex class has a baction method so it seems easy to assign an action when the user selects a specified tab.

Code: Select all  Expand view  RUN
@0,0 FOLDEREX oFolder PROMPTS aFolder
...

 oFolder:bAction := { || IF(oFolder:nOption=3 .or. oFolder:nOption=6 ,;
                         (oDlg:nHeight:=400,oDlg:Move( aPt[ 1 ] , aPt[ 2 ] )),;
                         (oDlg:nHeight:=680,oDlg:Move( aPt[ 1 ] , aPt[ 2 ] )) ) }
 



Is it possible to do the same thing with the normal Foder ( nofolderex) ?
I saw that the SetOption () method exists, but then I can't get it to work when the user presses a specified folder Tab
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: 7066
Joined: Thu Oct 18, 2012 7:17 pm

Re: assign an action to normal folder class

Postby James Bott » Wed Jan 12, 2022 4:51 pm

Silvio,

Why not just used folders?

See fldxbrw.prg in the \samples folder for an example.

You can open all the databases at the start of the program, then you just click on the folder you want.

James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Re: assign an action to normal folder class

Postby Silvio.Falconi » Wed Jan 12, 2022 6:05 pm

because I must make a dialog of configuration without databases and I need to have a normal folder because I not wish use folderex class
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: 7066
Joined: Thu Oct 18, 2012 7:17 pm

Re: assign an action to normal folder class

Postby cnavarro » Thu Jan 13, 2022 12:48 pm

Try with bChange DATA ( parameters: nOption, nOldOption )
Code: Select all  Expand view  RUN

   oFld:bChange := { | nOpt, nOldOpt | ..... }
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin for Harbour/xHarbour

Who is online

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