Вверх ↑
Этот топик читают: Гость
Ответов: 25
Рейтинг: 0
#1: 2008-09-29 17:27:12 ЛС | профиль | цитата
Надо было размножить несколько документов, а ксерокс сдох... может кому понадобиться...


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)
{
}

карма: 0

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#2: 2008-09-29 17:31:11 ЛС | профиль | цитата
Castakurtta, учимся пользоваться тэгами "code". Последнее китайское предупреждение, следующий раз буду удалять такие схемы.
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2008-10-23 16:31:32 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2022-04-03 06:41:54
карма: 0

0
Ответов: 99
Рейтинг: 1
#4: 2008-11-05 17:37:39 ЛС | профиль | цитата
Понадобилось! .только есть вопрос...в этой схеме принтер без проблем сразу печатает сканированную картинку...или пустой лист?

Интересно просто...давно ломаю голову над тем как быстро и без проблем картинки выводить на печать...
пробовал по разному извращаться - результат не устраивает (то ричедитом на 2 минуты машина в струпор уходит для обработки, то пустые листы лезут)

может есть точно рабочий и проверенный проект (схема) по выводу картинки со сканера или с файла на печать ...? был бы очень благодарен!
карма: 0

0
Ответов: 3514
Рейтинг: 184
#5: 2008-11-05 17:42:12 ЛС | профиль | цитата
Проверьте.
карма: 0
0
Ответов: 99
Рейтинг: 1
#6: 2008-11-05 17:48:31 ЛС | профиль | цитата
Астрамак,
всмысле проверьте?

карма: 0

0
Ответов: 3514
Рейтинг: 184
#7: 2008-11-05 17:51:26 ЛС | профиль | цитата
В прямом. запустите схему и проверьте.
карма: 0
0
Ответов: 1161
Рейтинг: 160
#8: 2008-11-05 17:52:01 ЛС | профиль | цитата
видать уже проверили...
карма: 0

0
Ответов: 99
Рейтинг: 1
#9: 2008-11-05 18:18:45 ЛС | профиль | цитата
Астрамак,

)) Проверял...
------------ Дoбавленo:

Поискал (он же пример программы Пакет Delphi >> Help >> Подскажите как распечатать изображение средствами hiasm)

открываемая картинка прекрассно распечатывается , а вот отсканированная - нет (пустой лист)

Цепочка:сканер - принтер нерешаемая задача пока?
карма: 0

0
Ответов: 3655
Рейтинг: 69
#10: 2008-11-05 19:18:42 ЛС | профиль | цитата
NetCom писал(а):
Цепочка:сканер - принтер нерешаемая задача пока?

Что то я непонимаю где проблема
Сканируешь в файл
Печатаешь этот файл.
карма: 0

0
Ответов: 99
Рейтинг: 1
#11: 2008-11-05 20:05:30 ЛС | профиль | цитата
Вячеслав,

Не подсобите примерчиком (вывод картинки на принтер) ?

..собрать корректную схему не получается которая 100% без проблем выводила картинку на принтер (любыми вариантами ее доставки туда)
карма: 0

0
Ответов: 3655
Рейтинг: 69
#12: 2008-11-05 21:43:15 ЛС | профиль | цитата
NetCom писал(а):
Не подсобите примерчиком (вывод картинки на принтер) ?

Tad вроде делал - появится будет пример.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2008-11-06 00:12:56 ЛС | профиль | цитата
NetCom, Вывод картинки на принтер:
http://www.hiasm.com/xf//getfile/9238
nesco вроде в примеры обещал положить...
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#14: 2008-11-06 00:17:56 ЛС | профиль | цитата
Tad писал(а):
nesco вроде в примеры обещал положить...

Он есть на SVN в примерах, но почему Dilma не вложил его в дистрибутив -- сие есть великая тайна
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#15: 2008-11-06 00:23:31 ЛС | профиль | цитата
Значит, как говорит Galkov, работаем на корзину.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)