Dear all,
when start the print preview from a dialog, it is open into the main windows, under the dialog. 
I need open it in another window, or that the printer open up the dialog.
Ciao, best regards,
Ugo
Ugo
Dear all,
this is the a reduced and self-contained sample:
The problem is that the focus is on the dialog oDlg in Start function;
is possible to close the preview only after to have closed the dialog.
this is the a reduced and self-contained sample:
FUNCTION Main()
LOCAL oWnd
DEFINE Window oWnd MDI
ACTIVATE WINDOW oWnd ON INIT ( /*oWnd:Hide(),*/ Start( oWnd ) ) // MINIMIZED
RETURN Nil
STATIC FUNCTION start( oWnd )
LOCAL oDlg, oBtt
DEFINE DIALOG oDlg OF oWnd
@ 1,1 BUTTON oBtt ACTION PrintTest( oWnd )
ACTIVATE DIALOG oDlg CENTERED
oWnd:END()
RETURN Nil
STATIC FUNCTION PrintTest( oWnd )
LOCAL oPrn, oDlg
PRINT oPrn NAME "Test fivewin" PREVIEW MODAL
// IF Empty( oPrn:hDC )
// IF oPrn:hDC <> 0
// MsgStop( cPrinter + " is not ready!!" )
// ELSE
// MsgINfo( "Printing!" )
// ENDIF
DEFINE dialog oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED NOWAIT
Inkey( 1 )
PAGE
oPrn:CmSay( 10.3 , 15.0, "TEST" )
ENDPAGE
Inkey( 1 )
oDlg:END()
ENDPRINT
MsgInfo( "Print end" )
RETURN NilThe problem is that the focus is on the dialog oDlg in Start function;
is possible to close the preview only after to have closed the dialog.
Ciao, best regards,
Ugo
Ugo
Ugo,
maybe this thread can help you.
viewtopic.php?f=3t=14629p=75810hilit=preview+mdi#p75810
Regards,
Otto
&&&
Otto wrote:Ugo,
maybe this thread can help you.
viewtopic.php?f=3&t=14629&p=75810&hilit=preview+mdi#p75810
Dear Otto,
I read that post, but I did not understand what must change!
Ciao, best regards,
Ugo
Ugo
Ugo,
if you want the behavior Fivewin had before you must change rpreview.prg and link in the changed one.
Search for MDICHILD and comment it out.
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL
//MDICHILD
Best regards,
Otto
Otto wrote:Ugo,
if you want the behavior Fivewin had before you must change rpreview.prg and link in the changed one.
Search for MDICHILD and comment it out.
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL
//MDICHILD
Dear Otto,
now I understood,
many thanks,
I don't know why i don't see!
Uhm, I'm tired?
Ciao, best regards,
Ugo
Ugo
I suggest the following small modification to RPreview.Prg. If the printer is defined with PREVIEW and MODAL clauses, the preview will now create a normal window, but not an mdichild.
Proposed modification in BuildWindow method of TPreview Class ( line 386 in 0.04 version )
Also I propose the following modification in report.prg ( line 253 )
Proposed modification in BuildWindow method of TPreview Class ( line 386 in 0.04 version )
if !::oDevice:lPrvModal .and. ; // now added
::oWndMain != nil .and. Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"Also I propose the following modification in report.prg ( line 253 )
::oDevice := TPrinter():New( cName, .f., .t., nil, .t. ) // last 2 params now addedRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India