//---------------------------------------------------------------------------
#include <vcl.h>
#include <printers.hpp>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Canvas->MoveTo(150,80);
  Canvas->LineTo(500,80);
  Canvas->MoveTo(150,120);
  Canvas->LineTo(500,120);
  Canvas->Rectangle(150,150,500,300);
}
//---------------------------------------------------------------------------
int __fastcall TForm1::ChangeSize(int s_dpi,int d_dpi,int s_nn)
{
  int rt;
  rt=s_nn*d_dpi;
  rt=rt/s_dpi;
  return rt;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int dpi;
  dpi=GetDeviceCaps(Printer()->Handle,LOGPIXELSX);

  Printer()->BeginDoc();
  Printer()->Canvas->MoveTo(ChangeSize(96,dpi,150),ChangeSize(96,dpi,80));
  Printer()->Canvas->LineTo(ChangeSize(96,dpi,500),ChangeSize(96,dpi,80));
  Printer()->Canvas->MoveTo(ChangeSize(96,dpi,150),ChangeSize(96,dpi,120));
  Printer()->Canvas->LineTo(ChangeSize(96,dpi,500),ChangeSize(96,dpi,120));
  Printer()->Canvas->Rectangle(ChangeSize(96,dpi,150),ChangeSize(96,dpi,150),ChangeSize(96,dpi,500),ChangeSize(96,dpi,300));
  Printer()->EndDoc();
}
//---------------------------------------------------------------------------