FiveTech Software tech support forums

... Function TabChk( nCol, oFld ) local n := 1, nPos := 0 while nPos < nCol .and. n <= Len( oFld:aPrompts ) nPos += GetTextWidth( 0, oFld:aPrompts[ n++ ], oFld:oFont:hFont ) + 5 end msginfo( "Drop to " + oFld:aPrompts[--n]) return n

... different results depending on the length of the folder caption. Regards, Otto while nCol > (nPos + (nTabSize := GetTextWidth( 0, Right(oFld:aPrompts[n],len(oFld:aPrompts[n])-1), oFld:oFont) + iif(n=1,5,5)) ) .and. n < Len(oFld:aPrompts) nPos += nTabSize n++ end *******************Test.prg ...

Antonio,
How Increase the space on each tabs to move each aprompts to right ?

oFld:aPrompts[ oFld:nOption ] := AllTrim( cTemp ),;
oFld:SetPrompts(oFld:aPrompts) )

If you change the sample genfold from:
oFld:aPrompts[ oFld:nOption ] := AllTrim( cTemp )
oFld:Refresh() )

to:
oFld:SetPrompts({ "TEST", "&Two", "T&hree" })

than the tab prompt changes.

Regards,
Otto

FWH samples genfold.prg

Edit aPrompts does not change the TAB only if you add a new TAB
the edited Tab is changed, too.
Regards,
Otto

How do you assingn?
I tried
oFld:aPrompts[ 1 ]:SetColor(Rgb(0,0,0),Rgb(168,207,110))
but get no exported method.

Regards,
Otto

Try assigning oFolder:aPrompts[ n ] and refresh the folder (not tested).

EMG

Dear Antonio,

I used to change aPrompts and Refresh Folder as following.

oFld:aPrompts[2] := 'Test'
oFld:Refresh()

It works fine with Clipper&FW16bits.
But xHB&FWH707 is not working.

Best regards,
Dutch

I fixed it with SetPrompts()

Silvio wrote:si funziona l'esempietto solo che io non so quanti indici ha un archivio

Non ha importanza quanti elementi abbia aIdx. Riempilo e poi assegnalo ad aPrompts come ti ho fatto vedere e vedrai che funziona.

EMG

... setoption use when I must show a tab Instead I ask another help ..... I must write the tab name "xxxxx","xxxxx", "xxxxx" they called ITEMS or aPrompts On the combobos I use ITEMS aaa where aaa is an array with 3 strings Now I want insert these strings into tab control as tab names I hope you ...

... HDC, LPRECT rct ); //----------------------------------------------------------------------------// CLIPPER FLDPAINT( PARAMS ) // ( hWnd, hDC, aPrompts, hFont1, hFont2, // nClrPane, nOption, aEnable, nSize, lWin95, // aBmps, nDir, nTabClr, nFocusClr, // nAlign, nOffset ) --> nil { HWND hWnd ...