Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

Печать TImage   Найти похожие ветки 

 
and75   (2003-12-22 13:55) [0]

Проблема в следующем:
На форме есть компонент Image1 : TImage.
Программно строится график функции. На экране все отображается нормально.
С помощью следующего кода пытаюсь распечатать изображение.
PrinterRect:=Rect(0,0,Printer.PageWidth,Printer.PageHeight);
ImageRect:=Rect(0,0,Image1.Width,Image1.Height);
Printer.BeginDoc; // инициализируем принтер

Printer.Canvas.CopyRect(PrinterRect,Image1.Canvas,ImageRect);
Printer.EndDoc; // печатаем

Результат: Пустой лист.
Заранее благодарен за помощь


 
ALEIIIKA   (2003-12-23 09:52) [1]


procedure TForm1.PrintButton1Click(Sender: TObject);
var
Rect : TRect;
begin
// рассчитать прямоугольник для принтера
Rect.Top := 10;
Rect.Left := 10;
Rect.Right := 10 + Form1.Image1.Picture.Graphic.Width;
Rect.Height := 10 + Form1.Image1.Picture.Graphic.Height;
// напечатать картинку
Printer.BeginDoc;
try
Printer.Canvas.StretchDraw(Rect,Form1.Image1.Picture.Graphic);
Printer.EndDoc;
except
Printer.Abort;
raise;
end;
end;


 
and75   (2003-12-24 15:11) [2]

Вы не поверите.....
Но снова пустой лист...... :-(((


 
ALEIIIKA   (2003-12-25 09:23) [3]

небольшая ошибка:
Rect.Height => Rect.Bottom

В секции Uses добавить: Printers;

Не может быть все печатает, проверено.
Содрано из примера поставляемого в Helpe по Delphi:

This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed, with a 200-pixel border around the page. To run this example successfully, you must add the Printers unit to the uses clause of your unit.

procedure TForm1.Button1Click(Sender: TObject);

begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
EndDoc;
end;

end;




Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.013 c
3-43375
Санек
2004-02-13 18:16
2004.03.14
Теория коннекта


9-43236
Unknown user
2003-07-24 19:27
2004.03.14
Быстрый вывод в OpenGL.


3-43290
comwad
2004-02-11 15:38
2004.03.14
Проблема с DBGrid


11-43413
savva
2003-06-23 17:17
2004.03.14
Drag & Drop


8-43699
Romaa
2003-11-07 10:18
2004.03.14
TIcon -- только 16 цветов ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский