JPG to screen

patili · Post by **patili** » Sun Sep 21, 2008 9:07 am

Hi everybody
How can i show a jpg picture on the screen in a dialog winfow?
Without converting it to bmp.
And with an auto-adaptation (i am not sure from my english) of the size.
I need to show some echography picture in the form of my patient.

dutch · Post by **dutch** » Sun Sep 21, 2008 10:08 am

Dear Patili,

I think it may help.

Code: Select all

         
   REDEFINE IMAGE oImg ID 11 OF oDlg SCROLL

         oImg:Progress( .F. )

   REDEFINE SBUTTON oBtn[1] ID 12 ;
            PROMPT TE('àµçÁ¡ÃÍº','Stretch') ;
            WHEN lGstPhoto ;
            ACTION AjustaZoom( oImg ,"S" ) ;
            COLOR {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) } ;
            NOBORDER ;
            TEXT ON_BOTTOM

   REDEFINE SBUTTON oBtn[2] ID 13 ;
            PROMPT TE('¢ÂÒÂ','Zoom In') ;
            WHEN lGstPhoto ;
            ACTION AjustaZoom( oImg ,"A" ) ;
            COLOR {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) } ;
            NOBORDER ;
            TEXT ON_BOTTOM

   REDEFINE SBUTTON oBtn[3] ID 14 ;
            PROMPT TE('ÂèÍ','Zoom Out') ;
            WHEN lGstPhoto ;
            ACTION AjustaZoom( oImg ,"R" ) ;
            COLOR {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) } ;
            NOBORDER ;
            TEXT ON_BOTTOM

*------------------------------------*
Function AjustaZoom(oBmp,cAccion)
local nZoom:=oBmp:Zoom()

do case
   case cAccion == "S"
        oBmp:lStretch := !oBmp:lStretch
        oBmp:ScrollAdjust()
        oBmp:Refresh( .T. )
   case cAccion == "R"
        if nZoom*10>=1
           oBmp:lStretch := .F.
           nZoom:=nZoom-(0.10)
           oBmp:Zoom(nZoom)
           oBmp:Refresh()
           oBmp:ScrollAdjust()
        endif
   case cAccion == "A"
        oBmp:lStretch := .F.
        nZoom:=nZoom+0.10
        oBmp:Zoom(nZoom)
        oBmp:Refresh()
        oBmp:ScrollAdjust()
endcase

return NIL

patili · Post by **patili** » Wed Sep 24, 2008 7:23 pm

Sorry but i don't have "IMAGE" in my Fivewin??

Post by **Antonio Linares** » Thu Sep 25, 2008 12:48 am

Patrick,

What FW version are you using ?

patili · Post by **patili** » Thu Sep 25, 2008 8:03 pm

FW 2.1 and i don't see "image"

Post by **Antonio Linares** » Thu Sep 25, 2008 8:41 pm

Patrick,

Please look for source\classes\image.prg

The first version of Class TImage was added in FW 2.0

patili · Post by **patili** » Thu Sep 25, 2008 8:57 pm

Waou i've not explored all the source!!!
Thanks
Patrick (the last which isn't on harbour)

patili · Post by **patili** » Thu Sep 25, 2008 8:59 pm

Thank you Dutch i will use and abuse of your Prg