|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Печать изображения
Добрый день! Нижеприведенный код работает, на печать изображение идет, но сразу после события приложение закрывается, без каких либо ошибок. Подскажите, кто с этим работает, в чем может быть причина.
Код:
var rect: TRect; begin if FormMain.PrintDialog.Execute then begin Close; rect.Top:= 10; rect.Left:= 10; rect.Right:= 10 + Trunc(FormMain.ImageDocPrintScan.Picture.Graphic.Width); rect.Bottom:= 10 + Trunc(FormMain.ImageDocPrintScan.Picture.Graphic.Height); Printer.BeginDoc; Printer.Canvas.Draw(rect.Left, rect.Top, FormMain.ImageDocPrintScan.Picture.Graphic); Printer.EndDoc; end; end; |
#2
|
||||
|
||||
Close убери
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Ludo (29.05.2013)
|