TTagEver class for FWH

TTagEver class for FWH

Postby José Luis Sánchez » Fri Aug 08, 2014 3:58 pm

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:

Image

Regards,
José Luis
User avatar
José Luis Sánchez
 
Posts: 539
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Re: TTagEver class for FWH

Postby Antonio Linares » Sat Aug 09, 2014 5:55 am

José Luis,

Muchas gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: TTagEver class for FWH

Postby José Luis Sánchez » Sat Aug 09, 2014 7:18 am

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

Saludos,
User avatar
José Luis Sánchez
 
Posts: 539
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Re: TTagEver class for FWH

Postby Silvio.Falconi » Thu Aug 14, 2014 4:35 pm

Josè,
How you save the tags inserted on your puchero's Dialog on a record of a archive ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: TTagEver class for FWH

Postby Silvio.Falconi » Fri Aug 29, 2014 11:45 am

Any help thanks
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: TTagEver class for FWH

Postby José Luis Sánchez » Fri Aug 29, 2014 2:49 pm

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
User avatar
José Luis Sánchez
 
Posts: 539
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Re: TTagEver class for FWH

Postby reinaldocrespo » Sat Aug 30, 2014 7:40 pm

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.
User avatar
reinaldocrespo
 
Posts: 971
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Re: TTagEver class for FWH

Postby Silvio.Falconi » Sat Jun 11, 2016 5:51 pm

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

rectangule with shadow effect

Image

roundrect ( of Paco)

Image

New tagform effect

Image

next days I 'll publish it on github
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: TTagEver class for FWH

Postby cnavarro » Fri Feb 16, 2018 10:03 pm

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?
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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: TTagEver class for FWH

Postby Silvio.Falconi » Fri Feb 16, 2018 10:15 pm

My github is silviofalconi
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: TTagEver class for FWH

Postby cnavarro » Fri Feb 16, 2018 10:54 pm

Is not found
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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: TTagEver class for FWH

Postby Silvio.Falconi » Fri Feb 16, 2018 11:00 pm

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

https://github.com/silviofalconi/TTagEver
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: TTagEver class for FWH

Postby cnavarro » Sat Feb 17, 2018 12:10 am

Ok, now is right, but this is yours?
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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: TTagEver class for FWH

Postby Silvio.Falconi » Sat Feb 17, 2018 7:50 am

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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: byron.hopp and 9 guests