/*********************/ /* File: wxprint.cpp */ /*********************/ #ifdef __GNUG__ #pragma implementation #endif // For compilers that support precompilation, includes "wx/wx.h". #include "wx/wxprec.h" #ifdef __BORLANDC__ #pragma hdrstop #endif #ifndef WX_PRECOMP #include "wx/wx.h" #endif #include "wx/spinctrl.h" #if !wxUSE_PRINTING_ARCHITECTURE #error You must set wxUSE_PRINTING_ARCHITECTURE to 1 in setup.h to compile this #endif // Set this to 1 if you want to test PostScript printing under MSW. #define wxTEST_POSTSCRIPT_IN_MSW 1 #include #include "wx/metafile.h" #include "wx/print.h" #include "wx/printdlg.h" #include "wx/dcmirror.h" #if wxTEST_POSTSCRIPT_IN_MSW #include "wx/generic/printps.h" #include "wx/generic/prntdlgg.h" #endif #include "fctsys.h" //#include "gr_basic.h" #include "common.h" #ifdef EESCHEMA #include "program.h" #include "libcmp.h" #include "general.h" #endif #ifdef PCBNEW #include "pcbnew.h" #include "protos.h" // For pcbnew: #define OPTKEY_LAYERBASE wxT( "PrintLayer_%d" ) #define OPTKEY_PRINT_X_FINESCALE_ADJ wxT( "PrintXFineScaleAdj" ) #define OPTKEY_PRINT_Y_FINESCALE_ADJ wxT( "PrintYFineScaleAdj" ) #define OPTKEY_PRINT_SCALE wxT( "PrintScale" ) #endif #define DEFAULT_ORIENTATION_PAPER wxLANDSCAPE // other option is wxPORTRAIT #ifdef EESCHEMA #define WIDTH_MAX_VALUE 100 #else #define WIDTH_MAX_VALUE 1000 #endif #define WIDTH_MIN_VALUE 1 #ifdef PCBNEW extern float Scale_X, Scale_Y; static long s_SelectedLayers; static double s_ScaleList[] = { 0, 0.5, 0.7, 0.999, 1.0, 1.4, 2.0, 3.0, 4.0 }; #endif // static print data and page setup data, to remember settings during the session static wxPrintData* g_PrintData; // Variables locales static int s_PrintPenMinWidth = 6; /* Minimum pen width (in internal units) for printing */ static int s_PrintMaskLayer; static int s_OptionPrintPage = 0; static int s_Print_Black_and_White = TRUE; static int s_Scale_Select = 3; // default selected scale = ScaleList[3] = 1 static bool s_PrintMirror; static bool s_Print_Sheet_Ref = TRUE; /****************************************************************/ /* frame de Preparation de l'impression (options, selections... */ /****************************************************************/ #include "dialog_print.cpp" /***************************/ /* Gestion de l'impression */ /***************************/ class EDA_Printout : public wxPrintout { public: bool m_Print_Sheet_Ref; public: WinEDA_DrawFrame* m_Parent; WinEDA_PrintFrame* m_PrintFrame; EDA_Printout( WinEDA_PrintFrame* print_frame, WinEDA_DrawFrame* parent, const wxString& title, bool print_ref ) : wxPrintout( title ) { m_PrintFrame = print_frame; m_Parent = parent; s_PrintMaskLayer = 0xFFFFFFFF; m_Print_Sheet_Ref = print_ref; } bool OnPrintPage( int page ); bool HasPage( int page ); bool OnBeginDocument( int startPage, int endPage ); void GetPageInfo( int* minPage, int* maxPage, int* selPageFrom, int* selPageTo ); void DrawPage(); }; /*******************************************************/ void WinEDA_DrawFrame::ToPrinter( wxCommandEvent& event ) /*******************************************************/ /* Prepare les structures de donn�es de gestion de l'impression * et affiche la fenetre de dialogue de gestion de l'impression des feuilles */ { wxPoint pos = GetPosition(); bool PrinterError = FALSE; // Stop the pending comand (if any...) if( DrawPanel->ManageCurseur && DrawPanel->ForceCloseManageCurseur ) { wxClientDC dc( DrawPanel ); DrawPanel->PrepareDC( dc ); DrawPanel->ForceCloseManageCurseur( DrawPanel, &dc ); } SetToolID( 0, wxCURSOR_ARROW, wxEmptyString ); if( g_PrintData == NULL ) // First print { g_PrintData = new wxPrintData(); if( !g_PrintData->Ok() ) { PrinterError = TRUE; DisplayError( this, _( "Error Init Printer info" ) ); } g_PrintData->SetQuality( wxPRINT_QUALITY_HIGH ); // Default resolution = HIGHT; g_PrintData->SetOrientation( DEFAULT_ORIENTATION_PAPER ); } pos.x += 10; pos.y += 10; WinEDA_PrintFrame* frame = new WinEDA_PrintFrame( this ); frame->ShowModal(); frame->Destroy(); } /*******************************************/ void WinEDA_PrintFrame::SetOthersDatas() /*******************************************/ { #ifndef PCBNEW m_Print_Mirror->Enable( false ); #endif #if defined (PCBNEW) wxConfig* config = m_Parent->m_Parent->m_EDA_Config; // Current config used by application #endif m_FineAdjustXscaleOpt->SetToolTip( _( "Set X scale adjust for exact scale plotting" ) ); m_FineAdjustYscaleOpt->SetToolTip( _( "Set Y scale adjust for exact scale plotting" ) ); if( s_Print_Black_and_White ) m_ColorOption->SetSelection( 1 ); #ifdef PCBNEW m_PagesOptionEeschema->Show( false ); m_PagesOption = m_PagesOptionPcb; /* Create layer list */ int mask = 1, ii; for( ii = 0; ii < NB_LAYERS; ii++, mask <<= 1 ) { m_BoxSelecLayer[ii] = new wxCheckBox( this, -1, #if defined (PCBNEW) ( (WinEDA_PcbFrame*) m_Parent )->m_Pcb->GetLayerName( ii ) ); #else ReturnLayerName( ii ) ); #endif if( mask & s_SelectedLayers ) m_BoxSelecLayer[ii]->SetValue( TRUE ); if( ii < 16 ) m_CopperLayersBoxSizer->Add( m_BoxSelecLayer[ii], wxGROW | wxLEFT | wxRIGHT | wxTOP | wxADJUST_MINSIZE ); else m_TechLayersBoxSizer->Add( m_BoxSelecLayer[ii], wxGROW | wxLEFT | wxRIGHT | wxTOP | wxADJUST_MINSIZE ); } // Option for excluding contents of "Edges Pcb" layer #ifndef GERBVIEW m_Exclude_Edges_Pcb->Show( true ); #endif // Read the scale adjust option if( config ) { config->Read( OPTKEY_PRINT_X_FINESCALE_ADJ, &m_XScaleAdjust ); config->Read( OPTKEY_PRINT_Y_FINESCALE_ADJ, &m_YScaleAdjust ); config->Read( OPTKEY_PRINT_SCALE, &s_Scale_Select ); s_SelectedLayers = 0; for( int layer = 0; layerRead( layerKey, &option ) ) { m_BoxSelecLayer[layer]->SetValue( option ); if( option ) s_SelectedLayers |= 1 << layer; } } } m_ScaleOption->SetSelection( s_Scale_Select ); // Create scale adjust option wxString msg; msg.Printf( wxT( "%lf" ), m_XScaleAdjust ); m_FineAdjustXscaleOpt->SetValue( msg ); msg.Printf( wxT( "%lf" ), m_YScaleAdjust ); m_FineAdjustYscaleOpt->SetValue( msg ); #else m_PagesOption = m_PagesOptionEeschema; m_PagesOptionPcb->Show( false ); m_ScaleOption->Show( false ); m_FineAdjustXscaleTitle->Show( false ); m_FineAdjustXscaleOpt->Show( false ); m_FineAdjustYscaleTitle->Show( false ); m_FineAdjustYscaleOpt->Show( false ); #endif } /**********************************************************/ int WinEDA_PrintFrame::SetLayerMaskFromListSelection() /**********************************************************/ { int page_count; s_PrintMaskLayer = 0; #ifdef PCBNEW int ii; for( ii = 0, page_count = 0; ii < NB_LAYERS; ii++ ) { if( m_BoxSelecLayer[ii]->IsChecked() ) { page_count++; s_PrintMaskLayer |= 1 << ii; } } #else page_count = 1; #endif return page_count; } /************************************************************/ void WinEDA_PrintFrame::SetColorOrBlack( wxCommandEvent& event ) /************************************************************/ { s_Print_Black_and_White = m_ColorOption->GetSelection(); } /****************************************************/ void WinEDA_PrintFrame::OnClosePrintDialog() /****************************************************/ /* called when WinEDA_PrintFrame is closed */ { wxConfig* Config = m_Parent->m_Parent->m_EDA_Config; if( Config ) { Config->Write( wxT( "PrintPenWidth" ), s_PrintPenMinWidth ); } if( m_FineAdjustXscaleOpt ) m_FineAdjustXscaleOpt->GetValue().ToDouble( &m_XScaleAdjust ); if( m_FineAdjustYscaleOpt ) m_FineAdjustYscaleOpt->GetValue().ToDouble( &m_YScaleAdjust ); SetPenWidth(); #ifdef PCBNEW if( Config ) { Config->Write( OPTKEY_PRINT_X_FINESCALE_ADJ, m_XScaleAdjust ); Config->Write( OPTKEY_PRINT_Y_FINESCALE_ADJ, m_YScaleAdjust ); Config->Write( OPTKEY_PRINT_SCALE, s_Scale_Select ); wxString layerKey; for( int layer = 0; layerWrite( layerKey, m_BoxSelecLayer[layer]->IsChecked() ); } } #endif EndModal( 0 ); } /************************************************/ wxString WinEDA_PrintFrame::BuildPrintTitle() /************************************************/ /* return a valid filename to create a print file */ { wxString name, ext; wxFileName::SplitPath( m_Parent->GetBaseScreen()->m_FileName, (wxString*) NULL, &name, &ext ); name += wxT( "-" ) + ext; return name; } /******************************************************/ void WinEDA_PrintFrame::SetScale( wxCommandEvent& event ) /******************************************************/ { #ifdef PCBNEW s_Scale_Select = m_ScaleOption->GetSelection(); Scale_X = Scale_Y = s_ScaleList[s_Scale_Select]; if( m_FineAdjustXscaleOpt ) m_FineAdjustXscaleOpt->GetValue().ToDouble( &m_XScaleAdjust ); if( m_FineAdjustYscaleOpt ) m_FineAdjustYscaleOpt->GetValue().ToDouble( &m_YScaleAdjust ); Scale_X *= m_XScaleAdjust; Scale_Y *= m_YScaleAdjust; #endif } /****************************************/ void WinEDA_PrintFrame::SetPenWidth() /****************************************/ /* Get the new pen width value, and verify min et max value * NOTE: s_PrintPenMinWidth is in internal units */ { s_PrintPenMinWidth = m_DialogPenWidth->GetValue(); if( s_PrintPenMinWidth > WIDTH_MAX_VALUE ) { s_PrintPenMinWidth = WIDTH_MAX_VALUE; } if( s_PrintPenMinWidth < WIDTH_MIN_VALUE ) { s_PrintPenMinWidth = WIDTH_MIN_VALUE; } m_DialogPenWidth->SetValue( s_PrintPenMinWidth ); } /**********************************************************/ void WinEDA_PrintFrame::OnPrintSetup( wxCommandEvent& event ) /**********************************************************/ /* Open a dialog box for printer setup (printer options, page size ...) */ { wxPrintDialogData printDialogData( *g_PrintData ); if( printDialogData.Ok() ) { wxPrintDialog printerDialog( this, &printDialogData ); printerDialog.ShowModal(); *g_PrintData = printerDialog.GetPrintDialogData().GetPrintData(); } else DisplayError( this, _( "Printer Problem!" ) ); } /************************************************************/ void WinEDA_PrintFrame::OnPrintPreview( wxCommandEvent& event ) /************************************************************/ /* Open and display a previewer frame for printing */ { wxSize WSize; wxPoint WPos; int x, y; bool print_ref = TRUE; SetScale( event ); SetPenWidth(); if( m_PagesOption ) s_OptionPrintPage = m_PagesOption->GetSelection(); if( (m_Print_Sheet_Ref == NULL) || (m_Print_Sheet_Ref->GetValue() == FALSE) ) print_ref = FALSE; // Pass two printout objects: for preview, and possible printing. wxString title = BuildPrintTitle(); wxPrintPreview* preview = new wxPrintPreview( new EDA_Printout( this, m_Parent, title, print_ref ), new EDA_Printout( this, m_Parent, title, print_ref ), g_PrintData ); if( preview == NULL ) { DisplayError( this, _( "There was a problem previewing" ) ); return; } #ifdef PCBNEW if( s_OptionPrintPage ) SetLayerMaskFromListSelection(); #endif m_Parent->GetPosition( &x, &y ); WPos.x = x + 4; WPos.y = y + 25; WSize = m_Parent->GetSize(); WSize.x -= 3; WSize.y += 6; wxPreviewFrame* frame = new wxPreviewFrame( preview, this, title, WPos, WSize ); frame->Initialize(); frame->Show( TRUE ); } /**********************************************************/ void WinEDA_PrintFrame::EDA_PrintPage( wxCommandEvent& event ) /**********************************************************/ /* Called on activate "Print CURRENT" button */ { bool print_ref = TRUE; SetScale( event ); s_OptionPrintPage = 0; if( m_PagesOption ) s_OptionPrintPage = m_PagesOption->GetSelection(); if( (m_Print_Sheet_Ref == NULL) || (m_Print_Sheet_Ref->GetValue() == FALSE) ) print_ref = FALSE; #ifdef PCBNEW if( s_OptionPrintPage ) SetLayerMaskFromListSelection(); #endif SetPenWidth(); wxPrintDialogData printDialogData( *g_PrintData ); wxPrinter printer( &printDialogData ); wxString title = BuildPrintTitle(); EDA_Printout printout( this, m_Parent, title, print_ref ); #ifndef __WINDOWS__ wxDC* dc = printout.GetDC(); ( (wxPostScriptDC*) dc )->SetResolution( 600 ); // Postscript DC resolution is 600 ppi #endif if( !printer.Print( this, &printout, TRUE ) ) { if( wxPrinter::GetLastError() == wxPRINTER_ERROR ) DisplayError( this, _( "There was a problem printing" ) ); return; } else { *g_PrintData = printer.GetPrintDialogData().GetPrintData(); } } /***************************************/ bool EDA_Printout::OnPrintPage( int page ) /***************************************/ { wxString msg; msg.Printf( _( "Print page %d" ), page ); m_Parent->Affiche_Message( msg ); #ifdef EESCHEMA BASE_SCREEN* screen = m_Parent->GetBaseScreen(); BASE_SCREEN* oldscreen = screen; if( s_OptionPrintPage == 1 ) { EDA_ScreenList ScreenList; screen = ScreenList.GetScreen( page - 1 ); } if( screen == NULL ) return FALSE; ActiveScreen = (SCH_SCREEN*) screen; DrawPage(); ActiveScreen = (SCH_SCREEN*) oldscreen; #endif #ifdef PCBNEW if( (m_Parent->m_Ident == PCB_FRAME) || (m_Parent->m_Ident == GERBER_FRAME) ) { m_PrintFrame->SetLayerMaskFromListSelection(); if( s_OptionPrintPage == 0 ) { // compute layer mask from page number int ii, jj, mask = 1; for( ii = 0, jj = 0; ii < NB_LAYERS; ii++ ) { if( s_PrintMaskLayer & mask ) jj++; if( jj == page ) { s_PrintMaskLayer = mask; break; } mask <<= 1; } if( ii == NB_LAYERS ) return FALSE; } } DrawPage(); #endif return TRUE; } /*********************************************************/ void EDA_Printout::GetPageInfo( int* minPage, int* maxPage, int* selPageFrom, int* selPageTo ) /*********************************************************/ { int ii = 1; *minPage = 1; *selPageFrom = 1; #ifdef EESCHEMA if( s_OptionPrintPage == 1 ) { EDA_ScreenList ScreenList; ii = ScreenList.GetCount(); } #endif #ifdef PCBNEW switch( s_OptionPrintPage ) { case 0: ii = m_PrintFrame->SetLayerMaskFromListSelection(); break; case 1: ii = 1; break; } #endif *maxPage = ii; *selPageTo = ii; } /**************************************/ bool EDA_Printout::HasPage( int pageNum ) /**************************************/ { #ifdef EESCHEMA int PageCount; EDA_ScreenList ScreenList; PageCount = ScreenList.GetCount(); if( PageCount >= pageNum ) return TRUE; return FALSE; #endif #ifdef PCBNEW return TRUE; #endif } /*************************************************************/ bool EDA_Printout::OnBeginDocument( int startPage, int endPage ) /*************************************************************/ { if( !wxPrintout::OnBeginDocument( startPage, endPage ) ) return FALSE; return TRUE; } /********************************/ void EDA_Printout::DrawPage() /********************************/ /* * This is the real print function: print the active screen */ { int tmpzoom; wxPoint tmp_startvisu; wxSize PageSize_in_mm; wxSize SheetSize; // Page size in internal units wxSize PlotAreaSize; // plot area size in pixels double scaleX, scaleY, scale; wxPoint old_org; wxPoint DrawOffset; // Offset de trace double userscale; int DrawZoom = 1; wxDC* dc = GetDC(); s_PrintMirror = m_PrintFrame->m_Print_Mirror->GetValue(); wxBusyCursor dummy; GetPageSizeMM( &PageSize_in_mm.x, &PageSize_in_mm.y ); /* Save old draw scale and draw offset */ tmp_startvisu = ActiveScreen->m_StartVisu; tmpzoom = ActiveScreen->GetZoom(); old_org = ActiveScreen->m_DrawOrg; /* Change draw scale and offset to draw the whole page */ ActiveScreen->SetZoom( DrawZoom ); ActiveScreen->m_DrawOrg.x = ActiveScreen->m_DrawOrg.y = 0; ActiveScreen->m_StartVisu.x = ActiveScreen->m_StartVisu.y = 0; SheetSize = ActiveScreen->m_CurrentSheetDesc->m_Size; // size in 1/1000 inch SheetSize.x *= m_Parent->m_InternalUnits / 1000; SheetSize.y *= m_Parent->m_InternalUnits / 1000; // size in pixels // Get the size of the DC in pixels dc->GetSize( &PlotAreaSize.x, &PlotAreaSize.y ); #ifdef PCBNEW WinEDA_BasePcbFrame* pcbframe = (WinEDA_BasePcbFrame*) m_Parent; pcbframe->m_Pcb->ComputeBoundaryBox(); /* Compute the PCB size in internal units*/ userscale = s_ScaleList[s_Scale_Select]; if( userscale == 0 ) // fit in page { int extra_margin = 8000; // Margin = 8000/2 units pcb = 0,4 inch SheetSize.x = pcbframe->m_Pcb->m_BoundaryBox.GetWidth() + extra_margin; SheetSize.y = pcbframe->m_Pcb->m_BoundaryBox.GetHeight() + extra_margin; userscale = 0.99; } if( (s_ScaleList[s_Scale_Select] > 1.0) // scale > 1 -> Recadrage || (s_ScaleList[s_Scale_Select] == 0) ) // fit in page { DrawOffset.x += pcbframe->m_Pcb->m_BoundaryBox.Centre().x; DrawOffset.y += pcbframe->m_Pcb->m_BoundaryBox.Centre().y; } #else userscale = 1; #endif // Calculate a suitable scaling factor scaleX = (double) SheetSize.x / PlotAreaSize.x; scaleY = (double) SheetSize.y / PlotAreaSize.y; scale = wxMax( scaleX, scaleY ) / userscale; // Use x or y scaling factor, whichever fits on the DC // ajust the real draw scale #ifdef PCBNEW double accurate_Xscale, accurate_Yscale; dc->SetUserScale( DrawZoom / scale * m_PrintFrame->m_XScaleAdjust, DrawZoom / scale * m_PrintFrame->m_YScaleAdjust ); // Compute Accurate scale 1 { int w, h; GetPPIPrinter( &w, &h ); accurate_Xscale = ( (double) (DrawZoom * w) ) / PCB_INTERNAL_UNIT; accurate_Yscale = ( (double) (DrawZoom * h) ) / PCB_INTERNAL_UNIT; if( IsPreview() ) // Scale must take in account the DC size in Preview { // Get the size of the DC in pixels dc->GetSize( &PlotAreaSize.x, &PlotAreaSize.y ); GetPageSizePixels( &w, &h ); accurate_Xscale *= PlotAreaSize.x; accurate_Xscale /= w; accurate_Yscale *= PlotAreaSize.y; accurate_Yscale /= h; } accurate_Xscale *= m_PrintFrame->m_XScaleAdjust; accurate_Yscale *= m_PrintFrame->m_YScaleAdjust; } #else dc->SetUserScale( DrawZoom / scale, DrawZoom / scale ); #endif #ifdef PCBNEW if( (s_ScaleList[s_Scale_Select] > 1.0) // scale > 1 -> Recadrage || (s_ScaleList[s_Scale_Select] == 0) ) // fit in page { DrawOffset.x -= (int) ( (PlotAreaSize.x / 2) * scale ); DrawOffset.y -= (int) ( (PlotAreaSize.y / 3) * scale ); } DrawOffset.x += (int) ( (SheetSize.x / 2) * (m_PrintFrame->m_XScaleAdjust - 1.0) ); DrawOffset.y += (int) ( (SheetSize.y / 2) * (m_PrintFrame->m_YScaleAdjust - 1.0) ); #endif ActiveScreen->m_DrawOrg = DrawOffset; GRResetPenAndBrush( dc ); if( s_Print_Black_and_White ) GRForceBlackPen( TRUE ); #ifdef EESCHEMA /* set Pen min width */ double ftmp, xdcscale, ydcscale; // s_PrintPenMinWidth is in internal units ( 1/1000 inch), and must be converted in pixels ftmp = (float) s_PrintPenMinWidth * 25.4 / EESCHEMA_INTERNAL_UNIT; // ftmp est en mm ftmp *= (float) PlotAreaSize.x / PageSize_in_mm.x; /* ftmp is in pixels */ /* because the pen size will be scaled by the dc scale, we modify the size * in order to keep the requested value */ dc->GetUserScale( &xdcscale, &ydcscale ); ftmp /= xdcscale; SetPenMinWidth( (int) round( ftmp ) ); #else SetPenMinWidth( 1 ); // min width = 1 pixel #endif WinEDA_DrawPanel* panel = m_Parent->DrawPanel; EDA_Rect tmp = panel->m_ClipBox; panel->m_ClipBox.SetOrigin( wxPoint( 0, 0 ) ); panel->m_ClipBox.SetSize( wxSize( 0x7FFFFF0, 0x7FFFFF0 ) ); g_IsPrinting = TRUE; #ifdef PCBNEW if( m_Print_Sheet_Ref ) m_Parent->TraceWorkSheet( dc, ActiveScreen, 0 ); if( userscale == 1.0 ) // Draw the Sheet refs at optimum scale, and board at 1.0 scale { dc->SetUserScale( accurate_Yscale, accurate_Yscale ); } if( s_PrintMirror ) { // To plot mirror, we reverse the y axis, and modify the plot y origin double sx, sy; dc->GetUserScale( &sx, &sy ); dc->SetAxisOrientation( TRUE, TRUE ); if( userscale < 1.0 ) sy /= userscale; /* Plot offset y is moved by the y plot area size in order to have * the old draw area in the new draw area, because the draw origin has not moved * (this is the upper left corner) but the Y axis is reversed, therefore the plotting area * is the y coordinate values from - PlotAreaSize.y to 0 */ int ysize = (int) ( PlotAreaSize.y / sy ); DrawOffset.y += ysize; /* in order to keep the board position in the sheet * (when user scale <= 1) the y offset in moved by the distance between * the middle of the page and the middle of the board * This is equivalent to put the mirror axis to the board centre * for scales > 1, the DrawOffset was already computed to have the board centre * to the middle of the page. */ wxPoint pcb_centre = pcbframe->m_Pcb->m_BoundaryBox.Centre(); if( userscale <= 1.0 ) DrawOffset.y += pcb_centre.y - (ysize / 2); ActiveScreen->m_DrawOrg = DrawOffset; panel->m_ClipBox.SetOrigin( wxPoint( -0x7FFFFF, -0x7FFFFF ) ); } #ifndef GERBVIEW if( !m_PrintFrame->m_Exclude_Edges_Pcb->GetValue() ) s_PrintMaskLayer |= EDGE_LAYER; #endif panel->PrintPage( dc, 0, s_PrintMaskLayer ); #else panel->PrintPage( dc, m_Print_Sheet_Ref, s_PrintMaskLayer ); #endif g_IsPrinting = FALSE; panel->m_ClipBox = tmp; SetPenMinWidth( 1 ); GRForceBlackPen( FALSE ); ActiveScreen->m_StartVisu = tmp_startvisu; ActiveScreen->m_DrawOrg = old_org; ActiveScreen->SetZoom( tmpzoom ); }