FiveTech Support Forums

METHOD Paint()...
  LOCAL aInfo := ::DispBegin()
  ...
  ::DispEnd( aInfo) 

RETU NIL

#include 'fivewin.ch'
STATIC oWnd

FUNCTION Main()

    DEFINE WINDOW oWnd MDI
    ACTIVATE WINDOW oWnd ON INIT Test()

RETU NIL

STATIC FUNCTION Test()

    LOCAL oChild, oMeta, oBmp

    DEFINE WINDOW oChild MDICHILD OF oWnd

      oMeta := TEnhMetaFile():New( 0, 0, 300, 400, '', oChild, ;
                                   CLR_BLACK, CLR_WHITE )

      @0,0 BITMAP oBmp FILE 'cara1.bmp' SIZE 200, 200 OF oMeta NOBORDER

      SET MESSAGE OF oChild TO 'Test Double Buffer'

    ACTIVATE WINDOW oChild

RETU NIL