Gracias Xevi.
Al no funcionar el ejemplo supuse que era algun fallo. Disculapas Equipo.
Parece ser que hay que pagar por la Lib.
Casi 300$ ¡fuuuuuu!
Paco V
"Xevi" <
xevicomas@gmail.com> escribió en el mensaje
news:[email=
47566f0e@ozsrv2.ozlan.local...]
47566f0e@ozsrv2.ozlan.local...[/email]
> Paco,
>
> Debes de tener instalada una dll.
> Encontrarás la información en la ayuda de TPreviewControl
>
> Un Saludo,
> Xevi.
>
>
> "Paco V." <
ssi-quita-esto@ono.com> escribió en el mensaje de noticias
> news:475666a0$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>> Ignacio:
>> En el ejemplo Report los iconos generar Pdf y Enviar aparecen en Gris,
>> (No se ve la imagen).
>> Al picar en ellos no hacen nada.
>>
>> ¿Es normal?
>>
>> Paco V
>> "Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escribió en el mensaje
>> news:47565ea0$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>> Incluyo mejor el módulo completo por si alguno lo prefiere.
>>>
>>> Un saludo
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>>
http://www.xailer.com
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escribió en el mensaje
>>> news:47565dc2$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>>> Xevi,
>>>>
>>>> Tienes razón. Hay un error. En breve publicaremos una actualización con
>>>> todos los pequeños problemas que surgan. Mientras tanto aquí tienes el
>>>> método solucionado. Perdón por las molestias.
>>>>
>>>> Un saludo,
>>>>
>>>> //---------------------------------------------------------- ----------------
>>>>
>>>> METHOD Create( oParent ) CLASS XPreviewControl
>>>>
>>>> LOCAL oBtnPDF, oBtnMail
>>>>
>>>> UPDATE ::oParent TO oParent
>>>>
>>>> Super:Create()
>>>>
>>>> MENU ::oPrnMenu POPUP
>>>> MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
>>>> MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
>>>> MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
>>>> SEPARATOR
>>>> MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
>>>> ENDMENU
>>>>
>>>> ::oRebar := TRebar():Create( Self )
>>>>
>>>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
>>>> :lList := .T.
>>>> :lAutoSize := .T.
>>>> WITH OBJECT :oImageList
>>>> :nWidth := 24
>>>> :nHeight := 24
>>>> END WITH
>>>> :Create()
>>>> :AddSeparator()
>>>> :AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
>>>> ::nPage := 1 } )
>>>> :AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
>>>> ::nPage -- } )
>>>> :AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
>>>> ::nPage ++ } )
>>>> :AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
>>>> ::nPage := Len( ::oPreviewDC:aEmf ) } )
>>>> IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
>>>> :AddSeparator()
>>>> ENDIF
>>>> IF ::oExportInfo:lImgPDFButton
>>>> oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT(
>>>> XA_MSG_GENPDF ),
>>>> {|| ::GenPDF() } )
>>>> IF !IsImagePDF()
>>>> oBtnPDF:lEnabled := .F.
>>>> ENDIF
>>>> ENDIF
>>>> IF ::oExportInfo:lMailButton
>>>> oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT(
>>>> XA_MSG_SENDMAIL ),
>>>> {|| ::SendMail() } )
>>>> IF !IsImagePDF()
>>>> oBtnMail:lEnabled := .F.
>>>> ENDIF
>>>> ENDIF
>>>> :AddSeparator()
>>>> :AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
>>>> ::Print() }, ::oPrnMenu )
>>>> :AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
>>>> ::oParent:Close() } )
>>>> END
>>>>
>>>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
>>>> :oControl := ::oToolBar
>>>> :Create()
>>>> END
>>>>
>>>> WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
>>>> :SetBounds( 0, 0, 130, 20 )
>>>> :nBorderStyle := bvNONE
>>>> :lTransparent := .T.
>>>> :Create()
>>>> END
>>>>
>>>> WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
>>>> ::oPreviewDC:oPrinter )
>>>> :nAlign := alCLIENT
>>>> :Create()
>>>> :oEmf := ::oPreviewDC:aEmf[ ::nPage ]
>>>> :SetFocus()
>>>> :OnFirstPage := {|| ::nPage := 1 }
>>>> :OnPrevPage := {|| ::nPage-- }
>>>> :OnNextPage := {|| ::nPage++ }
>>>> :OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
>>>> :OnZoomIn := "ZoomIn"
>>>> :OnZoomOut := "ZoomOut"
>>>> END
>>>>
>>>> WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
>>>> :SetBounds( 0, 0, 125, 300 )
>>>> :nStyle := CBS_DROPDOWNLIST
>>>> :Create()
>>>> :SetItems( { "500", "200", "150", "100", "50", "25", "10",;
>>>> LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
>>>> XA_MSG_LARGO_DE_PAGINA ),;
>>>> LT( XA_MSG_TODA_LA_PAGINA ) } )
>>>> :SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
>>>> :OnChange := "SetZoom"
>>>> END
>>>> ::oBevel:nHeight := ::oCombo:nHeight
>>>>
>>>> WITH OBJECT TRebarBand():New( ::oRebar )
>>>> :cText := LT( XA_MSG_ZOOM ) + ":"
>>>> :oControl := ::oBevel
>>>> :Create()
>>>> END
>>>>
>>>> ::UpdateBar()
>>>>
>>>> RETURN Self
>>>>
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>>
http://www.xailer.com
>>>>
>>>>
>>>> "Xevi" <
xevicomas@gmail.com> escribió en el mensaje
>>>> news:47559d7b$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>>>> Ignacio,
>>>>>
>>>>> No funciona el Peview...
>>>>>
>>>>> ***************************** Registro de errores
>>>>> *****************************
>>>>>
>>>>> Fecha: 04/12/2007
>>>>> Hora: 19:32:24
>>>>> Memoria libre: 285520
>>>>> Area actual: 5
>>>>>
>>>>> ------------------------- Información del
>>>>> compilador --------------------------
>>>>>
>>>>> Versión Xailer: Xailer 1.8.0 Version 1.8
>>>>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>>>>> Compilador C/C++: Borland C++ 5.8.0
>>>>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>>>>
>>>>> ----------------------- Información detallada del
>>>>> error -----------------------
>>>>>
>>>>> Subsistema: BASE
>>>>> Código de error: 1005
>>>>> Estado: .F.
>>>>> Descripción: Class: 'NIL' has no property
>>>>> Operación: LENABLED
>>>>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>>>>> Fichero:
>>>>> Código error SO: 0
>>>>>
>>>>> Pila de llamadas:
>>>>> TPREVIEWCONTROL:CREATE (99)
>>>>> TPRINTER:PREVIEW (422)
>>>>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>>>>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>>>>> TDBBROWSE:ONKEYDOWN (0)
>>>>> TWINCONTROL:WMKEYDOWN (939)
>>>>> XBROWSE:WMKEYDOWN (2345)
>>>>> TDBBROWSE:WMKEYDOWN (73)
>>>>> RUNFORM (0)
>>>>> TAPPLICATION:RUN (209)
>>>>> MAIN (24)
>>>>>
>>>>> ------------------ Información detallada de áreas de
>>>>> trabajo ------------------
>>>>>
>>>>> Area: 1
>>>>> Alias: CLIENTSFACTURES
>>>>> Registro: 742
>>>>> Filtro:
>>>>> Relación:
>>>>> Orden del índice: 1
>>>>> Clave activa: 1
>>>>>
>>>>> Area: 2
>>>>> Alias: FACTU
>>>>> Registro: 1168
>>>>> Filtro:
>>>>> Relación:
>>>>> Orden del índice: 5
>>>>> Clave activa: 5
>>>>>
>>>>>
>>>>> Un Saludo,
>>>>> Xevi.
>>>>>
>>>>>
>>>>> "Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escribió en el mensaje
>>>>> de
>>>>> noticias news:475593d1$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>>>>> Más información en el siguiente enlace:
http://xailer.info/esp/?p=87
>>>>>> ------------------------------------------------------------ ------
>>>>>> Further information on this link:
http://xailer.info/eng/?p=22
>>>>>>
>>>>>>
http://www.xailer.com
>>>>>>
>>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>