R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

Chop etish

Hisob-kitob dasturi, uning oynasi 1.82-rasmda keltirilgan, hisob-kitobni qog’ozga (printerga chiqarish) chop etishga imkon beradi.



1.82-rasm. Chop etish tugmasini bosish natijasida

hisob-kitob qog’ozga chop etiladi

#include "Printers.hpp"

void __fastcall TForm1::FormCreate(TObject *Sender)

{

// *** jadvalni sozlash ***

StringGrid1->Options

<< goEditing // taxrirlshga ruxsat

<< goTabs; // - keyingi kataklarka o’tish

// ustun sarlavhalari

StringGrid1->Cells[0][0] ="";

StringGrid1->Cells[1][0] = " Nomlanishi" ;

StringGrid1->Cells[2][0] = " Bahosi";

StringGrid1->Cells[3][0] = "Soni";

StringGrid1->Cells[4][0] = "Summa";

// ustun kengligi

StringGrid1->ColWidths[0] = 30;

StringGrid1->ColWidths[1] = 250;

StringGrid1->ColWidths[2] = 80;

StringGrid1->ColWidths[3] = 50;

StringGrid1->ColWidths[4] = 80;

// birinchi ustunni to’ldirish

for (int i = 1; i < 11; i++)

if (i < 10)

StringGrid1->Cells[0][i] = " " + IntToStr(i);

else

StringGrid1->Cells[0][i] = IntToStr(i);

int w = 0;

for (int i = 0; i < StringGrid1->ColCount; i++)

w += StringGrid1->ColWidths[i];

// ustun va satrlar o’lchamiga mos xolda StringGrid

// o’lchamini o’rnatish

StringGrid1->Width = w + StringGrid1->ColCount + 1 ;

StringGrid1->Height = StringGrid1->DefaultRowHeight *

StringGrid1->RowCount + StringGrid1->RowCount + 1;

}

// Chop etish tugamini bosish

void __fastcall TForm1::Button2Click(TObject *Sender)

{

TPrinter *Prn; // printer

#define LEFT_MARGIN 2 // chapdan 2 sm qoldirish

#define TOP_MARGIN 2 // yuqoridan 2 sm qoldirish

float dpiX, dpiY; // разрешение принтера по X и Y

float kx, ky; // коэф. пересчета координат экрана

// в координаты принтера по X и Y

// jadval

int p[5]; // kolonkalar o’rnilari

int x1,y1,x2,y2; // jadval chegaralari

int px, py; // chiqarish nuqtasini ko’rsatish

int i, j;

/* Разрешение экрана и принтера разное, поэтому чтобы добиться соответствия размеров изображения на экране и принтере, координаты точек экрана надо преобразовать в координаты принтера, умножить на коэф., значение которого зависит от разрешения принтера. Например, если разрешение принтера 300 dpi, то значение коэффициента равно 3.125, т. к. разрешение экрана - 96 dpi */

Prn = Printer ();

/* ф-я GetDeviceCaps позволяет получить характеристики

устройства. LOGPIXELSX-кол-во пикселов на дюйм по X*/

dpiX = GetDeviceCaps(Prn->Handle,LOGPIXELSX);

dpiY = GetDeviceCaps(Prn->Handle,LOGPIXELSY);

kx = dpiX / Screen->PixelsPerInch;

ky = dpiY / Screen->PixelsPerInch;

px = LEFT_MARGIN / 2.54 * dpiX;

py = TOP_MARGIN / 2.54 * dpiY;

// вычислим "принтерные" координаты колонок таблицы

p[0] = px;

for (i = 1; i < 5; i++ )

p[i] = p[i-1] + StringGrid1->ColWidths[i-1]* kx + i;

Prn->BeginDoc(); // chop qilishni ochish

// jadval sarlavhasi

Prn->Canvas->Font->Name = Label1->Font->Name;

Prn->Canvas->Font->Size = Label1->Font->Size;

Prn->Canvas->TextOut(px,py,Label1->Caption);

// таблица - содержимое StringGridl

py = py + Label1->Font->Size * 2 * ky;

x1 = px; y1 = py; // jadvalning chap yuqori burvhagi

Prn->Canvas->Font->Name = StringGrid1->Font->Name;

Prn->Canvas->Font->Size = StringGrid1->Font->Size;

x2 = p[4] + StringGrid1->ColWidths[4]* kx;

y2 = py + StringGrid1->RowCount *

StringGrid1->RowHeights[1] * ky;

for (j = 0; j < StringGrid1->RowCount; j++)

{

// jadvalning satrlari

for (i =0; i < StringGrid1->ColCount; i++)

{

Prn->Canvas->TextOut(p[i],py,

StringGrid1->Cells[i][j]);

Prn->Canvas->MoveTo(p[0],py);

Prn->Canvas->LineTo(x2,py);

}

py = py+ StringGrid1->RowHeights[j]* ky;

}

// vertikal chiziqlar

for (i = 0; i < StringGrid1->ColCount; i++ )

{

Prn->Canvas->MoveTo(p[i],y1);

Prn->Canvas->LineTo(p[i],y2);

}

// o’ng chegara

Prn->Canvas->MoveTo(x2,y1);

Prn->Canvas->LineTo(x2,y2);

// quyi chegara

Prn->Canvas->MoveTo(x1,y2);

Prn->Canvas->LineTo(x2,y2);

py = y2 + 0.5 / 2.54 * dpiY; // bu yerda1 - bu 1 sm.

Prn->Canvas->TextOut(p[3],py,Label2->Caption);

Prn->EndDoc(); // chop qilishni yopish

}

// Tayyor tugmasini bosish

void __fastcall TForm1::Button1Click(TObject *Sender)

{