Preview(cont)

[zeasoftware]

existe la posibilidad me informen como se hace el llamado de Preview en
tPrinter?,
para ver si existe la posibilidad que resuelva mi problema, ya que me es muy
necesario usarlo a como lo he expuesto.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/

[ignacio]

Ramón,
Printer:Preview( nShowmode, lModal, oParent )
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
> existe la posibilidad me informen como se hace el llamado de Preview en
> tPrinter?,
> para ver si existe la posibilidad que resuelva mi problema, ya que me es
> muy
> necesario usarlo a como lo he expuesto.
>
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
>

[zeasoftware]

gracias OZ, pero en realidad lo que me seria util, segun mis pobres
conocimientos, seria el methodo entero, vaya, esto:
Method Preview(:::) Class TPrinter
//el cuerpo del preview
//esto para ver donde podria acomodar mi objeto que requiero llegue a ser
visible
//en el TForm del preview
::::
TPreviewControl():New() ::::::::::
::::
return ( :::: )
no me imagino como seria el codigo del metodo en si.
Gracias de nuevo.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Printer:Preview( nShowmode, lModal, oParent )
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>> existe la posibilidad me informen como se hace el llamado de Preview en
>> tPrinter?,
>> para ver si existe la posibilidad que resuelva mi problema, ya que me es
>> muy
>> necesario usarlo a como lo he expuesto.
>>
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>>
>
>
>

[ignacio]

//---------------------------------------------------------- ----------------
METHOD Preview( nShowMode, lModal, oParent ) CLASS XPrinter
local oForm, oPreview
local lRet
If Empty( ::oPreviewDC ) .OR. Len( ::oPreviewDC:aEmf ) == 0
return .f.
Endif
if Valtype( lRet := ::OnPreview( nShowMode, lModal ) ) == "L" .and. !lRet
return .t.
endif
DEFAULT lModal TO ::lPreviewModal
DEFAULT nShowMode TO ::nPreviewShowMode
DEFAULT oParent TO Application:oMainForm
WITH OBJECT oForm := TForm():New( oParent )
:cText := ::cJobTitle
:nWidth := 800
:nHeight := 600
:OnClose := {|| ::oPreviewDC:Destroy() }
:Create()
END WITH
WITH OBJECT oPreview := TPreviewControl():New( oForm )
:oPreviewDC := ::oPreviewDC
:nLeft := 0
:nTop := 0
:nAlign := alCLIENT
:Create()
END
If lModal
oForm:ShowModal( nShowMode, .T. )
else
oForm:Show( nShowMode, .t.)
Endif
return .t.
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4559be29@news.xailer.com...]4559be29@news.xailer.com...[/email]
> gracias OZ, pero en realidad lo que me seria util, segun mis pobres
> conocimientos, seria el methodo entero, vaya, esto:
>
> Method Preview(:::) Class TPrinter
> //el cuerpo del preview
> //esto para ver donde podria acomodar mi objeto que requiero llegue a ser
> visible
> //en el TForm del preview
> ::::
>
> TPreviewControl():New() ::::::::::
>
> ::::
> return ( :::: )
>
> no me imagino como seria el codigo del metodo en si.
>
> Gracias de nuevo.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ramón,
>>
>> Printer:Preview( nShowmode, lModal, oParent )
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>>> existe la posibilidad me informen como se hace el llamado de Preview en
>>> tPrinter?,
>>> para ver si existe la posibilidad que resuelva mi problema, ya que me es
>>> muy
>>> necesario usarlo a como lo he expuesto.
>>>
>>> --
>>> Ramón Zea
>>> ramonzea@yahoo.com
>>> zeasoftware@hotmail.com
>>> zeasoft.movil@hotmail.com
>>> http://www.paginasprodigy.com/zeasoft/
>>>
>>
>>
>>
>
>

[zeasoftware]

Gracias OZ, solo una ultima pregunta:
El documento creado entre StartDoc y EndDoc, ya no esta disponoble una vez
que llegamos al Preview?
Por que segun lo que estoy analizando ese es mi problema, que antes del
preview, ya hice un endDoc, y por lo cual en Canvas me marca que es = Nil.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4559c326$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> //---------------------------------------------------------- ----------------
>
> METHOD Preview( nShowMode, lModal, oParent ) CLASS XPrinter
>
> local oForm, oPreview
> local lRet
>
> If Empty( ::oPreviewDC ) .OR. Len( ::oPreviewDC:aEmf ) == 0
> return .f.
> Endif
>
> if Valtype( lRet := ::OnPreview( nShowMode, lModal ) ) == "L" .and. !lRet
> return .t.
> endif
>
> DEFAULT lModal TO ::lPreviewModal
> DEFAULT nShowMode TO ::nPreviewShowMode
> DEFAULT oParent TO Application:oMainForm
>
> WITH OBJECT oForm := TForm():New( oParent )
> :cText := ::cJobTitle
> :nWidth := 800
> :nHeight := 600
> :OnClose := {|| ::oPreviewDC:Destroy() }
> :Create()
> END WITH
>
> WITH OBJECT oPreview := TPreviewControl():New( oForm )
> :oPreviewDC := ::oPreviewDC
> :nLeft := 0
> :nTop := 0
> :nAlign := alCLIENT
> :Create()
> END
>
> If lModal
> oForm:ShowModal( nShowMode, .T. )
> else
> oForm:Show( nShowMode, .t.)
> Endif
>
> return .t.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=4559be29@news.xailer.com...]4559be29@news.xailer.com...[/email]
>> gracias OZ, pero en realidad lo que me seria util, segun mis pobres
>> conocimientos, seria el methodo entero, vaya, esto:
>>
>> Method Preview(:::) Class TPrinter
>> //el cuerpo del preview
>> //esto para ver donde podria acomodar mi objeto que requiero llegue a ser
>> visible
>> //en el TForm del preview
>> ::::
>>
>> TPreviewControl():New() ::::::::::
>>
>> ::::
>> return ( :::: )
>>
>> no me imagino como seria el codigo del metodo en si.
>>
>> Gracias de nuevo.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Ramón,
>>>
>>> Printer:Preview( nShowmode, lModal, oParent )
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>>>> existe la posibilidad me informen como se hace el llamado de Preview en
>>>> tPrinter?,
>>>> para ver si existe la posibilidad que resuelva mi problema, ya que me
>>>> es muy
>>>> necesario usarlo a como lo he expuesto.
>>>>
>>>> --
>>>> Ramón Zea
>>>> ramonzea@yahoo.com
>>>> zeasoftware@hotmail.com
>>>> zeasoft.movil@hotmail.com
>>>> http://www.paginasprodigy.com/zeasoft/
>>>>
>>>
>>>
>>>
>>
>>
>
>
>

[ignacio]

Ramón,
No se lo que quieres hacer, pero desde luego que el documento está terminado
cuando se lanza el Preview, no puede ser de otra forma. Y por lo tanto no
tiene ningún TCanvas activo.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4559e7d7@news.xailer.com...]4559e7d7@news.xailer.com...[/email]
> Gracias OZ, solo una ultima pregunta:
> El documento creado entre StartDoc y EndDoc, ya no esta disponoble una vez
> que llegamos al Preview?
>
> Por que segun lo que estoy analizando ese es mi problema, que antes del
> preview, ya hice un endDoc, y por lo cual en Canvas me marca que es = Nil.
>
> Gracias.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:4559c326$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>
>> //---------------------------------------------------------- ----------------
>>
>> METHOD Preview( nShowMode, lModal, oParent ) CLASS XPrinter
>>
>> local oForm, oPreview
>> local lRet
>>
>> If Empty( ::oPreviewDC ) .OR. Len( ::oPreviewDC:aEmf ) == 0
>> return .f.
>> Endif
>>
>> if Valtype( lRet := ::OnPreview( nShowMode, lModal ) ) == "L" .and. !lRet
>> return .t.
>> endif
>>
>> DEFAULT lModal TO ::lPreviewModal
>> DEFAULT nShowMode TO ::nPreviewShowMode
>> DEFAULT oParent TO Application:oMainForm
>>
>> WITH OBJECT oForm := TForm():New( oParent )
>> :cText := ::cJobTitle
>> :nWidth := 800
>> :nHeight := 600
>> :OnClose := {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
>>
>> WITH OBJECT oPreview := TPreviewControl():New( oForm )
>> :oPreviewDC := ::oPreviewDC
>> :nLeft := 0
>> :nTop := 0
>> :nAlign := alCLIENT
>> :Create()
>> END
>>
>> If lModal
>> oForm:ShowModal( nShowMode, .T. )
>> else
>> oForm:Show( nShowMode, .t.)
>> Endif
>>
>> return .t.
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>> news:[email=4559be29@news.xailer.com...]4559be29@news.xailer.com...[/email]
>>> gracias OZ, pero en realidad lo que me seria util, segun mis pobres
>>> conocimientos, seria el methodo entero, vaya, esto:
>>>
>>> Method Preview(:::) Class TPrinter
>>> //el cuerpo del preview
>>> //esto para ver donde podria acomodar mi objeto que requiero llegue a
>>> ser visible
>>> //en el TForm del preview
>>> ::::
>>>
>>> TPreviewControl():New() ::::::::::
>>>
>>> ::::
>>> return ( :::: )
>>>
>>> no me imagino como seria el codigo del metodo en si.
>>>
>>> Gracias de nuevo.
>>> --
>>> Ramón Zea
>>> ramonzea@yahoo.com
>>> zeasoftware@hotmail.com
>>> zeasoft.movil@hotmail.com
>>> http://www.paginasprodigy.com/zeasoft/
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>> news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Ramón,
>>>>
>>>> Printer:Preview( nShowmode, lModal, oParent )
>>>>
>>>> Un saludo,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>>> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>>>>> existe la posibilidad me informen como se hace el llamado de Preview
>>>>> en
>>>>> tPrinter?,
>>>>> para ver si existe la posibilidad que resuelva mi problema, ya que me
>>>>> es muy
>>>>> necesario usarlo a como lo he expuesto.
>>>>>
>>>>> --
>>>>> Ramón Zea
>>>>> ramonzea@yahoo.com
>>>>> zeasoftware@hotmail.com
>>>>> zeasoft.movil@hotmail.com
>>>>> http://www.paginasprodigy.com/zeasoft/
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>

[zeasoftware]

Te explico mas detalladamente:
Quiero aplicar una imagen sobre el documento en la ventana PreView, pero,
como es la primera vez que llegaba a este punto, pense que seria mas
sencillo.
Entonces una vez llegado al preview, el documento en él ya no puede ser
modificado?
Si es asi, para buscar otra manera de obtener lo que busco.
Gracias de nuevo.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4559eb8f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> No se lo que quieres hacer, pero desde luego que el documento está
> terminado cuando se lanza el Preview, no puede ser de otra forma. Y por lo
> tanto no tiene ningún TCanvas activo.
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=4559e7d7@news.xailer.com...]4559e7d7@news.xailer.com...[/email]
>> Gracias OZ, solo una ultima pregunta:
>> El documento creado entre StartDoc y EndDoc, ya no esta disponoble una
>> vez que llegamos al Preview?
>>
>> Por que segun lo que estoy analizando ese es mi problema, que antes del
>> preview, ya hice un endDoc, y por lo cual en Canvas me marca que es =
>> Nil.
>>
>> Gracias.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:4559c326$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>
>>> //---------------------------------------------------------- ----------------
>>>
>>> METHOD Preview( nShowMode, lModal, oParent ) CLASS XPrinter
>>>
>>> local oForm, oPreview
>>> local lRet
>>>
>>> If Empty( ::oPreviewDC ) .OR. Len( ::oPreviewDC:aEmf ) == 0
>>> return .f.
>>> Endif
>>>
>>> if Valtype( lRet := ::OnPreview( nShowMode, lModal ) ) == "L" .and.
>>> !lRet
>>> return .t.
>>> endif
>>>
>>> DEFAULT lModal TO ::lPreviewModal
>>> DEFAULT nShowMode TO ::nPreviewShowMode
>>> DEFAULT oParent TO Application:oMainForm
>>>
>>> WITH OBJECT oForm := TForm():New( oParent )
>>> :cText := ::cJobTitle
>>> :nWidth := 800
>>> :nHeight := 600
>>> :OnClose := {|| ::oPreviewDC:Destroy() }
>>> :Create()
>>> END WITH
>>>
>>> WITH OBJECT oPreview := TPreviewControl():New( oForm )
>>> :oPreviewDC := ::oPreviewDC
>>> :nLeft := 0
>>> :nTop := 0
>>> :nAlign := alCLIENT
>>> :Create()
>>> END
>>>
>>> If lModal
>>> oForm:ShowModal( nShowMode, .T. )
>>> else
>>> oForm:Show( nShowMode, .t.)
>>> Endif
>>>
>>> return .t.
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>> news:[email=4559be29@news.xailer.com...]4559be29@news.xailer.com...[/email]
>>>> gracias OZ, pero en realidad lo que me seria util, segun mis pobres
>>>> conocimientos, seria el methodo entero, vaya, esto:
>>>>
>>>> Method Preview(:::) Class TPrinter
>>>> //el cuerpo del preview
>>>> //esto para ver donde podria acomodar mi objeto que requiero llegue a
>>>> ser visible
>>>> //en el TForm del preview
>>>> ::::
>>>>
>>>> TPreviewControl():New() ::::::::::
>>>>
>>>> ::::
>>>> return ( :::: )
>>>>
>>>> no me imagino como seria el codigo del metodo en si.
>>>>
>>>> Gracias de nuevo.
>>>> --
>>>> Ramón Zea
>>>> ramonzea@yahoo.com
>>>> zeasoftware@hotmail.com
>>>> zeasoft.movil@hotmail.com
>>>> http://www.paginasprodigy.com/zeasoft/
>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>>> news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>> Ramón,
>>>>>
>>>>> Printer:Preview( nShowmode, lModal, oParent )
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> http://www.xailer.com
>>>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>>>> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>>>>>> existe la posibilidad me informen como se hace el llamado de Preview
>>>>>> en
>>>>>> tPrinter?,
>>>>>> para ver si existe la posibilidad que resuelva mi problema, ya que me
>>>>>> es muy
>>>>>> necesario usarlo a como lo he expuesto.
>>>>>>
>>>>>> --
>>>>>> Ramón Zea
>>>>>> ramonzea@yahoo.com
>>>>>> zeasoftware@hotmail.com
>>>>>> zeasoft.movil@hotmail.com
>>>>>> http://www.paginasprodigy.com/zeasoft/
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
>

[ignacio]

Ramón,
Efectivamente. Una vez llegado al Preview, el documento es imposible
modificarlo.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4559ee45@news.xailer.com...]4559ee45@news.xailer.com...[/email]
> Te explico mas detalladamente:
>
> Quiero aplicar una imagen sobre el documento en la ventana PreView, pero,
> como es la primera vez que llegaba a este punto, pense que seria mas
> sencillo.
>
> Entonces una vez llegado al preview, el documento en él ya no puede ser
> modificado?
>
> Si es asi, para buscar otra manera de obtener lo que busco.
>
> Gracias de nuevo.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:4559eb8f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ramón,
>>
>> No se lo que quieres hacer, pero desde luego que el documento está
>> terminado cuando se lanza el Preview, no puede ser de otra forma. Y por
>> lo tanto no tiene ningún TCanvas activo.
>>
>> Un saludo
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>> news:[email=4559e7d7@news.xailer.com...]4559e7d7@news.xailer.com...[/email]
>>> Gracias OZ, solo una ultima pregunta:
>>> El documento creado entre StartDoc y EndDoc, ya no esta disponoble una
>>> vez que llegamos al Preview?
>>>
>>> Por que segun lo que estoy analizando ese es mi problema, que antes del
>>> preview, ya hice un endDoc, y por lo cual en Canvas me marca que es =
>>> Nil.
>>>
>>> Gracias.
>>> --
>>> Ramón Zea
>>> ramonzea@yahoo.com
>>> zeasoftware@hotmail.com
>>> zeasoft.movil@hotmail.com
>>> http://www.paginasprodigy.com/zeasoft/
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>> news:4559c326$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>
>>>> //---------------------------------------------------------- ----------------
>>>>
>>>> METHOD Preview( nShowMode, lModal, oParent ) CLASS XPrinter
>>>>
>>>> local oForm, oPreview
>>>> local lRet
>>>>
>>>> If Empty( ::oPreviewDC ) .OR. Len( ::oPreviewDC:aEmf ) == 0
>>>> return .f.
>>>> Endif
>>>>
>>>> if Valtype( lRet := ::OnPreview( nShowMode, lModal ) ) == "L" .and.
>>>> !lRet
>>>> return .t.
>>>> endif
>>>>
>>>> DEFAULT lModal TO ::lPreviewModal
>>>> DEFAULT nShowMode TO ::nPreviewShowMode
>>>> DEFAULT oParent TO Application:oMainForm
>>>>
>>>> WITH OBJECT oForm := TForm():New( oParent )
>>>> :cText := ::cJobTitle
>>>> :nWidth := 800
>>>> :nHeight := 600
>>>> :OnClose := {|| ::oPreviewDC:Destroy() }
>>>> :Create()
>>>> END WITH
>>>>
>>>> WITH OBJECT oPreview := TPreviewControl():New( oForm )
>>>> :oPreviewDC := ::oPreviewDC
>>>> :nLeft := 0
>>>> :nTop := 0
>>>> :nAlign := alCLIENT
>>>> :Create()
>>>> END
>>>>
>>>> If lModal
>>>> oForm:ShowModal( nShowMode, .T. )
>>>> else
>>>> oForm:Show( nShowMode, .t.)
>>>> Endif
>>>>
>>>> return .t.
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>>> news:[email=4559be29@news.xailer.com...]4559be29@news.xailer.com...[/email]
>>>>> gracias OZ, pero en realidad lo que me seria util, segun mis pobres
>>>>> conocimientos, seria el methodo entero, vaya, esto:
>>>>>
>>>>> Method Preview(:::) Class TPrinter
>>>>> //el cuerpo del preview
>>>>> //esto para ver donde podria acomodar mi objeto que requiero llegue a
>>>>> ser visible
>>>>> //en el TForm del preview
>>>>> ::::
>>>>>
>>>>> TPreviewControl():New() ::::::::::
>>>>>
>>>>> ::::
>>>>> return ( :::: )
>>>>>
>>>>> no me imagino como seria el codigo del metodo en si.
>>>>>
>>>>> Gracias de nuevo.
>>>>> --
>>>>> Ramón Zea
>>>>> ramonzea@yahoo.com
>>>>> zeasoftware@hotmail.com
>>>>> zeasoft.movil@hotmail.com
>>>>> http://www.paginasprodigy.com/zeasoft/
>>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>>>> news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>>> Ramón,
>>>>>>
>>>>>> Printer:Preview( nShowmode, lModal, oParent )
>>>>>>
>>>>>> Un saludo,
>>>>>>
>>>>>> --
>>>>>> Ignacio Ortiz de Zúñiga
>>>>>> http://www.xailer.com
>>>>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>>>>> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>>>>>>> existe la posibilidad me informen como se hace el llamado de Preview
>>>>>>> en
>>>>>>> tPrinter?,
>>>>>>> para ver si existe la posibilidad que resuelva mi problema, ya que
>>>>>>> me es muy
>>>>>>> necesario usarlo a como lo he expuesto.
>>>>>>>
>>>>>>> --
>>>>>>> Ramón Zea
>>>>>>> ramonzea@yahoo.com
>>>>>>> zeasoftware@hotmail.com
>>>>>>> zeasoft.movil@hotmail.com
>>>>>>> http://www.paginasprodigy.com/zeasoft/
>>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>

[zeasoftware]

gracias OZ, veo que me estaba dando contra la pared.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4559f08e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Efectivamente. Una vez llegado al Preview, el documento es imposible
> modificarlo.
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=4559ee45@news.xailer.com...]4559ee45@news.xailer.com...[/email]
>> Te explico mas detalladamente:
>>
>> Quiero aplicar una imagen sobre el documento en la ventana PreView, pero,
>> como es la primera vez que llegaba a este punto, pense que seria mas
>> sencillo.
>>
>> Entonces una vez llegado al preview, el documento en él ya no puede ser
>> modificado?
>>
>> Si es asi, para buscar otra manera de obtener lo que busco.
>>
>> Gracias de nuevo.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:4559eb8f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Ramón,
>>>
>>> No se lo que quieres hacer, pero desde luego que el documento está
>>> terminado cuando se lanza el Preview, no puede ser de otra forma. Y por
>>> lo tanto no tiene ningún TCanvas activo.
>>>
>>> Un saludo
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>> news:[email=4559e7d7@news.xailer.com...]4559e7d7@news.xailer.com...[/email]
>>>> Gracias OZ, solo una ultima pregunta:
>>>> El documento creado entre StartDoc y EndDoc, ya no esta disponoble una
>>>> vez que llegamos al Preview?
>>>>
>>>> Por que segun lo que estoy analizando ese es mi problema, que antes del
>>>> preview, ya hice un endDoc, y por lo cual en Canvas me marca que es =
>>>> Nil.
>>>>
>>>> Gracias.
>>>> --
>>>> Ramón Zea
>>>> ramonzea@yahoo.com
>>>> zeasoftware@hotmail.com
>>>> zeasoft.movil@hotmail.com
>>>> http://www.paginasprodigy.com/zeasoft/
>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>>> news:4559c326$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>>
>>>>> //---------------------------------------------------------- ----------------
>>>>>
>>>>> METHOD Preview( nShowMode, lModal, oParent ) CLASS XPrinter
>>>>>
>>>>> local oForm, oPreview
>>>>> local lRet
>>>>>
>>>>> If Empty( ::oPreviewDC ) .OR. Len( ::oPreviewDC:aEmf ) == 0
>>>>> return .f.
>>>>> Endif
>>>>>
>>>>> if Valtype( lRet := ::OnPreview( nShowMode, lModal ) ) == "L" .and.
>>>>> !lRet
>>>>> return .t.
>>>>> endif
>>>>>
>>>>> DEFAULT lModal TO ::lPreviewModal
>>>>> DEFAULT nShowMode TO ::nPreviewShowMode
>>>>> DEFAULT oParent TO Application:oMainForm
>>>>>
>>>>> WITH OBJECT oForm := TForm():New( oParent )
>>>>> :cText := ::cJobTitle
>>>>> :nWidth := 800
>>>>> :nHeight := 600
>>>>> :OnClose := {|| ::oPreviewDC:Destroy() }
>>>>> :Create()
>>>>> END WITH
>>>>>
>>>>> WITH OBJECT oPreview := TPreviewControl():New( oForm )
>>>>> :oPreviewDC := ::oPreviewDC
>>>>> :nLeft := 0
>>>>> :nTop := 0
>>>>> :nAlign := alCLIENT
>>>>> :Create()
>>>>> END
>>>>>
>>>>> If lModal
>>>>> oForm:ShowModal( nShowMode, .T. )
>>>>> else
>>>>> oForm:Show( nShowMode, .t.)
>>>>> Endif
>>>>>
>>>>> return .t.
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> http://www.xailer.com
>>>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>>>> news:[email=4559be29@news.xailer.com...]4559be29@news.xailer.com...[/email]
>>>>>> gracias OZ, pero en realidad lo que me seria util, segun mis pobres
>>>>>> conocimientos, seria el methodo entero, vaya, esto:
>>>>>>
>>>>>> Method Preview(:::) Class TPrinter
>>>>>> //el cuerpo del preview
>>>>>> //esto para ver donde podria acomodar mi objeto que requiero llegue a
>>>>>> ser visible
>>>>>> //en el TForm del preview
>>>>>> ::::
>>>>>>
>>>>>> TPreviewControl():New() ::::::::::
>>>>>>
>>>>>> ::::
>>>>>> return ( :::: )
>>>>>>
>>>>>> no me imagino como seria el codigo del metodo en si.
>>>>>>
>>>>>> Gracias de nuevo.
>>>>>> --
>>>>>> Ramón Zea
>>>>>> ramonzea@yahoo.com
>>>>>> zeasoftware@hotmail.com
>>>>>> zeasoft.movil@hotmail.com
>>>>>> http://www.paginasprodigy.com/zeasoft/
>>>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>>>>> news:4559ba00$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>>>> Ramón,
>>>>>>>
>>>>>>> Printer:Preview( nShowmode, lModal, oParent )
>>>>>>>
>>>>>>> Un saludo,
>>>>>>>
>>>>>>> --
>>>>>>> Ignacio Ortiz de Zúñiga
>>>>>>> http://www.xailer.com
>>>>>>> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
>>>>>>> news:[email=4559aee2@news.xailer.com...]4559aee2@news.xailer.com...[/email]
>>>>>>>> existe la posibilidad me informen como se hace el llamado de
>>>>>>>> Preview en
>>>>>>>> tPrinter?,
>>>>>>>> para ver si existe la posibilidad que resuelva mi problema, ya que
>>>>>>>> me es muy
>>>>>>>> necesario usarlo a como lo he expuesto.
>>>>>>>>
>>>>>>>> --
>>>>>>>> Ramón Zea
>>>>>>>> ramonzea@yahoo.com
>>>>>>>> zeasoftware@hotmail.com
>>>>>>>> zeasoft.movil@hotmail.com
>>>>>>>> http://www.paginasprodigy.com/zeasoft/
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
>