Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Распечатка графика

Link © (2002-10-06 14:54:00)
Друзья, написал программу, которая строит график на Canvas формы.
Подскажите, как его можно распечатать.

Link (2002-10-06 17:53:00) [1]
Ты про какой конкретно вариант?

BOA_KAA (2002-10-06 16:43:00) [2]
В некотором роде - это действительно так, но если у тебя картинка, к примеру маленькая, то ты ее в распечатке просто не увидишь:-) И это еще далеко не все подводные камни. Посмотри, как советуют на ixbt, вариант работает на всех принтерах, с которыми мне приходилось иметь дело

Link (2002-10-06 16:26:00) [3]
Чё то ничё понять там не могу. :(
Я с принтером ещё не работал... Вот и сложности.
Нашёл код, вроде похож на правду

Printer.BeginDoc;
PageW:=Printer.PageWidth;
PageH:=Printer.PageHeight;
Printer.Canvas.CopyRect(Rect(0,0,PageW,PageH),prBitMap.Canvas,Rect(0,0,prBitMap.Width,prBitMap.Height));
Printer.EndDoc;

Да и в Helpe тоже есть

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile("MyBitmap.bmp");
with Printer do
begin
BeginDoc;
Canvas.Draw((PageWidth - Bmp.Width) div 2,
(PageHeight - Bmp.Height) div 2,
Bmp);
EndDoc;
end;
finally
Bmp.Free;
end;
end;

Может я просто торможу...
Во втором, я так понял, нужно иметь уже сохранённый файл (которого у меня нет), а первый вообще не знаю как к себе применить. Куда там писать Form1.Canvas? Или может ещё что-нибудь...

BOA_KAA (2002-10-06 16:02:00) [4]
http://forum.ixbt.com/0026/017369.html

Link (2002-10-06 15:55:00) [5]
А как это делается?

Anatoly Podgoretsky (2002-10-06 15:15:00) [6]
Canvas формы вывести на Canvas принтера

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »