Problemas con Imagen

[jponce]

Buenas tardes

tengo problemas con presentar una imagen

El código es el siguiente

Function ImageEq()
LOCAL oDlg, oImage, oGet, lSetAlpha := .t., cUrlImage := SPACE(200)


DEFINE DIALOG oDlg FROM 0, 0 TO 24, 60

@ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST

oImage:Progress( .f. )

@ 6, 28 BUTTON "Exit" SIZE 50, 10 OF oDlg ACTION oDlg:End()

@ 10, 26 CHECKBOX oImage:lStretch PROMPT "Ajustar" SIZE 50, 10 OF oDlg ;
ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() )


ACTIVATE DIALOG oDlg CENTER ON INIT CambiaImagen(cUrlImage, oImage)

RETURN NIL

STATIC function CambiaImagen(url,oIm)


oIm:LoadBmp("D:\Prueba.jpg" )

RETURN .t.

Al principio me decía que me hacia falta la dll Fimage.dll, la puse a la par de mi ejecutable, pero no funciona, no da error simplemente se queda colgado y se cierra el programa, algun problema en el codigo? o en la dll?

Atentamente
Julio Ponce

[Antonio Linares]

Julio,

Acabo de construir tu ejemplo usando la versión más reciente de FWH y funciona correctamente una vez cambiado el path de la imagen y no pide ninguna DLL.

Que versión de FWH estás usando ?

[karinha]

Perfecto - Perfect! Mui bueno - Very good!! Asi, és mejor!

Code: Select all | Expand

// \SAMPLES\PONCE.PRG

#Include "FiveWin.ch"

FUNCTION ImageEq()

   LOCAL oDlg, oImage, oGet, lSetAlpha := .T., cUrlImage := SPACE(200)
   LOCAL oSkinB, oFont, oSalida, cTitle

   SetBalloon( .T. ) // Balloon shape required for tooltips

   oSkinB = TSkinButton():New()

   oSkinB:nClrBorder0_N := RGB( 249, 194, 179 )
   oSkinB:nClrBorder1_N := RGB( 181, 61, 29 )

   // Olive Color
   oSkinB:aClrNormal    := { { 0.2, RGB( 000, 128, 000 ), RGB( 000, 128, 000 ) }, ;
                             { 0.8, RGB( 109, 135, 100 ), RGB( 109, 135, 100 ) } }

   SkinButtons( oSkinB )

   cTitle := "Ajuste en una .JPG en el Dialogo by Ponce"

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -14 BOLD

   DEFINE DIALOG oDlg FROM 0, 0 TO 24, 60 TITLE cTitle

   oDlg:lHelpIcon := .F.

   @ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST

   oImage:Progress( .f. )

   @ 6, 28 BUTTON oSalida PROMPT "&Salida" SIZE 50, 12 OF oDlg               ;
      ACTION( oDlg:End() ) CANCEL

   oSalida:cToolTip := "Salida - Exit - Cancelar"

   @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Ajustar" SIZE 50, 12 OF oDlg    ;
      UPDATE ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() )           ;
      COLORS nRgb( 250,   0,   0 ), nRgb(  72, 180, 215 )

   SET FONT OF oSalida   TO oFont

   ACTIVATE DIALOG oDlg CENTERED ON INIT( CambiaImagen( cUrlImage, oImage ) )

   oFont:End()

RETURN NIL

STATIC FUNCTION CambiaImagen( url, oIm )

   oIm:LoadBmp( "D:\Prueba.jpg" )

RETURN( .T. )

// FIN
 

Regards, saludos.