Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
Unit1.cpp
Package: C++Builder.rar [view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 3k
Category:
Visual C++ Books
Development Platform:
C++ Builder
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include <math.h>
- #include <stdlib.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)
- {
- int offx,offy,dpix,dpiy;
- double left,top,right,bottom,aa;
- int xx1,xx2,yy1,yy2;
- dpix=GetDeviceCaps(Printer()->Handle,LOGPIXELSX);
- dpiy=GetDeviceCaps(Printer()->Handle,LOGPIXELSY);
- offx=GetDeviceCaps(Printer()->Handle,PHYSICALOFFSETX);
- offy=GetDeviceCaps(Printer()->Handle,PHYSICALOFFSETY);
- left=2.5;top=3.2;
- right=15;bottom=8.7;
- aa=left/2.54;
- aa=aa*dpix;
- xx1=floor(aa)-offx;
- aa=right/2.54;
- aa=aa*dpix;
- xx2=floor(aa)-offx;
- aa=top/2.54;
- aa=aa*dpiy;
- yy1=floor(aa)-offy;
- aa=bottom/2.54;
- aa=aa*dpiy;
- yy2=floor(aa)-offy;
- Printer()->BeginDoc();
- Printer()->Canvas->Rectangle(xx1,yy1,xx2,yy2);
- Printer()->EndDoc();
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button2Click(TObject *Sender)
- {
- int nn;
- char dvc[255],drv[255],port[255];
- THandle h;
- TDeviceMode *DevMode;
- Printer()->GetPrinter(dvc,drv,port,h);
- if(h==0)return;
- DevMode=(TDeviceMode *)GlobalLock((void*)h);
- nn=atoi(Edit1->Text.c_str());
- if(nn>100)nn=100;
- if(nn<10)nn=10;
- DevMode->dmFields=DevMode->dmFields|DM_SCALE;
- DevMode->dmScale=(short)nn;
- GlobalUnlock((void*)h);
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button3Click(TObject *Sender)
- {
- char dvc[255],drv[255],port[255];
- THandle h;
- TDeviceMode *DevMode;
- Printer()->GetPrinter(dvc,drv,port,h);
- if(h==0)return;
- DevMode=(TDeviceMode *)GlobalLock((void*)h);
- DevMode->dmFields=DevMode->dmFields|DM_COLOR;
- DevMode->dmColor=DMCOLOR_MONOCHROME;
- // DevMode->dmColor=DMCOLOR_COLOR;
- GlobalUnlock((void*)h);
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button4Click(TObject *Sender)
- {
- char dvc[255],drv[255],port[255];
- THandle h;
- TDeviceMode *DevMode;
- Printer()->GetPrinter(dvc,drv,port,h);
- if(h==0)return;
- DevMode=(TDeviceMode *)GlobalLock((void*)h);
- DevMode->dmFields=DevMode->dmFields|DM_PRINTQUALITY;
- DevMode->dmPrintQuality=DMRES_HIGH;
- //DMRES_HIGH
- //DMRES_MEDIUM
- //DMRES_LOW
- //DMRES_DRAFT
- GlobalUnlock((void*)h);
- }
- //---------------------------------------------------------------------------