QBasic & Borland Pascal & C/Delphi5.iso/C/BC_502/APPEXPRT.PAK/APXPRINT.CPP

C/C++ Source or Header | 1997-05-06 | 5.7 KB | 179 lines

//----------------------------------------------------------------------------
##@QUERY_PRJ_NAME [[Project]]
//  Project [[Project]]
##@QUERY_PRJ_COMPANY [[CompanyName]] 2
##@QUERY_PRJ_COPYRIGHT [[Copyright]] 2
##\\Copyright Copyright 2
//  [[CompanyName]]
//  [[Copyright]]
//
##@QUERY_TARGET_NAME [[Target]]
//  SUBSYSTEM:    [[Target]] Application
//  FILE:         apxprint.cpp
##@QUERY_PRJ_USER [[Author]]
//  AUTHOR:       [[Author]]
//
//  OVERVIEW
//  ~~~~~~~~
//  Source file for implementation of Printing.
//
//----------------------------------------------------------------------------
#include <owl/pch.h>
#include "apxprint.h"


void TApxPrintout::GetDialogInfo(int& minPage, int& maxPage,
                                 int& selFromPage, int& selToPage)
{
##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Calculate the total number of pages in the document. TotalPages is
  // initialized in INT_MAX in the event that we cannot determine the
  // number for ourselves.
  //
  TPrintDC* printDC = new TPrintDC( Printer->GetSetup().GetDriverName(),
                                    Printer->GetSetup().GetDeviceName(),
                                    Printer->GetSetup().GetOutputName(),
                                    Printer->GetSetup().GetDevMode() );

  TEditFile* efWindow = TYPESAFE_DOWNCAST( Window, TEditFile );

  if( printDC && efWindow )  {
    TSize pageSize( printDC->GetDeviceCaps(HORZRES),
                    printDC->GetDeviceCaps(VERTRES) );

    TEXTMETRIC tm;
    printDC->GetTextMetrics( tm );
    int TextHeight = tm.tmHeight + tm.tmInternalLeading;

    int LinesPerPage = pageSize.cy / TextHeight;
    int TotalLines = efWindow->GetNumLines();
    TotalPages = TotalLines / LinesPerPage + 1; //Add one to account for any roundoff.
    if(TotalPages <= 0)
    TotalPages = 1;
  }

  delete printDC;

  minPage = 1;
  maxPage = TotalPages;
  selFromPage = 0;
  selToPage = 0;
}



void TApxPrintout::BeginPage(TRect& clientR)
{
  TScreenDC screenDC;
  TSize screenRes(screenDC.GetDeviceCaps(LOGPIXELSX),
          screenDC.GetDeviceCaps(LOGPIXELSY));
  TSize printRes(DC->GetDeviceCaps(LOGPIXELSX),
           DC->GetDeviceCaps(LOGPIXELSY));

##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  // Temporarily change the window size (so any WM_PAINT queries on the total window size (GetClientRect) is
  // the window size for the WM_PAINT of the window and the printer page size when Paint is called from
  // PrintPage. Notice, we don't use AdjustWindowRect because its harder and not accurate.  Instead we
  // compute the difference (in pixels) between the client window and the frame window.  This difference
  // is then added to the clientRect to compute the new frame window size for SetWindowPos.
  //
##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  clientR = Window->GetClientRect();
  Window->MapWindowPoints(HWND_DESKTOP, (TPoint*)&clientR, 2);

##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Compute extra X and Y pixels to bring a client window dimensions to equal the frame window.
  //
  OrgR = Window->GetWindowRect();
  int adjX = OrgR.Width() - clientR.Width();
  int adjY = OrgR.Height() - clientR.Height();

##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Conditionally scale the DC to the window so the printout will resemble the window.
  //
  if (Scale) {
    clientR = Window->GetClientRect();
    PrevMode = DC->SetMapMode(MapMode);
    DC->SetViewportExt(PageSize, &OldVExt);

##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
    // Scale window to logical page size (assumes left & top are 0)
    //
    clientR.right = MulDiv(PageSize.cx, screenRes.cx, printRes.cx);
    clientR.bottom = MulDiv(PageSize.cy, screenRes.cy, printRes.cy);

    DC->SetWindowExt(clientR.Size(), &OldWExt);
  }

##@QUERY_APPL_COMMENT == VALUE_VERBOSE 4
  // Compute the new size of the window based on the printer DC dimensions.
  // Resize the window, notice position, order, and redraw are not done the window size changes but the user
  // doesn't see any visible change to the window.
  //
  Window->SetRedraw(false);
  Window->SetWindowPos(0, 0, 0, clientR.Width() + adjX, clientR.Height() + adjY,
                       SWP_NOMOVE | SWP_NOREDRAW | SWP_NOZORDER| SWP_NOACTIVATE);
}


void TApxPrintout::PrintPage(int page, TRect& bandRect, unsigned)
{
  TRect clientR;

  BeginPage(clientR);

  if (Scale)
    DC->DPtoLP(bandRect, 2);

##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Change the printer range to this current page.
  //
  TPrintDialog::TData& printerData = Printer->GetSetup();
  int fromPg = printerData.FromPage;
  int toPg = printerData.ToPage;

  printerData.FromPage = page;
  printerData.ToPage = page;

##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Call the window to paint itself to the printer DC.
  //
  Window->Paint(*DC, false, bandRect);

  printerData.FromPage = fromPg;
  printerData.ToPage = toPg;

  if (Scale)
    DC->LPtoDP(bandRect, 2);

  EndPage();
}


void TApxPrintout::EndPage()
{
##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Resize to original window size, no one's the wiser.
  //
  Window->SetWindowPos(0, 0, 0, OrgR.Width(), OrgR.Height(),
               SWP_NOMOVE | SWP_NOREDRAW | SWP_NOZORDER| SWP_NOACTIVATE);
  Window->SetRedraw(true);

##:@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  // Restore changes made to the DC
  //
  if (Scale) {
    DC->SetWindowExt(OldWExt);
    DC->SetViewportExt(OldVExt);
    DC->SetMapMode(PrevMode);
  }
}


bool TApxPrintout::HasPage(int pageNumber)
{
  TPrintDialog::TData& printerData = Printer->GetSetup();

  return pageNumber >= printerData.MinPage && pageNumber <= printerData.MaxPage;
}