]> git.saurik.com Git - wxWidgets.git/blame - samples/printing/printing.cpp
Added compile-time check to be sure that wxUSE_ODBC is set to 1 before attempting...
[wxWidgets.git] / samples / printing / printing.cpp
CommitLineData
6adaedf0
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: printing.cpp
3// Purpose: Printing demo for wxWindows
4// Author: Julian Smart
5// Modified by:
6// Created: 1995
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
c801d85f
KB
11
12#ifdef __GNUG__
13#pragma implementation
14#endif
15
16// For compilers that support precompilation, includes "wx/wx.h".
17#include "wx/wxprec.h"
18
19#ifdef __BORLANDC__
20#pragma hdrstop
21#endif
22
23#ifndef WX_PRECOMP
24#include "wx/wx.h"
c801d85f
KB
25#endif
26
e4b19d9b 27#if !wxUSE_PRINTING_ARCHITECTURE
ad813b00 28#error You must set wxUSE_PRINTING_ARCHITECTURE to 1 in setup.h to compile this demo.
c801d85f
KB
29#endif
30
dfad0599
JS
31// Set this to 1 if you want to test PostScript printing under MSW.
32// However, you'll also need to edit src/msw/makefile.nt.
33#define wxTEST_POSTSCRIPT_IN_MSW 0
34
c801d85f
KB
35#include <ctype.h>
36#include "wx/metafile.h"
37#include "wx/print.h"
38#include "wx/printdlg.h"
dfad0599 39
031b2a7b
RR
40#include "wx/accel.h"
41
dfad0599 42#if wxTEST_POSTSCRIPT_IN_MSW
c801d85f
KB
43#include "wx/generic/printps.h"
44#include "wx/generic/prntdlgg.h"
dfad0599 45#endif
c801d85f
KB
46
47#include "printing.h"
48
4bc67cc5
RR
49#ifndef __WXMSW__
50#include "mondrian.xpm"
51#endif
52
c801d85f 53// Declare a frame
c67daf87 54MyFrame *frame = (MyFrame *) NULL;
7bcb11d3
JS
55// int orientation = wxPORTRAIT;
56
57// Global print data, to remember settings during the session
58wxPrintData *g_printData = (wxPrintData*) NULL ;
59
60// Global page setup data
61wxPageSetupData* g_pageSetupData = (wxPageSetupData*) NULL;
c801d85f
KB
62
63// Main proc
64IMPLEMENT_APP(MyApp)
65
c801d85f
KB
66// Writes a header on a page. Margin units are in millimetres.
67bool WritePageHeader(wxPrintout *printout, wxDC *dc, char *text, float mmToLogical);
68
69MyApp::MyApp()
70{
71}
72
73// The `main program' equivalent, creating the windows and returning the
74// main frame
75bool MyApp::OnInit(void)
76{
7bcb11d3
JS
77 m_testFont = new wxFont(10, wxSWISS, wxNORMAL, wxNORMAL);
78
79 g_printData = new wxPrintData;
80 g_pageSetupData = new wxPageSetupDialogData;
c801d85f 81
7bcb11d3
JS
82 // Compatibility with old system. In fact, we might keep wxThePrintSetupData
83 // just for useful default values which we can optionally assign to our
84 // own print data object.
c801d85f 85
7bcb11d3
JS
86#if defined(__WXGTK__) || defined(__WXMOTIF__)
87 (*g_printData) = * wxThePrintSetupData;
88#endif
89
90 // Create the main frame window
91 frame = new MyFrame((wxFrame *) NULL, (char *) "wxWindows Printing Demo", wxPoint(0, 0), wxSize(400, 400));
92
93 // Give it a status line
94 frame->CreateStatusBar(2);
95
96 // Load icon and bitmap
97 frame->SetIcon( wxICON( mondrian) );
98
99 // Make a menubar
100 wxMenu *file_menu = new wxMenu;
101
102 file_menu->Append(WXPRINT_PRINT, "&Print...", "Print");
103 file_menu->Append(WXPRINT_PRINT_SETUP, "Print &Setup...", "Setup printer properties");
104 file_menu->Append(WXPRINT_PAGE_SETUP, "Page Set&up...", "Page setup");
105 file_menu->Append(WXPRINT_PREVIEW, "Print Pre&view", "Preview");
106
3d2d8da1 107#if wxUSE_ACCEL
031b2a7b
RR
108 // Accelerators
109 wxAcceleratorEntry entries[1];
110 entries[0].Set(wxACCEL_CTRL, (int) 'V', WXPRINT_PREVIEW);
111 wxAcceleratorTable accel(1, entries);
112 frame->SetAcceleratorTable(accel);
3d2d8da1
RR
113#endif
114
dfad0599 115#if defined(__WXMSW__) && wxTEST_POSTSCRIPT_IN_MSW
7bcb11d3
JS
116 file_menu->AppendSeparator();
117 file_menu->Append(WXPRINT_PRINT_PS, "Print PostScript...", "Print (PostScript)");
118 file_menu->Append(WXPRINT_PRINT_SETUP_PS, "Print Setup PostScript...", "Setup printer properties (PostScript)");
119 file_menu->Append(WXPRINT_PAGE_SETUP_PS, "Page Setup PostScript...", "Page setup (PostScript)");
120 file_menu->Append(WXPRINT_PREVIEW_PS, "Print Preview PostScript", "Preview (PostScript)");
c801d85f 121#endif
7bcb11d3
JS
122 file_menu->AppendSeparator();
123 file_menu->Append(WXPRINT_QUIT, "E&xit", "Exit program");
124
125 wxMenu *help_menu = new wxMenu;
126 help_menu->Append(WXPRINT_ABOUT, "&About", "About this demo");
127
128 wxMenuBar *menu_bar = new wxMenuBar;
129
130 menu_bar->Append(file_menu, "&File");
131 menu_bar->Append(help_menu, "&Help");
132
133 // Associate the menu bar with the frame
134 frame->SetMenuBar(menu_bar);
135
136 MyCanvas *canvas = new MyCanvas(frame, wxPoint(0, 0), wxSize(100, 100), wxRETAINED|wxHSCROLL|wxVSCROLL);
137
138 // Give it scrollbars: the virtual canvas is 20 * 50 = 1000 pixels in each direction
139 canvas->SetScrollbars(20, 20, 50, 50);
140
141 frame->canvas = canvas;
142
143 frame->Centre(wxBOTH);
144 frame->Show(TRUE);
145
146 frame->SetStatusText("Printing demo");
147
148 SetTopWindow(frame);
149
150 return TRUE;
c801d85f
KB
151}
152
e3065973
JS
153int MyApp::OnExit()
154{
7bcb11d3
JS
155 delete wxGetApp().m_testFont;
156 delete g_printData;
157 delete g_pageSetupData;
158 return 1;
e3065973
JS
159}
160
c801d85f 161BEGIN_EVENT_TABLE(MyFrame, wxFrame)
7bcb11d3
JS
162EVT_MENU(WXPRINT_QUIT, MyFrame::OnExit)
163EVT_MENU(WXPRINT_PRINT, MyFrame::OnPrint)
164EVT_MENU(WXPRINT_PREVIEW, MyFrame::OnPrintPreview)
165EVT_MENU(WXPRINT_PRINT_SETUP, MyFrame::OnPrintSetup)
166EVT_MENU(WXPRINT_PAGE_SETUP, MyFrame::OnPageSetup)
167EVT_MENU(WXPRINT_ABOUT, MyFrame::OnPrintAbout)
dfad0599 168#if defined(__WXMSW__) && wxTEST_POSTSCRIPT_IN_MSW
7bcb11d3
JS
169EVT_MENU(WXPRINT_PRINT_PS, MyFrame::OnPrintPS)
170EVT_MENU(WXPRINT_PREVIEW_PS, MyFrame::OnPrintPreviewPS)
171EVT_MENU(WXPRINT_PRINT_SETUP_PS, MyFrame::OnPrintSetupPS)
172EVT_MENU(WXPRINT_PAGE_SETUP_PS, MyFrame::OnPageSetupPS)
dfad0599 173#endif
c801d85f
KB
174END_EVENT_TABLE()
175
176// Define my frame constructor
177MyFrame::MyFrame(wxFrame *frame, const wxString& title, const wxPoint& pos, const wxSize& size):
7bcb11d3 178wxFrame(frame, -1, title, pos, size)
c801d85f 179{
7bcb11d3 180 canvas = (MyCanvas *) NULL;
c801d85f
KB
181}
182
e3e65dac 183void MyFrame::OnExit(wxCommandEvent& WXUNUSED(event))
c801d85f 184{
7bcb11d3 185 Close(TRUE);
c801d85f
KB
186}
187
e3e65dac 188void MyFrame::OnPrint(wxCommandEvent& WXUNUSED(event))
c801d85f 189{
7bcb11d3
JS
190 wxPrintDialogData printDialogData(* g_printData);
191
192 wxPrinter printer(& printDialogData);
193 MyPrintout printout("My printout");
194 if (!printer.Print(this, &printout, TRUE))
f6bcfd97
BP
195 {
196 if (wxPrinter::GetLastError() == wxPRINTER_ERROR)
197 wxMessageBox("There was a problem printing.\nPerhaps your current printer is not set correctly?", "Printing", wxOK);
198 else
199 wxMessageBox("You canceled printing", "Printing", wxOK);
200 }
7bcb11d3
JS
201 else
202 {
203 (*g_printData) = printer.GetPrintDialogData().GetPrintData();
204 }
c801d85f
KB
205}
206
e3e65dac 207void MyFrame::OnPrintPreview(wxCommandEvent& WXUNUSED(event))
c801d85f 208{
7bcb11d3
JS
209 // Pass two printout objects: for preview, and possible printing.
210 wxPrintDialogData printDialogData(* g_printData);
211 wxPrintPreview *preview = new wxPrintPreview(new MyPrintout, new MyPrintout, & printDialogData);
212 if (!preview->Ok())
213 {
c801d85f
KB
214 delete preview;
215 wxMessageBox("There was a problem previewing.\nPerhaps your current printer is not set correctly?", "Previewing", wxOK);
216 return;
7bcb11d3
JS
217 }
218
219 wxPreviewFrame *frame = new wxPreviewFrame(preview, this, "Demo Print Preview", wxPoint(100, 100), wxSize(600, 650));
220 frame->Centre(wxBOTH);
221 frame->Initialize();
222 frame->Show(TRUE);
c801d85f
KB
223}
224
e3e65dac 225void MyFrame::OnPrintSetup(wxCommandEvent& WXUNUSED(event))
c801d85f 226{
7bcb11d3
JS
227 wxPrintDialogData printDialogData(* g_printData);
228 wxPrintDialog printerDialog(this, & printDialogData);
229
230 printerDialog.GetPrintDialogData().SetSetupDialog(TRUE);
231 printerDialog.ShowModal();
c801d85f 232
7bcb11d3 233 (*g_printData) = printerDialog.GetPrintDialogData().GetPrintData();
c801d85f
KB
234}
235
e3e65dac 236void MyFrame::OnPageSetup(wxCommandEvent& WXUNUSED(event))
c801d85f 237{
7bcb11d3 238 (*g_pageSetupData) = * g_printData;
c801d85f 239
7bcb11d3
JS
240 wxPageSetupDialog pageSetupDialog(this, g_pageSetupData);
241 pageSetupDialog.ShowModal();
242
243 (*g_printData) = pageSetupDialog.GetPageSetupData().GetPrintData();
244 (*g_pageSetupData) = pageSetupDialog.GetPageSetupData();
c801d85f
KB
245}
246
dfad0599
JS
247#if defined(__WXMSW__) && wxTEST_POSTSCRIPT_IN_MSW
248void MyFrame::OnPrintPS(wxCommandEvent& WXUNUSED(event))
249{
7bcb11d3
JS
250 wxPostScriptPrinter printer(g_printData);
251 MyPrintout printout("My printout");
252 printer.Print(this, &printout, TRUE);
253
254 (*g_printData) = printer.GetPrintData();
dfad0599
JS
255}
256
257void MyFrame::OnPrintPreviewPS(wxCommandEvent& WXUNUSED(event))
258{
7bcb11d3
JS
259 // Pass two printout objects: for preview, and possible printing.
260 wxPrintDialogData printDialogData(* g_printData);
261 wxPrintPreview *preview = new wxPrintPreview(new MyPrintout, new MyPrintout, & printDialogData);
262 wxPreviewFrame *frame = new wxPreviewFrame(preview, this, "Demo Print Preview", wxPoint(100, 100), wxSize(600, 650));
263 frame->Centre(wxBOTH);
264 frame->Initialize();
265 frame->Show(TRUE);
dfad0599
JS
266}
267
e3e65dac 268void MyFrame::OnPrintSetupPS(wxCommandEvent& WXUNUSED(event))
c801d85f 269{
7bcb11d3
JS
270 wxPrintDialogData printDialogData(* g_printData);
271 wxGenericPrintDialog printerDialog(this, & printDialogData);
c801d85f 272
7bcb11d3
JS
273 printerDialog.GetPrintDialogData().SetSetupDialog(TRUE);
274 printerDialog.ShowModal();
c801d85f 275
7bcb11d3 276 (*g_printData) = printerDialog.GetPrintDialogData().GetPrintData();
c801d85f
KB
277}
278
e3e65dac 279void MyFrame::OnPageSetupPS(wxCommandEvent& WXUNUSED(event))
c801d85f 280{
7bcb11d3 281 (*g_pageSetupData) = * g_printData;
c801d85f 282
7bcb11d3
JS
283 wxGenericPageSetupDialog pageSetupDialog(this, g_pageSetupData);
284 pageSetupDialog.ShowModal();
c801d85f 285
7bcb11d3
JS
286 (*g_printData) = pageSetupDialog.GetPageSetupData().GetPrintData();
287 (*g_pageSetupData) = pageSetupDialog.GetPageSetupData();
c801d85f 288}
dfad0599
JS
289#endif
290
c801d85f 291
e3e65dac 292void MyFrame::OnPrintAbout(wxCommandEvent& WXUNUSED(event))
c801d85f 293{
7bcb11d3
JS
294 (void)wxMessageBox("wxWindows printing demo\nAuthor: Julian Smart julian.smart@ukonline.co.uk",
295 "About wxWindows printing demo", wxOK|wxCENTRE);
c801d85f
KB
296}
297
298void MyFrame::Draw(wxDC& dc)
299{
6adaedf0
JS
300 dc.SetBackground(*wxWHITE_BRUSH);
301 dc.Clear();
7bcb11d3
JS
302 dc.SetFont(* wxGetApp().m_testFont);
303
304 dc.SetBackgroundMode(wxTRANSPARENT);
305
306 dc.SetBrush(* wxCYAN_BRUSH);
307 dc.SetPen(* wxRED_PEN);
308
309 dc.DrawRectangle(0, 30, 200, 100);
310 dc.DrawText("Rectangle 200 by 100", 40, 40);
311
312 dc.DrawEllipse(50, 140, 100, 50);
313
314 dc.DrawText("Test message: this is in 10 point text", 10, 180);
315
316 dc.SetPen(* wxBLACK_PEN);
317 dc.DrawLine(0, 0, 200, 200);
318 dc.DrawLine(200, 0, 0, 200);
319
320 wxIcon my_icon = wxICON(mondrian) ;
321
322 dc.DrawIcon( my_icon, 100, 100);
c801d85f
KB
323}
324
e3e65dac 325void MyFrame::OnSize(wxSizeEvent& event )
c801d85f
KB
326{
327 wxFrame::OnSize(event);
328}
329
330BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
7bcb11d3 331EVT_MOUSE_EVENTS(MyCanvas::OnEvent)
c801d85f
KB
332END_EVENT_TABLE()
333
334// Define a constructor for my canvas
335MyCanvas::MyCanvas(wxFrame *frame, const wxPoint& pos, const wxSize& size, long style):
7bcb11d3 336 wxScrolledWindow(frame, -1, pos, size, style)
c801d85f 337{
7bcb11d3 338 SetBackgroundColour(* wxWHITE);
c801d85f
KB
339}
340
341MyCanvas::~MyCanvas(void)
342{
343}
344
345// Define the repainting behaviour
346void MyCanvas::OnDraw(wxDC& dc)
347{
7bcb11d3 348 frame->Draw(dc);
c801d85f
KB
349}
350
e3e65dac 351void MyCanvas::OnEvent(wxMouseEvent& WXUNUSED(event))
c801d85f
KB
352{
353}
354
c801d85f
KB
355bool MyPrintout::OnPrintPage(int page)
356{
7bcb11d3
JS
357 wxDC *dc = GetDC();
358 if (dc)
359 {
360 if (page == 1)
361 DrawPageOne(dc);
362 else if (page == 2)
363 DrawPageTwo(dc);
364
365 dc->SetDeviceOrigin(0, 0);
366 dc->SetUserScale(1.0, 1.0);
367
368 char buf[200];
369 sprintf(buf, "PAGE %d", page);
370 dc->DrawText(buf, 10, 10);
371
372 return TRUE;
373 }
374 else
375 return FALSE;
c801d85f
KB
376}
377
378bool MyPrintout::OnBeginDocument(int startPage, int endPage)
379{
7bcb11d3
JS
380 if (!wxPrintout::OnBeginDocument(startPage, endPage))
381 return FALSE;
382
383 return TRUE;
c801d85f
KB
384}
385
386void MyPrintout::GetPageInfo(int *minPage, int *maxPage, int *selPageFrom, int *selPageTo)
387{
7bcb11d3
JS
388 *minPage = 1;
389 *maxPage = 2;
390 *selPageFrom = 1;
391 *selPageTo = 2;
c801d85f
KB
392}
393
394bool MyPrintout::HasPage(int pageNum)
395{
7bcb11d3 396 return (pageNum == 1 || pageNum == 2);
c801d85f
KB
397}
398
399void MyPrintout::DrawPageOne(wxDC *dc)
400{
401/* You might use THIS code if you were scaling
7bcb11d3
JS
402* graphics of known size to fit on the page.
403 */
404 int w, h;
405
406 // We know the graphic is 200x200. If we didn't know this,
407 // we'd need to calculate it.
408 float maxX = 200;
409 float maxY = 200;
410
411 // Let's have at least 50 device units margin
412 float marginX = 50;
413 float marginY = 50;
414
415 // Add the margin to the graphic size
416 maxX += (2*marginX);
417 maxY += (2*marginY);
418
419 // Get the size of the DC in pixels
420 dc->GetSize(&w, &h);
421
422 // Calculate a suitable scaling factor
423 float scaleX=(float)(w/maxX);
424 float scaleY=(float)(h/maxY);
425
426 // Use x or y scaling factor, whichever fits on the DC
427 float actualScale = wxMin(scaleX,scaleY);
428
429 // Calculate the position on the DC for centring the graphic
430 float posX = (float)((w - (200*actualScale))/2.0);
431 float posY = (float)((h - (200*actualScale))/2.0);
432
433 // Set the scale and origin
434 dc->SetUserScale(actualScale, actualScale);
435 dc->SetDeviceOrigin( (long)posX, (long)posY );
436
437 frame->Draw(*dc);
c801d85f
KB
438}
439
440void MyPrintout::DrawPageTwo(wxDC *dc)
441{
442/* You might use THIS code to set the printer DC to ROUGHLY reflect
7bcb11d3
JS
443* the screen text size. This page also draws lines of actual length 5cm
444* on the page.
445 */
446 // Get the logical pixels per inch of screen and printer
447 int ppiScreenX, ppiScreenY;
448 GetPPIScreen(&ppiScreenX, &ppiScreenY);
449 int ppiPrinterX, ppiPrinterY;
450 GetPPIPrinter(&ppiPrinterX, &ppiPrinterY);
451
452 // This scales the DC so that the printout roughly represents the
453 // the screen scaling. The text point size _should_ be the right size
454 // but in fact is too small for some reason. This is a detail that will
455 // need to be addressed at some point but can be fudged for the
456 // moment.
457 float scale = (float)((float)ppiPrinterX/(float)ppiScreenX);
458
459 // Now we have to check in case our real page size is reduced
460 // (e.g. because we're drawing to a print preview memory DC)
461 int pageWidth, pageHeight;
462 int w, h;
463 dc->GetSize(&w, &h);
464 GetPageSizePixels(&pageWidth, &pageHeight);
465
466 // If printer pageWidth == current DC width, then this doesn't
467 // change. But w might be the preview bitmap width, so scale down.
468 float overallScale = scale * (float)(w/(float)pageWidth);
469 dc->SetUserScale(overallScale, overallScale);
470
471 // Calculate conversion factor for converting millimetres into
472 // logical units.
473 // There are approx. 25.1 mm to the inch. There are ppi
474 // device units to the inch. Therefore 1 mm corresponds to
475 // ppi/25.1 device units. We also divide by the
476 // screen-to-printer scaling factor, because we need to
477 // unscale to pass logical units to DrawLine.
478
479 // Draw 50 mm by 50 mm L shape
480 float logUnitsFactor = (float)(ppiPrinterX/(scale*25.1));
481 float logUnits = (float)(50*logUnitsFactor);
482 dc->SetPen(* wxBLACK_PEN);
483 dc->DrawLine(50, 250, (long)(50.0 + logUnits), 250);
484 dc->DrawLine(50, 250, 50, (long)(250.0 + logUnits));
485
486 dc->SetFont(* wxGetApp().m_testFont);
487 dc->SetBackgroundMode(wxTRANSPARENT);
488
489 dc->DrawText("Some test text", 200, 200 );
490
d57bf685
VS
491 { // GetTextExtent demo:
492 wxString words[7] = {"This ", "is ", "GetTextExtent ", "testing ", "string. ", "Enjoy ", "it!"};
493 long w, h;
494 long x = 200, y= 250;
495 wxFont fnt(15, wxSWISS, wxNORMAL, wxNORMAL);
496
497 dc->SetFont(fnt);
498 for (int i = 0; i < 7; i++) {
499 dc->GetTextExtent(words[i], &w, &h);
500 dc->DrawRectangle(x, y, w, h);
501 dc->DrawText(words[i], x, y);
502 x += w;
503 }
504 dc->SetFont(* wxGetApp().m_testFont);
505 }
506
7bcb11d3
JS
507 // TESTING
508
509 int leftMargin = 20;
510 int rightMargin = 20;
511 int topMargin = 20;
512 int bottomMargin = 20;
513
514 int pageWidthMM, pageHeightMM;
515 GetPageSizeMM(&pageWidthMM, &pageHeightMM);
516
517 float leftMarginLogical = (float)(logUnitsFactor*leftMargin);
518 float topMarginLogical = (float)(logUnitsFactor*topMargin);
519 float bottomMarginLogical = (float)(logUnitsFactor*(pageHeightMM - bottomMargin));
520 float rightMarginLogical = (float)(logUnitsFactor*(pageWidthMM - rightMargin));
521
522 dc->SetPen(* wxRED_PEN);
523 dc->DrawLine( (long)leftMarginLogical, (long)topMarginLogical,
524 (long)rightMarginLogical, (long)topMarginLogical);
525 dc->DrawLine( (long)leftMarginLogical, (long)bottomMarginLogical,
526 (long)rightMarginLogical, (long)bottomMarginLogical);
527
528 WritePageHeader(this, dc, "A header", logUnitsFactor);
c801d85f
KB
529}
530
531// Writes a header on a page. Margin units are in millimetres.
532bool WritePageHeader(wxPrintout *printout, wxDC *dc, char *text, float mmToLogical)
533{
ed880dd4 534/*
7bcb11d3
JS
535static wxFont *headerFont = (wxFont *) NULL;
536if (!headerFont)
537{
538headerFont = wxTheFontList->FindOrCreateFont(16, wxSWISS, wxNORMAL, wxBOLD);
539}
540dc->SetFont(headerFont);
541 */
542
543 int pageWidthMM, pageHeightMM;
544
545 printout->GetPageSizeMM(&pageWidthMM, &pageHeightMM);
546
547 int leftMargin = 10;
548 int topMargin = 10;
549 int rightMargin = 10;
550
551 float leftMarginLogical = (float)(mmToLogical*leftMargin);
552 float topMarginLogical = (float)(mmToLogical*topMargin);
553 float rightMarginLogical = (float)(mmToLogical*(pageWidthMM - rightMargin));
554
555 long xExtent, yExtent;
556 dc->GetTextExtent(text, &xExtent, &yExtent);
557 float xPos = (float)(((((pageWidthMM - leftMargin - rightMargin)/2.0)+leftMargin)*mmToLogical) - (xExtent/2.0));
558 dc->DrawText(text, (long)xPos, (long)topMarginLogical);
559
560 dc->SetPen(* wxBLACK_PEN);
561 dc->DrawLine( (long)leftMarginLogical, (long)(topMarginLogical+yExtent),
562 (long)rightMarginLogical, (long)topMarginLogical+yExtent );
563
564 return TRUE;
c801d85f 565}