FiveTech Software tech support forums

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

José Luis,

Muchas gracias!

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

Saludos,

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

Any help thanks

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

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.

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

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

What is the address of GitHub that you have used?

My github is silviofalconi

Is not found

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

https://github.com/silviofalconi/TTagEver

Ok, now is right, but this is yours?

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