FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TCALEX - Sr. Cristobal Navarro
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 04, 2017 01:33 AM
Sr. Cristobal,

El mayor calendario no está sincronizado con el más bajo, ver:

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 04, 2017 09:30 AM

No entiendo

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
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 04, 2017 10:52 AM

Sr. Cristóbal, la selección de un mes en el calendario (izquierda) se monta el gran calendario (derecha). El calendario (derecha) (domingo, lunes, martes, miércoles, jueves, viernes, sábado) en sus respectivas columnas no coincide con el calendario (izquierda).

Entiendo que los dos calendario debe tener el mismo formato de los días con respecto a sus columnas.

Lo siento, estoy usando el traductor de Google.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 04, 2017 11:18 AM
Yo he probado ahora mismo a mover el calendario de la izquierda ( pequeño ) y aparece correctamente en la derecha el calendario correspondiente
Tambien he probado a mover los meses en el calendario de la derecha ( grande ) y el pequeño se sincroniza correctamente

Comprueba tu configuracion de fechas, por si influye en algo

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
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 12:21 AM

Sr. Cristobal,

compilei o fontes sem nenhuma alteração e o problema continua. Será que é questão de REGIÃO?

Att.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 02:29 AM
Sr. Cristobal,

consegui :-)





tcalex.prg:

//----------------------------------------------------------------------------//
FUNCTION Calex_SetFirstDate( nFirst )

// local nOldValue
//
// static nFirstDate := 0
//
// nOldValue := nFirstDate
//
// if PCount() > 0
// nFirstDate := Min( Max( 1, nFirst ), 7 ) - 1
// endif

return -1 <---------------------------------- nOldValue para -1

tmonthv.prg:

METHOD SetDate( dDate ) CLASS TMonthView
...
::dEnd := ::dStart + 34
::nWks := 6 <------------------------------ De 5 para 6
...

METHOD PaintHeader( hDC ) CLASS TMonthView
//local dFirstDateWeek := ::GetFirstDateWeek( ::dDate ) //::dDate - DoW( ::dDate ) + 1
local dFirstDateWeek := ::dDate - DoW( ::dDate ) + 1 <-------------------------
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
aferra
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 04:55 PM

e onde pode baixar a versão mais nova da tcalex?

agradecido

MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 05:26 PM

aferra,

solicite o envio aqui:

viewtopic.php?f=6t=33740

&

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Mon Apr 10, 2017 12:36 AM

Sr. Cristobal,

estou tentando utilizar a WINDOW principal como MDICHILD mais não estou conseguindo, a window inicia mais o mouse não funciona. A window fica como se estivesse congelada.

METHOD New() CLASS SampleCalex

local oMenu
local oSelf := Self

MENU oMenu
ENDMENU

::dDateStart := Date()
::dDateEnd := Date()
::lOnPreNext := .F.
::nIDPonto := RetornaIDDoPonto()

DEFINE WINDOW ::oWndAC mdichild of M->oWnd TITLE "Agenda de Compromissos" MENU oMenu

::BuildPanels()
::BuildExplorer()
::BuildCalex()

::oWndAC:SetIcon( TIcon():New(,,'MGAICON'))
::oWndAC:bKeyDown := {|nKey| IIf( nKey == VK_ESCAPE,::oWndAC:End(),) }

ACTIVATE WINDOW ::oWndAC MAXIMIZED ;
ON RESIZE oSelf:SetSize( nSizeType, nWidth, nHeight )

RETURN Self

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Mon Apr 10, 2017 01:41 PM
Mira, te pongo los métodos que tienes que modificar
El problema es que en el caso de las MDICHILDs, no puedes hacer referencia ( OF ) a ::oWndClient en los controles, sino a la propia ventana ::oWnd

Code (fw): Select all Collapse
function Main()

   local oBrush
   local oMenu
   local oWnd

   HB_CDPSELECT("ESWIN")
   HB_LangSelect( "ES" )

   SET DATE FORMAT "MM/DD/YYYY"
   SET DELETE ON
   
   DEFINE BRUSH oBrush COLOR CLR_GRAY
   DEFINE WINDOW oWnd MDI BRUSH oBrush
   
   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON INIT SampleCalex():New( oWnd )
 
   oBrush:End()   
   
   //SampleCalex():New()

return nil

//----------------------------------------------------------------------------//

METHOD New( oWnd ) CLASS SampleCalex
   
   local oMenu
   local oSelf  := Self
   local oBrush
   
   MENU oMenu
   ENDMENU
   
   ::dDateStart := Date()
   ::dDateEnd   := Date()
   
   ::lOnPreNext := .F.
   
   ::cAlias     := "citas"
   
   ::BuildDbf()

   DEFINE BRUSH oBrush COLOR CLR_HGRAY

   if Empty( oWnd )
      DEFINE WINDOW ::oWnd MDI MENU oMenu BRUSH oBrush
   else
      DEFINE WINDOW ::oWnd MDICHILD MENU oMenu BRUSH oBrush OF oWnd
   endif
   
   ::BuildPanels()
   ::BuildSplitterV()
   ::BuildExplorer()
   ::BuildCalex()
//   ::AddDates()

   ACTIVATE WINDOW oSelf:oWnd MAXIMIZED ;
      ON RESIZE oSelf:SetSize( nSizeType, nWidth, nHeight )
 
   oBrush:End()

RETURN Self

//----------------------------------------------------------------------------//

METHOD BuildPanels() CLASS SampleCalex

   local oBrush
   local oParent

   if ::oWnd:ClassName() == "TMDICHILD"
      oParent := ::oWnd
   else
      oParent  := ::oWnd:oWndClient
   endif
   ::oPanelExplorer := TPanel():New( 1, 0, ::oWnd:nHeight, 280, oParent )
   ::oPanelCalex    := TPanel():New( 1, ::oPanelExplorer:nWidth + 6, ::oWnd:nHeight, ::oWnd:nWidth - ::oPanelExplorer:nWidth + 6, oParent )
   DEFINE BRUSH oBrush COLOR CLR_WHITE
   ::oPanelExplorer:SetBrush( oBrush )
   ::oPanelCalex:SetBrush( oBrush )
   oBrush:End()

Return nil

//---------------------------------------------------//


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
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Mon Apr 10, 2017 05:45 PM

Muito obrigado Sr. Cristobal,

vou testar! :D

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 11, 2017 01:55 AM

Perfeito Maestro! :D

Muito obrigado!

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Oct 24, 2017 07:48 AM
Hola amigos, tengo el mismo problema con el correcto pintado del calex en algunos meses. La solución que aquí se aporta soluciona el problema pero siempre muestra como Domingo el primer día de la semana independientemente del SetFirstDate ... ¿cómo sería para poner el lunes?

Me refiero a este código :

Code (fw): Select all Collapse
tcalex.prg:

//----------------------------------------------------------------------------//
FUNCTION Calex_SetFirstDate( nFirst )

// local nOldValue
//
// static nFirstDate := 0
//
// nOldValue := nFirstDate
//
// if PCount() > 0
// nFirstDate := Min( Max( 1, nFirst ), 7 ) - 1
// endif

return -1 <---------------------------------- nOldValue para -1

tmonthv.prg:

METHOD SetDate( dDate ) CLASS TMonthView
...
::dEnd := ::dStart + 34
::nWks := 6 <------------------------------ De 5 para 6
...

METHOD PaintHeader( hDC ) CLASS TMonthView
//local dFirstDateWeek := ::GetFirstDateWeek( ::dDate ) //::dDate - DoW( ::dDate ) + 1
local dFirstDateWeek := ::dDate - DoW( ::dDate ) + 1 <-------------------------


Gracias
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Oct 24, 2017 08:38 AM
Esa es la clausula que has de utilizar


DEFINE CALEX ::oCalex OF ::oPanelCalex ;
FROM 1, 10 TO 600, 600 ;
FIRST_DATE 1 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
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Oct 24, 2017 08:49 AM
Cristóbal, gracias. Así lo hago, pero todos los meses en los que el día 1 es domingo (En 2017, Enero y Octubre), la información no se muestra correctamente.
Adjunto capturas.

Enero


Octubre
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Static archive · New replies & topics via GitHub Discussions