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,[]) }
|