FiveTech Support Forums

//-----  From FWH-sample Testmdi4.prg ---------------//

#include "FiveWin.ch"

static oWnd

function Main()
local oBar

SET _3DLOOK ON

DEFINE WINDOW oWnd TITLE "MDIChilds from resources" MDI

DEFINE BUTTONBAR oBar _3D OF oWnd

DEFINE BUTTON OF oBar ACTION child() //( Child(), MsgInfo( oWnd:oWndClient:aWnd[ 1 ]:cCaption ) )

ACTIVATE WINDOW oWnd maximized ;
ON PAINT SHOW_PIC0( oWnd ) 

return nil

// -----------------------------------

FUNCTION  SHOW_PIC0( oWnd )
LOCAL oImage1
LOCAL aRect := GETCLIENTRECT( oWnd:hWnd )

@ 0, 0 IMAGE oImage1 SIZE aRect[4], aRect[3] OF oWnd  ADJUST   
oImage1:LoadBmp( "TEST.JPG" )

RETURN( NIL )

function Main()
local oBar, oImage

SET _3DLOOK ON

DEFINE WINDOW oWnd TITLE "MDIChilds from resources" MDI

DEFINE BITMAP oImage FILE "TEST.BMP"   // TEST.JPG doesn't work

.........

ACTIVATE WINDOW oWnd maximized ;
ON PAINT (drawbitmap( hdc, oImage:hbitmap, 0, 0,; 
oWnd:owndclient:nWidth(), oWnd:owndclient:nHeight())) 

return nil

#include "FiveWin.ch"
#include "Image.ch"     //  !!!!!

static oWnd

FUNCTION Main()
Local hDC

DEFINE WINDOW oWnd TITLE "Background"  MDI MENU TMenu():New() 

// Define the Image
@ 0, 0 IMAGE oImage SIZE 150, 150 OF oWnd ADJUST  // Any Size
oImage:Progress( .f. )
oImage:LoadBmp( "TEST.JPG" )

.....

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT ( DRAWBITMAP( hdc, oImage:hbitmap, 0, 0,; 
           oWnd:nWidth(), oWnd:nHeight()) ) ;
VALID MsgYesNo( "Do you want to end?" )

RETURN NIL