cReDietas := Rtrim(RE->ReDietas)
aDietas := iif(AT(';',cReDietas)!=0, HB_ATokens( cReDietas, ";"), {})
if Len(aDietas) > 1
aSize( aDietas, len(aDietas)-1)
for i:=1 to len(aDietas)
aDietas[i] := alltrim(aDietas[i])
next
aDietas := ASort(aDietas)
endif
aGet[34] := TTagEver():Redefine(146, oFld:aDialogs[1], oApp():oFont, aDietas )
cReDietas := ''
if len(aDietas) > 0
for i := 1 to len(aDietas)
cReDietas := cReDietas + aDietas[i,1]+'; '
next
endif
REPLACE Re->ReDietas WITH cReDietas
DEFINE dialog oDlg Name "clm_tabs" ;
OF ::oOwner TRANSPARENT COLOR CLR_BLUE, RGB( 240, 240, 240 ) ;
GRADIENT { { 1, nRGB( 217, 227, 234 ), nRGB( 237, 242, 248 ) } } ;
oTags := TTagEver():Redefine( 100, oDlg, oTagFont, ::aTags )
oTags:lTransparent := .T.
Silvio.Falconi wrote:Dear friends ,
i made some features
I add ltransparent,lanimation and create 3 type tags forms
next days I 'll publish it on github
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 49 guests