FiveTech Software tech support forums

Posted: **Tue Jan 31, 2023 1:28 am**

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

Posted: **Tue Jan 31, 2023 4:09 am**

Not method implemented
Try with

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

Posted: **Tue Jan 31, 2023 4:13 am**

If you want to change all the prompts, try

Code: Select all | Expand

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

If you just want to change a specific prompt, try

Code: Select all | Expand

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

Based on Cristobal's answer from
https://forums.fivetechsupport.com/view ... cd#p255209

Posted: **Tue Jan 31, 2023 6:11 am**

hi,

hua wrote:If you want to change all the prompts, try
Code: Select all | Expand
  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

      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

   DATA aSizes

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

---

METHOD PaintLR() have

Code: Select all | Expand

   nTextW = GetTextWidth()

but PaintTB() not ...

---
does METHOD DelItem(nPos) work correct

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

Posted: **Tue Jan 31, 2023 1:42 pm**

Jimmy wrote: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

   oFld:Default()

and try

Posted: **Wed Feb 01, 2023 10:29 pm**

hi

cnavarro wrote: Call of Method
Code: Select all | Expand
   oFld:Default()
 

Yes, that work

thx

FiveTech Software tech support forums

TFolder -> TFolderEx Difference

TFolder -> TFolderEx Difference

Re: TFolder -> TFolderEx Difference

Re: TFolder -> TFolderEx Difference

Re: TFolder -> TFolderEx Difference

Re: TFolder -> TFolderEx Difference

Re: TFolder -> TFolderEx Difference