FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour TTagEver class for FWH
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
TTagEver class for FWH
Posted: Fri Aug 08, 2014 03: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:



Regards,
José Luis
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TTagEver class for FWH
Posted: Sat Aug 09, 2014 05:55 AM

José Luis,

Muchas gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Re: TTagEver class for FWH
Posted: Sat Aug 09, 2014 07: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,

Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: TTagEver class for FWH
Posted: Thu Aug 14, 2014 04: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 March-April 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
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: TTagEver class for FWH
Posted: 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 March-April 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
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Re: TTagEver class for FWH
Posted: Fri Aug 29, 2014 02: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 (fw): Select all Collapse
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 (fw): Select all Collapse
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 (fw): Select all Collapse
        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
Posts: 990
Joined: Thu Nov 17, 2005 05:49 PM
Re: TTagEver class for FWH
Posted: Sat Aug 30, 2014 07: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 (fw): Select all Collapse
   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
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: TTagEver class for FWH
Posted: Sat Jun 11, 2016 05:51 PM
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TTagEver class for FWH
Posted: 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
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: TTagEver class for FWH
Posted: 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 March-April 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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TTagEver class for FWH
Posted: 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
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: TTagEver class for FWH
Posted: 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 March-April 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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TTagEver class for FWH
Posted: 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
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: TTagEver class for FWH
Posted: Sat Feb 17, 2018 07: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 March-April 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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions