Форум: "Media";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
ВнизРаспечатка графика Найти похожие ветки
← →
Link (2002-10-06 14:54) [0]Друзья, написал программу, которая строит график на Canvas формы.
Подскажите, как его можно распечатать.
← →
Anatoly Podgoretsky (2002-10-06 15:15) [1]Canvas формы вывести на Canvas принтера
← →
Link (2002-10-06 15:55) [2]А как это делается?
← →
BOA_KAA (2002-10-06 16:02) [3]http://forum.ixbt.com/0026/017369.html
← →
Link (2002-10-06 16:26) [4]Чё то ничё понять там не могу. :(
Я с принтером ещё не работал... Вот и сложности.
Нашёл код, вроде похож на правду
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:43) [5]В некотором роде - это действительно так, но если у тебя картинка, к примеру маленькая, то ты ее в распечатке просто не увидишь:-) И это еще далеко не все подводные камни. Посмотри, как советуют на ixbt, вариант работает на всех принтерах, с которыми мне приходилось иметь дело
← →
Link (2002-10-06 17:53) [6]Ты про какой конкретно вариант?
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c