TFolder -> TFolderEx Difference

[Jimmy]

hi,

to "set" new TAB Header i use SetPrompts() from CLASS TFolder()
but what to use with CLASS TFolderEx()

p.s. CLASS TFolderEx() is not document in Help File

[cnavarro]

Not method implemented
Try with

Code: Select all  Expand view  RUN

   oFld:aPrompts := aMyPrompts
//   oFld:Default()       // If is neccesary
 

[hua]

If you want to change all the prompts, try

Code: Select all  Expand view  RUN

  aPrompts := {"TAB1", "TAB2"}
  oFolder:aPrompts := aclone(aPrompts)
  oFolder:refresh()
 

If you just want to change a specific prompt, try

Code: Select all  Expand view  RUN

  oFolder:aPrompts[oFolder:nOption] := "MyPrompt"
  oFolder:refresh()
 

Based on Cristobal's answer from
viewtopic.php?f=3&t=42441&sid=855d3f4c4e5b62d461e2de57a5a07bcd#p255209

[Jimmy]

hi,

If you want to change all the prompts, try

Code: Select all  Expand view  RUN

  aPrompts := {"TAB1", "TAB2"}
  oFolder:aPrompts := aclone(aPrompts)
  oFolder:refresh()
 

thx for Answer

when assign a new Text into TAB it does not "fit" when Text is much longer than before

Code: Select all  Expand view  RUN

     aToken := AtInside( ´\´, cPath )
      aPrompts := ACLONE( oTab:aPrompts )
      aPrompts[ nDim ] := UPPER( aToken[ LEN( aToken ) - 1 ] )
#ifdef Use_TFolder
      oTab:SetPrompts( aPrompts )
#else
      oTab:aPrompts := ACLONE( aPrompts )
      oTab:Refresh()
#endif
 

i can use ::lStretch but that is "too much" ... just want that hole Text "fit"
p.s. "where" is the CODE for it

---

CLASS TFolderEx() have

Code: Select all  Expand view  RUN

   DATA aSizes

but i can not "see" Value assign to aSizes :=

---

METHOD PaintLR() have

Code: Select all  Expand view  RUN

  nTextW = GetTextWidth()

but PaintTB() not ...

---
does METHOD DelItem(nPos) work correct

CLASS TFolder() have DelItem() and DelItemPos(nPos) ...

[cnavarro]

hi,

when assign a new Text into TAB it does not "fit" when Text is much longer than before

i can use ::lStretch but that is "too much" ... just want that hole Text "fit"

Call of Method

Code: Select all  Expand view  RUN

   oFld:Default()
 

and try

[Jimmy]

hi

Call of Method

Code: Select all  Expand view  RUN

   oFld:Default()
 

Yes, that work
thx