FiveTech Software tech support forums

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

Otto,

It looks very nice