FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Tcalex problems
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Tcalex problems
Posted: Mon Oct 16, 2017 05:26 PM
Look the picture please



If click on Day name then give me 24 september ... why ?
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: Tcalex problems
Posted: Mon Oct 16, 2017 05:49 PM
This method

Code (fw): Select all Collapse
GetDateFromPos( nAtRow, nAtCol ) INLINE ::dStart + ( ( nAtRow - 1 ) * 7 ) + nAtCol - 1


Select previous week

Change as

Code (fw): Select all Collapse
GetDateFromPos( nAtRow, nAtCol ) INLINE ::dStart + ( Max( nAtRow - 1, 0 ) * 7 ) + nAtCol - 1


and try
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: Tcalex problems
Posted: Mon Oct 16, 2017 06:17 PM

found it
run ok but not refresh and on first october I now see any appointment

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: Tcalex problems
Posted: Mon Oct 16, 2017 06:21 PM

Use Fivedit and use "search in files" :D :D :D

File TMonthV.prg

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: Tcalex problems
Posted: Mon Oct 16, 2017 06:30 PM
yes another error


Look the image



Tcalex put the wrong days ?

today is 16 october and I am sure is monday
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: Tcalex problems
Posted: Mon Oct 16, 2017 06:48 PM
Please look TCalex.ch

Code (fw): Select all Collapse
#xcommand DEFINE CALEX <oCalex>;
          [ <of: OF, WINDOW, DIALOG, PANEL> <oWnd> ];
          [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ];
          [ FIRST_DATE <nFirst> ];
          [ COLOR <nClrText> ];
          [ <cAdjust: ALL,TOP,LEFT,BOTTOM,RIGHT> ] ;



#xcommand DEFINE CALEX <oCalex>;
[ <of: OF, WINDOW, DIALOG, PANEL> <oWnd> ];
[ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ];
[ FIRST_DATE <nFirst> ]; // 7 for Sunday
[ COLOR <nClrText> ];
[ <cAdjust: ALL,TOP,LEFT,BOTTOM,RIGHT> ] ;

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: Tcalex problems
Posted: Mon Oct 16, 2017 06:57 PM

yes of course I set 7 but I sawthe sample01.prg ( it is wrong)

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: Tcalex problems
Posted: Mon Oct 16, 2017 07:00 PM
Silvio.Falconi wrote:yes of course I set 7 but I sawthe sample01.prg ( it is wrong)


Not, it is right
I've put it so they learn the use of the commands
There are other threads in the forum that talk about this topic
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: Tcalex problems
Posted: Mon Oct 16, 2017 07:01 PM

Cristobal,
can I change the Hours of afternoon ?
from 13.00 to 24,00 ?

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: Tcalex problems
Posted: Mon Oct 16, 2017 07:01 PM

Please change the title of the post with: "Doubts of TCalex" :D :D :D

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: Tcalex problems
Posted: Tue Oct 17, 2017 07:44 AM
Cristobal,
No I'm sorry there are other many problems

One most

When You create an appointment then you cannot see it on Month or Week
Only if you close the application and recall the exe you can see it
this is not a doubt but it is a certainty

then you sad me to change this
GetDateFromPos( nAtRow, nAtCol ) INLINE ::dStart + ( Max( nAtRow - 1, 0 ) * 7 ) + nAtCol - 1
Not run here it not refresh then I cannot see any appointment

Where is the syncro with Google Calendar ? ...you promised me at fwh 17.07 package ?
I' waiting this ... syncro with google calendar function with FWH. How long be finish?

there are colors but I cannot change the color appoinment at sampleo1 there is funcrion color... it passed also a date but then not use it

I saw the version of fjhg, tcalex changed by fjhg, not tcalex changed by Daniel or Cristobal

then Iasked to print the week (graphic) I tried to make something and send tyo daniel I hoped he make it ...
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: Tcalex problems
Posted: Tue Oct 17, 2017 09:27 AM
Silvio.Falconi wrote:Cristobal,

I saw the version of fjhg, tcalex changed by fjhg, not tcalex changed by Daniel or Cristobal



My minor changes and fix:

viewtopic.php?f=6&t=33740&start=0&hilit=tcalex
viewtopic.php?f=6&t=33947&p=200877&hilit=tcalex#p200828
viewtopic.php?f=6&t=33878&start=0&hilit=tcalex
and more: look forum

And, now TCalex is a control. You can place the control in the position you want. See the new clauses in the TCALEX command
I will not justify my work. Does that mean it's not true?


When You create an appointment then you cannot see it on Month or Week
Only if you close the application and recall the exe you can see it
this is not a doubt but it is a certainty


Sample run OK.
Delete and create your databases and index
No other users have reported any problems with this theme


GetDateFromPos( nAtRow, nAtCol ) INLINE ::dStart + ( Max( nAtRow - 1, 0 ) * 7 ) + nAtCol - 1


This is for double click over name day: 驴 what has to do with the issue of being able to see the appointments?
Solution: Do not change it and double click say day of week previous


there are colors but I cannot change the color appoinment at sampleo1 there is funcrion color... it passed also a date but then not use it


See Method ColorStatus (nType, dDate) CLASS SampleCalex
I recommend that you study the class as we have done the others


Where is the syncro with Google Calendar ? ...you promised me at fwh 17.07 package ?


I repeat my words from Austria:
The question was: can I synchronize TGoogle's calendar with TCalex?
My answer
"TCalendar returns an array with appointments from the google calendar. You can easily adapt this array to save it to the TCalex DBF"
And the ability to develop for any of those present in the conversation that function in the future was raised


I' waiting this ... syncro with google calendar function with FWH. How long be finish?


This class is finished. Users who have been interested in these classes, have contacted me and have had the opportunity to try them out.
One sample:
viewtopic.php?f=3&t=34326#p206141

TCalex, run OK for me
Topic closed for me
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: Tcalex problems
Posted: Tue Oct 17, 2017 09:38 AM
Topic closed for me ?????????????????????????????????????????????????????????


ColorStatus (nType, dDate)

Code (fw): Select all Collapse
Function ColorStatus( nType, dFecha )

聽 聽local aGrad
聽 聽local nClrT 聽 聽 := CLR_BLACK
聽 聽DEFAULT nType 聽 := 0

聽 聽DO CASE
聽 聽 聽 case nType = 1
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 2
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0x00,0x80,0xff) , RGB(0x00,0x80,0xff) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 3
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0xff,0xff,0x80), RGB(0xff,0xff,0x80) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 4
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0xff,0x00,0x00), RGB(0xff,0x00,0x00) } }
聽 聽 聽 聽 聽nClrT := CLR_WHITE
聽 聽 聽 case nType = 5
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0xc0,0xc0,0xc0), RGB(0xc0,0xc0,0xc0) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 6
聽 聽 聽 聽 聽aGrad := { { 1, METRO_ORANGE, METRO_ORANGE } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 7
聽 聽 聽 聽 聽aGrad := { { 1, METRO_LIME, METRO_LIME } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 8
聽 聽 聽 聽 聽aGrad := { { 1, METRO_CRIMSON, METRO_CRIMSON } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 9
聽 聽 聽 聽 聽aGrad := { { 1, METRO_OLIVE, METRO_OLIVE } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 10
聽 聽 聽 聽 聽aGrad := { { 1, METRO_STEEL, METRO_STEEL } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLUE
聽 聽 聽 Otherwise
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
聽 ENDCASE

return { aGrad, nClrT }



or

METHOD ColorStatus( nType, dFecha ) CLASS SampleCalex


Code (fw): Select all Collapse
METHOD ColorStatus( nType, dFecha ) CLASS SampleCalex

聽 聽local aGrad
聽 聽local nClrT 聽 聽 := CLR_BLACK
聽 聽DEFAULT nType 聽 := 0

聽 聽DO CASE
聽 聽 聽 case nType = 1
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 2
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0x00,0x80,0xff) , RGB(0x00,0x80,0xff) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 3
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0xff,0xff,0x80), RGB(0xff,0xff,0x80) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 4
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0xff,0x00,0x00), RGB(0xff,0x00,0x00) } }
聽 聽 聽 聽 聽nClrT := CLR_WHITE
聽 聽 聽 case nType = 5
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0xc0,0xc0,0xc0), RGB(0xc0,0xc0,0xc0) } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 6
聽 聽 聽 聽 聽aGrad := { { 1, METRO_ORANGE, METRO_ORANGE } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 7
聽 聽 聽 聽 聽aGrad := { { 1, METRO_LIME, METRO_LIME } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 8
聽 聽 聽 聽 聽aGrad := { { 1, METRO_CRIMSON, METRO_CRIMSON } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 9
聽 聽 聽 聽 聽aGrad := { { 1, METRO_OLIVE, METRO_OLIVE } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLACK
聽 聽 聽 case nType = 10
聽 聽 聽 聽 聽aGrad := { { 1, METRO_STEEL, METRO_STEEL } }
聽 聽 聽 聽 聽nClrT 聽 聽 := CLR_BLUE
聽 聽 聽 Otherwise
聽 聽 聽 聽 聽aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
聽 ENDCASE

return { aGrad, nClrT }




both the function and the method use the variable dfecha but yeah in the script that variable is not used and compiling with harbor makes me error on compilation while in xharbour the compile goes ok
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: Tcalex problems
Posted: Tue Oct 17, 2017 09:52 AM

Use Method, not function
Function is used for other function added ( apopupbrowse ), it's a sample

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: Tcalex problems
Posted: Wed Oct 18, 2017 09:41 AM

it' is possible make a report for a only week (that activate) ?
as you can make at google calendar or another software ?

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
Static archive 路 New replies & topics via GitHub Discussions