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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2011, 12:15   #1
wulf_01
Пользователь
 
Регистрация: 09.04.2011
Сообщений: 57
По умолчанию печать из image

всем привет
возникла такая проблема нужно из image печатать картинки я делаю так


Код:
procedure TForm1.BitBtn8Click(Sender: TObject);
var
 X1,X2,Y1,Y2:Integer;
 PointsX,PointsY:double;
 PrintDlg:TPrintDialog;
begin
 PrintDlg:=TPrintDialog.Create(Owner);
 if PrintDlg.Execute then
  begin
   Printer.BeginDoc;
//   Printer.Canvas.Refresh;
   PointsX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX)/70;
   PointsY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY)/70;

   X1:=round((Printer.PageWidth - Image2.Picture.Bitmap.Width*PointsX)/2);
   Y1:=round((Printer.PageHeight - Image2.Picture.Bitmap.Height*PointsY)/2);
   X2:=round(X1+Image2.Picture.Bitmap.Width*PointsX);
   Y2:=round(Y1+Image2.Picture.Bitmap.Height*PointsY);
   Printer.Canvas.CopyRect(Rect(X1,Y1,X2,Y2),Image2.Picture.Bitmap.Canvas,
             Rect(0,0,Image2.Picture.Bitmap.Width,Image2.Picture.Bitmap.Height));

   Printer.EndDoc;
  end;
 PrintDlg.Free;
end;
но он распечатывает только bmp файлы а мне надо jpeg,gif,png,ico
может их надо конвертировать в bmp? но я не знаю ка((((
подскажите пожалуйста
wulf_01 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 другой формы DimR Microsoft Office Excel 2 21.04.2010 23:08
Вопрос по Image (скачанная картинка не хочет выводиться в Image) Radnor Мультимедиа в Delphi 2 06.07.2009 02:20
image. печать большого изображения на нескольких листах OLEG'arh Общие вопросы Delphi 1 20.06.2008 13:06