EMF Viewer
Posted: Wed Feb 20, 2008 9:40 am
I changed rpreview.prg
1) METHOD Activate() CLASS TPreview
// ACTIVATE WINDOW ::oWnd MAXIMIZED ;
Changed to
ACTIVATE WINDOW ::oWnd ;
2) METHOD BuildWindow() CLASS TPreview
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL MDICHILD STYLE nOR( WS_CAPTION)
Inserted:
STYLE nOR( WS_CAPTION)
WndTop( ::oWnd:hWnd, 0)
//WndLeft( ::oWnd:hWnd, (::oWndMain:nwidth() - ::oWnd:nwidth())-16 )
WndLeft( ::oWnd:hWnd, 200)
::oWnd:nHeight := ::oWndMain:nHeight() -80
3) cTitle := ::oDevice:cFile
I changed printer.prg
printer.prg
1) DATA cFile
METHOD New( cDocument, lUser, lMeta, cModel, lModal, lSelection, cFile ) CONSTRUCTOR
METHOD ImportWMF( cFile, lPlaceable ) CLASS TPrinter
local hMeta, hOld, hWMF
local aData := PrnGetSize( ::hDC )
local aInfo := Array( 5 )
::cFile := cFile
