How to make TFolderEx excel-like?

[hua]

I was tasked to do the following:

i. Allow user to change tab names on the go similar to excel sheet. Right click, key-in new tab name and see it immediately reflected

ii. Have something similar to excel new sheet icon where on clicking it, a new folder would be added

Any pointers? TIA

[Jimmy]

hi hua,

i. Allow user to change tab names on the go similar to excel sheet. Right click, key-in new tab name and see it immediately reflected

Code: Select all  Expand view  RUN

METHOD RButtonDown( nRow, nCol, nFlags ) CLASS TFolderEx
...
      if ::bRClicked != nil
         Eval( ::bRClicked, nRow, nCol, nFlags, Self )

so what is your Problem

[hua]

Getting the new name is the easy part. But what method to call to change the Tab's name?

[cnavarro]

Try with

Code: Select all  Expand view  RUN

   // n := oFld:nOption
   oFld:aPrompts[ n ] := "New Name"
   //oFld:Default()
   oFld:Refresh()
 

[Jimmy]

hi,

i have this to change "Name of TAB"

Code: Select all  Expand view  RUN

  aPrompts := ACLONE( oTab:aPrompts )
   aPrompts[ nDim ] := aToken[ LEN( aToken ) - 1 ]  // Name of Folder
   oTab:SetPrompts( aPrompts )

[hua]

Thanks Cristobal, it works.
However is it possible to adjust the tab width automatically to accommodate long name?
Thank you

Try with

Code: Select all  Expand view  RUN

   // n := oFld:nOption
   oFld:aPrompts[ n ] := "New Name"
   //oFld:Default()
   oFld:Refresh()
 

[hua]

Thank Jimmy.
:setPrompts() is only available if using TFolder class. I am using TFolderEx

i have this to change "Name of TAB"

Code: Select all  Expand view  RUN

  aPrompts := ACLONE( oTab:aPrompts )
   aPrompts[ nDim ] := aToken[ LEN( aToken ) - 1 ]  // Name of Folder
   oTab:SetPrompts( aPrompts )

[Antonio Linares]

Dear Hua,

Please check DATA aSizes

[hua]

Thanks for the tip Antonio.

How to be able to right-click on a TTitle and change the text Antonio? Would it be possible?

[Antonio Linares]

Try this:

oTitle:aText[ 3 ] = "new text"
oTitle:Refresh()

[cnavarro]

Thanks Cristobal, it works.
However is it possible to adjust the tab width automatically to accommodate long name?
Thank you

Try with

Code: Select all  Expand view  RUN

   // n := oFld:nOption
   oFld:aPrompts[ n ] := "New Name"
   //oFld:Default()
   oFld:Refresh()
 

Please, for this, call method oFld:Default(), and try

[hua]

Thanks Cristobal. I'll give it a try.

Thanks Cristobal, it works.
However is it possible to adjust the tab width automatically to accommodate long name?
Thank you

Try with

Code: Select all  Expand view  RUN

   // n := oFld:nOption
   oFld:aPrompts[ n ] := "New Name"
   //oFld:Default()
   oFld:Refresh()
 

Please, for this, call method oFld:Default(), and try

[hua]

Thanks Antonio. This works!
Anything similar for images created using TITLEIMG?

Try this:

oTitle:aText[ 3 ] = "new text"
oTitle:Refresh()

[Antonio Linares]

Dear Hua,

Do you mean to replace the image ?

[hua]

Yes. To allow user to choose other image to replace the current one being displayed.
Thanks.

Do you mean to replace the image ?