Hola FiveWinners.
Tengo la version 13.08. estoy probando testimg.prg y las imagenes en formato JPG NO las imprime.
Alguien tiene un ejemplo para imprimir images jpg en esta version de FW ?
Saludos
Visite Chiapas, el paraiso de México.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Imprimiendo images con FW 13.08
¿Tiens FreeImage.dll en la carpeta de la aplicación o carpeta del sistema?
És windows de 64 bits?
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Hola Karinha
SI, y e probado con la version nueva y vieja de freeimage.dll
Y efectivamente. tengo un sistema de 64 bits, pero genero aplicaciones de 32 bits.
Hay algo alrespecto ?
Gracias
Saludos
Visite Chiapas, el paraiso de México.
Copiar y pegar acá tu testimg.prg porfa para yo testar.
gracias,
salu2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Hola Karinha
Cual es ti email, para enviarte la imagen.
Saludos
Visite Chiapas, el paraiso de México.
Mi correo:
joao@pleno.com.br
ó
kmt_karinha@pop.com.br
Teste este ejemplo:
joao@pleno.com.br
ó
kmt_karinha@pop.com.br
Teste este ejemplo:
#include "FiveWin.ch"
#include "Image.ch"
//----------------------------------------------------------------------------//
function Main()
LOCAL oDlg, oImage, lSetAlpha := .t.
// setalpha( .f. )
DEFINE DIALOG oDlg FROM 0, 0 TO 22, 60 ;
TITLE FWDESCRIPTION + " JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!"
@ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST
oImage:Progress( .f. )
@ 1, 28 BUTTON "Select Image" SIZE 50,10 OF oDlg ACTION GetImage( oImage )
@ 2, 28 BUTTON "Print" SIZE 50,10 OF oDlg ACTION PrintImage( oImage )
@ 3, 28 BUTTON "Copy" SIZE 50, 10 OF oDlg ;
ACTION oImage:CopyToClipboard()
@ 4, 28 BUTTON "Paste" SIZE 50, 10 OF oDlg ;
ACTION ( oImage:LoadFromClipboard(), oImage:Refresh() )
@ 5, 28 BUTTON "Save" SIZE 50, 10 OF oDlg ;
ACTION ( oImage:SaveImage( "SAVED.JPG", 2, 25 ), MsgInfo( "saved as saved.jpg" ) )
@ 6, 28 BUTTON "Exit" SIZE 50, 10 OF oDlg ACTION oDlg:End()
@ 10, 26 CHECKBOX oImage:lStretch PROMPT "Stretch" SIZE 50, 10 OF oDlg ;
ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() )
@ 11, 26 CHECKBOX lSetAlpha PROMPT "Set Alpha Channel" SIZE 80, 10 OF oDlg ;
ON CHANGE ( SetAlpha( lSetAlpha ), oImage:Refresh() )
ACTIVATE DIALOG oDlg CENTER
return nil
//----------------------------------------------------------------------------//
function GetImage( oImage )
local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" + ;
"DIB (*.dib)| *.dib|" + ;
"PCX (*.pcx)| *.pcx|" + ;
"JPEG (*.jpg)| *.jpg|" + ;
"GIF (*.gif)| *.gif|" + ;
"TARGA (*.tga)| *.tga|" + ;
"RLE (*.rle)| *.rle|" + ;
"All Files (*.*)| *.*" ;
,"Please select a image file", 4 )
if ! Empty( gcFile ) .and. File( gcFile )
oImage:LoadBmp( gcFile )
endif
return nil
//----------------------------------------------------------------------------//
function PrintImage( oImage )
local oPrn
PRINT oPrn NAME "Image Printing" PREVIEW
PAGE
oPrn:SayImage( 0, 0, oImage )
ENDPAGE
ENDPRINT
return nil
//----------------------------------------------------------------------------//
procedure AppSys // XBase++ requirement
return
//----------------------------------------------------------------------------//João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341