FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Dise帽os con preview en tiempo de ejecuci贸n
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Dise帽os con preview en tiempo de ejecuci贸n
Posted: Thu Mar 10, 2016 09:03 AM
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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Dise帽os con preview en tiempo de ejecuci贸n
Posted: Thu Mar 10, 2016 06:49 PM

Lorenzo,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Re: Dise帽os con preview en tiempo de ejecuci贸n
Posted: Thu Mar 10, 2016 07:28 PM

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
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Re: Dise帽os con preview en tiempo de ejecuci贸n
Posted: Fri Mar 11, 2016 07:03 AM

?

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Dise帽os con preview en tiempo de ejecuci贸n
Posted: Fri Mar 11, 2016 07:25 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions