Diseños con preview en tiempo de ejecución

[Loren]

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.

[Antonio Linares]

Lorenzo,

Puedes revisar el código fuente de source\classes\rpreview.prg de FWH

[Loren]

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.

[Loren]

?

[Antonio Linares]

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