TTagEver class for FWH

[José Luis Sánchez]

Hello,

I show you a new class for FWH named TTagEver. It mimics the document tagging system of Evernote. I wroto a post about it at my blog http://cincomundos.wordpress.com/2014/08/08/clase-ttagever-para-fivewinharbour/ where is algo a ling to the GitHub repository when you can download the class. The class has been developed by Paco garcía.

Here is the picture of this class working:



Regards,
José Luis

[Antonio Linares]

José Luis,

Muchas gracias!

[José Luis Sánchez]

La clase la hizo Paco García a petición mia. Es un tipo genial, hay que darle las gracias a él.

Saludos,

[Silvio.Falconi]

Josè,
How you save the tags inserted on your puchero's Dialog on a record of a archive ?

[Silvio.Falconi]

Any help thanks

[José Luis Sánchez]

Hello Silvio,
Sorry for the delay, I was on a trip with my family ando didn't see your first post.

I have character field in a dbf with 200 chars called ReDietas. I use the ; char to separete the tags. To load the tags in the array I do this:

Code: Select all  Expand view

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
 

Then I define the TTagEver control using aDietas:

Code: Select all  Expand view

aGet[34] := TTagEver():Redefine(146, oFld:aDialogs[1], oApp():oFont, aDietas )
 

and after the dialog closes I store the tags in the field again:

Code: Select all  Expand view

        cReDietas := ''
        if len(aDietas) > 0
            for i := 1 to len(aDietas)
                cReDietas := cReDietas + aDietas[i,1]+'; '
            next
        endif
        REPLACE Re->ReDietas    WITH cReDietas
 

Regards,
José Luis

[reinaldocrespo]

José Luis;

Thank you very much and thank you Paco.

I do have a question; I'm trying to place a TTagEver control from resources. The containing dialog has a gradient. I can't seem to be able to make the control to show transparent. Can someone help?

Code: Select all  Expand view

   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.

 

Reinaldo.

[Silvio.Falconi]

Dear friends ,
i made some features
I add ltransparent,lanimation and create 3 type tags forms

rectangule with shadow effect



roundrect ( of Paco)



New tagform effect



next days I 'll publish it on github

[cnavarro]

Dear friends ,
i made some features
I add ltransparent,lanimation and create 3 type tags forms
next days I 'll publish it on github

What is the address of GitHub that you have used?

[Silvio.Falconi]

My github is silviofalconi

[cnavarro]

Is not found

[Silvio.Falconi]

Search jose of alanit on github and then you found my account

https://github.com/silviofalconi/TTagEver

[cnavarro]

Ok, now is right, but this is yours?

[Silvio.Falconi]

No, José Luis Sánchez Navarro of Alanit did this class by modifying the Paco class called Tcloud, I modified the tagever class by inserting the three types of tags and other modifications.
I saw now Josè erased my contribution on github
I send you my modifications by mail