topic-42726

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

TFolder -> TFolderEx Difference
Posted: Tue Jan 31, 2023 01: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

greeting,

Jimmy

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: TFolder -> TFolderEx Difference
Posted: Tue Jan 31, 2023 04:09 AM

Not method implemented
Try with

Code (fw): Select all Collapse

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

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

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: TFolder -> TFolderEx Difference
Posted: Tue Jan 31, 2023 04:13 AM

If you want to change all the prompts, try

Code (fw): Select all Collapse

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

If you just want to change a specific prompt, try

Code (fw): Select all Collapse

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

Based on Cristobal's answer from
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42441&sid=855d3f4c4e5b62d461e2de57a5a07bcd#p255209

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: TFolder -> TFolderEx Difference
Posted: Tue Jan 31, 2023 06:11 AM

hi,

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

      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 (fw): Select all Collapse

   DATA aSizes

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

---

METHOD PaintLR() have

Code (fw): Select all Collapse

   nTextW = GetTextWidth()

but PaintTB() not ...

---
does METHOD DelItem(nPos) work correct :?:

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

greeting,

Jimmy

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: TFolder -> TFolderEx Difference
Posted: Tue Jan 31, 2023 01: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 (fw): Select all Collapse

   oFld:Default()

and try

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

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: TFolder -> TFolderEx Difference
Posted: Wed Feb 01, 2023 10:29 PM

hi

cnavarro wrote: Call of Method
Code (fw): Select all Collapse
   oFld:Default()

Yes, that work :D
thx

greeting,

Jimmy

FiveTech Support Forums

Continue the discussion