FiveTech Support Forums

#include "fivewin.ch"
#include "constant.ch"

static  oImage

Function TestshowImg()
   Local oCattura
   Local nBottom   := 33
   Local nRight    := 115
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H
   Local cImgFile:= "default.bmp"

 DEFINE DIALOG oCattura  ;   //OF oParent
   TITLE "show immagine da file"    ;
   SIZE nWidth, nHeight TRANSPARENT PIXEL


 @ 20, 330 IMAGE oImage SIZE 80, 80 OF oCattura   PIXEL NOBORDER

  ACTIVATE DIALOG  oCattura CENTERED   ;
        on init  oImage:LoadBmp( cImgFile )

  Return nil