Add(ChildPanel,16455059,7,7)
{
}
BEGIN_SDK
Add(EditMulti,258997,21,21)
{
}
Add(Panel,12714233,35,105)
{
Left=10
Top=5
Width=280
Height=340
BevelOuter=1
}
END_SDK
Add(MainForm,5760284,21,21)
{
Left=20
Top=105
Width=536
Height=375
Caption="Копир"
BorderStyle=1
}
Add(Button,15415409,119,217)
{
Left=415
Top=310
Width=105
Height=30
Font=[MS Sans Serif,10,1,0,1]
Caption="Печать"
link(onClick,14309344:doPrint,[(191,223)(191,245)])
}
Add(Printer,14309344,238,239)
{
Point(doSettings)
Point(CurDPIY)
Point(CurDPIX)
link(onPrint,4383238:doDraw,[(278,245)(278,343)(215,343)(215,307)])
}
Add(Img_Bmp,4383238,224,301)
{
X=1
Y=1
DrawSource=2
Point(doDrawSource)
link(Bitmap,14309344:Context,[(230,286)(244,286)])
link(SourceBitmap,3048708:Result,[(237,289)(289,290)(349,290)])
}
Add(Button,5229203,119,259)
{
Left=300
Top=27
Width=124
Caption="Параметры печати"
link(onClick,14309344:doSettings,[(191,265)(191,252)])
}
Add(TWAIN,8903113,210,119)
{
ModalUI=0
Point(ShowUI)
link(onScan,3048708:doResize,[])
link(ShowUI,5167142:Checked,[])
}
Add(Button,3863548,140,126)
{
Left=295
Top=310
Width=105
Height=30
Font=[MS Sans Serif,10,1,0,1]
TabOrder=-1
Caption="Сканировать"
link(onClick,8903113:doScan,[])
}
Add(CheckBox,5167142,210,56)
{
Left=390
Top=60
Width=105
Height=15
Caption="Диалог сканера"
}
Add(Button,13830328,140,49)
{
Left=300
Top=55
Width=60
TabOrder=-1
Caption="Сканер..."
link(onClick,8903113:doSelectSource,[(191,55)(191,125)])
}
Add(Image,4902926,427,119)
{
Left=15
Top=15
Width=265
Height=317
ViewStyle=1
Point(doRefresh)
Point(ImageWidth)
Point(ImageHeight)
}
Add(Resize,3048708,343,119)
{
Width=792
Height=1120
Point(Result)
link(onResult,4902926:doLoad,[])
}
Add(Hub,8133572,245,420)
{
}
Этот топик читают: Гость
Ответов: 25
Рейтинг: 0
|
|||
Надо было размножить несколько документов, а ксерокс сдох... может кому понадобиться...
|
|||
карма: 0 |
|
Разработчик
Ответов: 26113
Рейтинг: 2126
|
|||
Castakurtta, учимся пользоваться тэгами "code". Последнее китайское предупреждение, следующий раз буду удалять такие схемы.
|
|||
карма: 22 |
|
Гость
Ответов: 17029
Рейтинг: 0
|
|||
Редактировалось 2 раз(а), последний 2022-04-03 06:41:54 |
|||
карма: 0 |
|
Ответов: 99
Рейтинг: 1
|
|||
Понадобилось! .только есть вопрос...в этой схеме принтер без проблем сразу печатает сканированную картинку...или пустой лист?
Интересно просто...давно ломаю голову над тем как быстро и без проблем картинки выводить на печать... пробовал по разному извращаться - результат не устраивает (то ричедитом на 2 минуты машина в струпор уходит для обработки, то пустые листы лезут) может есть точно рабочий и проверенный проект (схема) по выводу картинки со сканера или с файла на печать ...? был бы очень благодарен! |
|||
карма: 0 |
|
Ответов: 3514
Рейтинг: 184
|
|||
Проверьте.
|
|||
карма: 0 |
|
Ответов: 99
Рейтинг: 1
|
|||
Астрамак,
всмысле проверьте? |
|||
карма: 0 |
|
Ответов: 3514
Рейтинг: 184
|
|||
В прямом. запустите схему и проверьте.
|
|||
карма: 0 |
|
Ответов: 1161
Рейтинг: 160
|
|||
видать уже проверили...
|
|||
карма: 0 |
|
Ответов: 99
Рейтинг: 1
|
|||
Астрамак,
)) Проверял... ------------ Дoбавленo: Поискал (он же пример программы Пакет Delphi >> Help >> Подскажите как распечатать изображение средствами hiasm) открываемая картинка прекрассно распечатывается , а вот отсканированная - нет (пустой лист) Цепочка:сканер - принтер нерешаемая задача пока? |
|||
карма: 0 |
|
Ответов: 3655
Рейтинг: 69
|
|||
NetCom писал(а): Цепочка:сканер - принтер нерешаемая задача пока? Что то я непонимаю где проблема Сканируешь в файл Печатаешь этот файл. |
|||
карма: 0 |
|
Ответов: 99
Рейтинг: 1
|
|||
Вячеслав,
Не подсобите примерчиком (вывод картинки на принтер) ? ..собрать корректную схему не получается которая 100% без проблем выводила картинку на принтер (любыми вариантами ее доставки туда) |
|||
карма: 0 |
|
Ответов: 3655
Рейтинг: 69
|
|||
NetCom писал(а): Не подсобите примерчиком (вывод картинки на принтер) ?Tad вроде делал - появится будет пример. |
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
NetCom, Вывод картинки на принтер:
http://www.hiasm.com/xf//getfile/9238 nesco вроде в примеры обещал положить... |
|||
карма: 25 |
|
Разработчик
Ответов: 26113
Рейтинг: 2126
|
|||
Tad писал(а): nesco вроде в примеры обещал положить...Он есть на SVN в примерах, но почему Dilma не вложил его в дистрибутив -- сие есть великая тайна |
|||
карма: 22 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
Значит, как говорит Galkov, работаем на корзину.
|
|||
карма: 25 |
|