TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 04, 2017 1:33 am
Sr. Cristobal,
El mayor calendario no está sincronizado con el más bajo, ver:
El mayor calendario no está sincronizado con el más bajo, ver:
FiveTech Software tech support forums
www.FiveTechSoft.com
http://forums.fivetechsoft.com/
TCALEX - Sr. Cristobal Navarro
Page 1 of 2
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 04, 2017 9:30 am
No entiendo
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 _ debe tener el mismo formato de los días con respecto a sus columnas.
Lo siento, estoy usando el traductor de Google.
Entiendo que los _ debe tener el mismo formato de los días con respecto a sus columnas.
Lo siento, estoy usando el traductor de Google.
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
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
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.
compilei o fontes sem nenhuma alteração e o problema continua. Será que é questão de REGIÃO?
Att.
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 2: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 <-------------------------
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 <-------------------------
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 4:55 pm
e onde pode baixar a versão mais nova da tcalex?
agradecido
agradecido
Re: TCALEX - Sr. Cristobal Navarro
Posted: Wed Apr 05, 2017 5:26 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
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
Re: TCALEX - Sr. Cristobal Navarro
Posted: Mon Apr 10, 2017 1: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 ::oWnd:oWndClient en los controles, sino a la propia ventana ::oWnd
El problema es que en el caso de las MDICHILDs, no puedes hacer referencia ( OF ) a ::oWnd:oWndClient en los controles, sino a la propia ventana ::oWnd
Code: Select all
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
//---------------------------------------------------//
Re: TCALEX - Sr. Cristobal Navarro
Posted: Mon Apr 10, 2017 5:45 pm
Muito obrigado Sr. Cristobal,
vou testar!
vou testar!
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Apr 11, 2017 1:55 am
Perfeito Maestro!
Muito obrigado!
Muito obrigado!
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Oct 24, 2017 7: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 :
Gracias
Me refiero a este código :
Code: Select all
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 <-------------------------Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Oct 24, 2017 8: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
Re: TCALEX - Sr. Cristobal Navarro
Posted: Tue Oct 24, 2017 8: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
Adjunto capturas.
Enero
Octubre
