A window with a metafile

[Silvio]

I want create a metafile into a window but it not found oDevice and nHorzRes() and nVertRes()


How I can create it on a window ?

this my test

Code: Select all  Expand view

Function test()
Local oWnd,oTest

DEFINE WINDOW oWnd COLOR CLR_BLACK, CLR_HGRAY ;
VSCROLL HSCROLL

oTest:=TMetaFile():New( 0,0,0,0,"",;
                  oWnd,CLR_BLACK,CLR_WHITE,oDevice:nHorzRes(),;
                  oDevice:nVertRes() )

ACTIVATE WINDOW oWnd