Buenos días:
Necesito insertar en un Dialog un cuadro con un "preview" para que el usuario vea por anticipado la salida del informe.
Algo así como esto:
¿Es muy complicado?
¿Algún ejemplo muy simple pero que me permita orientarme?
Mil gracias.
LORENZO.
Diseños con preview en tiempo de ejecución
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Diseños con preview en tiempo de ejecución
Lorenzo,
Puedes revisar el código fuente de source\classes\rpreview.prg de FWH
Puedes revisar el código fuente de source\classes\rpreview.prg de FWH
Re: Diseños con preview en tiempo de ejecución
Antonio,
Ya lo hice antes de escribir el post y me dió algunas pistas, pero rpreview trabaja con ventanas y no sé como cambiar el código fuente del preview para trabajar directamente desde un Dialogs "define dialog... " diseñado con "Pelles C"
Alguna pista?
Gracias por contestar, maestro.
Un saludo.
LORENZO.
Desde Cádiz.
Ya lo hice antes de escribir el post y me dió algunas pistas, pero rpreview trabaja con ventanas y no sé como cambiar el código fuente del preview para trabajar directamente desde un Dialogs "define dialog... " diseñado con "Pelles C"
Alguna pista?
Gracias por contestar, maestro.
Un saludo.
LORENZO.
Desde Cádiz.
Last edited by Loren on Fri Mar 11, 2016 7:05 am, edited 1 time in total.
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Diseños con preview en tiempo de ejecución
Tienes que crear un objeto metafile:
::oMeta1 := TMetaFile():New( 0, 0, 0, 0,;
::oDevice:aMeta[ 1 ],;
::oWnd,;
CLR_BLACK,;
CLR_WHITE,;
::oDevice:nHorzRes(),;
::oDevice:nVertRes() )
que es el que visualiza los metafiles en el preview
::oMeta1 := TMetaFile():New( 0, 0, 0, 0,;
::oDevice:aMeta[ 1 ],;
::oWnd,;
CLR_BLACK,;
CLR_WHITE,;
::oDevice:nHorzRes(),;
::oDevice:nVertRes() )
que es el que visualiza los metafiles en el preview