Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2011, 14:02   #1
Oleg Romanchuk
Ghost
Форумчанин
 
Аватар для Oleg Romanchuk
 
Регистрация: 16.08.2007
Сообщений: 143
По умолчанию Печать Image

Добрый день уважаемые форумчяне!
Столкнулся с такой вот проблемкой, может Вы поможите!

В общем есть картинка Image. У меня получилось распечатать эту картинку, ровно в правом левеом верхнем углу! это Штрих-код, так вот, необходимо на одной строчки распечатывать 3 разных Image, и что бы строчек было на всю страницу, подскажите куда копать дальше:

Цитата:
var
x1,x2,y1,y2:integer;
PointsX,PointsY:Double;
begin

if PrintDialog1.Execute then
begin
Printer.BeginDoc;
Printer.Canvas.Refresh;

PointsX:=GetDeviceCaps(Printer.Canv as.Handle,LOGPIXELSX)/90;
PointsY:=GetDeviceCaps(Printer.Canv as.Handle,LOGPIXELSY)/90;


X1:=Round((10*PointsX)/2);
Y1:=Round((15*PointsY)/2);

X2:=Round(X1+Image1.Picture.Bitmap. Width*PointsX);
Y2:=Round(Y1+Image1.Picture.Bitmap. Height*PointsY);


Printer.Canvas.CopyRect(Rect(x1,y1, x2,y2),Image1.Picture.Bitmap.Canvas ,Rect(0,0,Image1.Picture.Bitmap.Wid th,Image1.Picture.Bitmap.Height));
Printer.EndDoc;
end;
end;
Даже не знаю что делать дальше, кто-то советует FastReport - но его я не знаю!

Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.

Последний раз редактировалось mihali4; 09.11.2011 в 17:18.
Oleg Romanchuk вне форума Ответить с цитированием
Старый 09.11.2011, 15:05   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
ровно в правом левеом верхнем углу
Так в правом или левом углу?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
печать из image wulf_01 Помощь студентам 0 24.05.2011 12:15
EPNGMissingMultipleIDAT. This PNG Image is invalid because it has missing image parts kardinal94 Общие вопросы Delphi 0 08.10.2010 20:31
Image на Печать program123 Общие вопросы Delphi 4 20.05.2010 20:09
Вопрос по Image (скачанная картинка не хочет выводиться в Image) Radnor Мультимедиа в Delphi 2 06.07.2009 02:20
image. печать большого изображения на нескольких листах OLEG'arh Общие вопросы Delphi 1 20.06.2008 13:06