Tcalex problems

Tcalex problems

Postby Silvio.Falconi » Mon Oct 16, 2017 5:26 pm

Look the picture please

Image

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 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: Tcalex problems

Postby cnavarro » Mon Oct 16, 2017 5:49 pm

This method

Code: Select all  Expand view


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

 


Select previous week

Change as

Code: Select all  Expand view


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

Re: Tcalex problems

Postby Silvio.Falconi » Mon Oct 16, 2017 6:17 pm

found it
run ok but not refresh and on first october I now see any appointment
Last edited by Silvio.Falconi on Mon Oct 16, 2017 6:22 pm, edited 1 time in total.
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: Tcalex problems

Postby cnavarro » Mon Oct 16, 2017 6: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Tcalex problems

Postby Silvio.Falconi » Mon Oct 16, 2017 6:30 pm

yes another error


Look the image

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 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: Tcalex problems

Postby cnavarro » Mon Oct 16, 2017 6:48 pm

Please look TCalex.ch

Code: Select all  Expand view


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

Re: Tcalex problems

Postby Silvio.Falconi » Mon Oct 16, 2017 6: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 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: Tcalex problems

Postby cnavarro » Mon Oct 16, 2017 7: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Tcalex problems

Postby Silvio.Falconi » Mon Oct 16, 2017 7: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 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: Tcalex problems

Postby cnavarro » Mon Oct 16, 2017 7: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Tcalex problems

Postby Silvio.Falconi » Tue Oct 17, 2017 7: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 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: Tcalex problems

Postby cnavarro » Tue Oct 17, 2017 9: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Tcalex problems

Postby Silvio.Falconi » Tue Oct 17, 2017 9:38 am

Topic closed for me ?????????????????????????????????????????????????????????


ColorStatus (nType, dDate)

Code: Select all  Expand view
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: Select all  Expand view
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 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: Tcalex problems

Postby cnavarro » Tue Oct 17, 2017 9: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Tcalex problems

Postby Silvio.Falconi » Wed Oct 18, 2017 9: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 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

Next

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 12 guests