Вверх ↑
Ответов: 1535
Рейтинг: 176
#1: 2016-04-01 14:09:30 ЛС | профиль | цитата
AlinaTan, есть доступный пример: C:\HiAsm\Elements\delphi\Example\Printer\PrintDocuments\PrintTextDoc.sha Изучайте!
------------ Дoбавленo в 14.09:
AlinaTan, или вот для понимания сути:
Add(MainForm,2953706,203,70)
{
Width=900
Height=602
link(onCreate,2037553:doWork1,[(263,90)])
}
Add(DocumentTemplate,3905573,301,126)
{
Name="бланк"
link(onDraw,5594051:doRefresh,[(347,132)(347,110)(289,110)(289,76)])
link(Bitmap,12280551:Var2,[])
}
BEGIN_SDK
Add(Print_Shape,11673604,14,14)
{
X=17
Y=17
Width=491
Height=473
FrameSize=10
FrameColor=65280
}
Add(Print_Text,15463037,49,84)
{
Name="текст1"
X=52
Y=87
Width=197
Font=[MS Sans Serif,12,0,0,1]
}
Add(Print_Text,13519700,49,161)
{
Name="текст2"
X=52
Y=164
Width=197
Font=[MS Sans Serif,12,0,0,1]
}
Add(Print_Text,11087249,105,42)
{
X=108
Y=45
Width=239
Text="Разовый пропуск"
Font=[MS Sans Serif,12,1,0,1]
}
Add(Print_Shape,3632392,49,105)
{
X=52
Y=108
Width=197
Height=11
Type=4
}
Add(Print_Text,16361376,105,112)
{
X=108
Y=115
Height=25
Text="(Фамилия)"
}
Add(Print_Shape,6475500,49,168)
{
X=52
Y=171
Width=197
Type=4
}
Add(Print_Text,5893899,91,189)
{
X=94
Y=192
Text="(Имя)"
}
END_SDK
Add(PaintBox,5594051,301,70)
{
Left=305
Top=15
Width=565
Height=535
Color=16777215
}
Add(PC_Text,14606510,203,126)
{
ItemName="текст1"
Document="бланк"
link(onText,2037553:doWork2,[])
}
Add(PC_Text,14700230,203,175)
{
ItemName="текст2"
Document="бланк"
link(onText,2037553:doWork3,[(263,181)])
}
Add(Edit,5417778,140,126)
{
Left=15
Top=15
Width=270
link(onChange,14606510:doText,[])
}
Add(Edit,1595150,140,175)
{
Left=15
Top=45
Width=270
link(onChange,14700230:doText,[])
}
Add(HubEx,2037553,259,126)
{
link(onEvent,3905573:doDraw,[])
}
Add(Button,5229203,140,294)
{
Left=55
Top=131
Width=162
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Printer setting"
link(onClick,14309344:doSettings,[(188,300)(188,265)])
}
Add(Button,15415409,140,252)
{
Left=55
Top=161
Width=162
Height=30
Font=[MS Sans Serif,10,1,0,1]
Caption="Print"
link(onClick,14309344:doPrint,[])
}
Add(Printer,14309344,203,252)
{
Point(doSettings)
Point(CurDPIY)
link(onPrint,4383238:doDraw,[])
}
Add(Img_Bmp,4383238,266,252)
{
X=172
Y=10
DrawSource=2
Point(doDrawSource)
link(Bitmap,14309344:Context,[(272,240)(245,240)(245,295)(209,295)])
link(SourceBitmap,12280551:Var1,[(279,117)])
}
Add(GetDataEx,12280551,301,112)
{
link(Data,5594051:Bitmap,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0