mothcalendar

[Francisco Sanchez]

puedo mandarle a la tcanvas un objeto monthcalendar y que lo muestre en un
preview o que lo imprima?, ummm voy a probarlo no tendria que haceros perder
el tiempo en esto. Voy a probar y luego paso por aqui y cuento mi
experiencia a alguien le puede ser de utilidad.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

[jfgimenez]

Paco,
> puedo mandarle a la tcanvas un objeto monthcalendar y que lo muestre en un
> preview o que lo imprima?, ummm voy a probarlo no tendria que haceros
> perder el tiempo en esto. Voy a probar y luego paso por aqui y cuento mi
> experiencia a alguien le puede ser de utilidad.
podrías usar WM_PRINTCLIENT, que es para eso:
::oMonthCalendar1:SendMsg( WM_PRINTCLIENT, hdc )
No lo he probado, pero debería funcionar.
--
Un saludo,
José F. Giménez

[Francisco Sanchez]

COMO FUNCIONE OS DEBO UNA BUENA CENA jejejeje.
voy a probar.
Atentamente : Francisco SAnchez GERENTE GRUPO ST - Software TOTAL -

[Francisco Sanchez]

mas despacio mas despacio, que yo ni me llamo bill gates ni jose Gimenez.
Vamos a ver lo copie tal cual y me dice que hdc ?????? al compilar, ahi que
tengo que hacer referencia al oCanvas correspondiente ? o puedo poner esa
llamada al sendmsg dentro de un textout? o como esta la cosa?
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

[jfgimenez]

Paco,
> mas despacio mas despacio, que yo ni me llamo bill gates ni jose Gimenez.
> Vamos a ver lo copie tal cual y me dice que hdc ?????? al compilar, ahi
> que tengo que hacer referencia al oCanvas correspondiente ? o puedo poner
> esa llamada al sendmsg dentro de un textout? o como esta la cosa?
puedes usar el hdc del canvas de la impresora:
::oMonthCalendar1:SendMsg( WM_PRINTCLIENT, Printer:oCanvas:hDC )
Eso sí, antes tienes que abrir la impresora y comenzar una página, sino no
existe el canvas.
--
Un saludo,
José F. Giménez

[Francisco Sanchez]

Printer:lPreview := lPreview
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:nBkColor := clLtGray
:FillRect( { 150, 150, 2100, 400 } )
:TextOut( 250, 250, FechaText( ::oMonthCalendar:dValue ) )
::oMonthCalendar:SendMsg( WM_PRINTCLIENT, Printer:oCanvas:hDc )
Esto me hace un recuadro sin borde, que no es lo que busco, ademas de que
despues no me muestra el monthcalendar, lo estoy haciendo mal evidentemente.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

[Francisco Sanchez]

sigue sin aparecerme en el preview el omonthcalendar, Esperare, pues estoy
segurisimo que andais mirando eso precisamente, no seria la primera vez que
al rato lo teneis solucionado o visto, jejejeje asi da gusto trabajar con
gente profesional
hago lo siguiente :
Printer:lPreview := lPreview
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:Rectangle( { 150, 150, 2000, 400 } )
::oMonthCalendar:SendMsg( WM_PRINTCLIENT, Printer:oCanvas:hDc )
END WITH
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -