Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Народ, подскажите, как мне вывести на печать TConvas Panel-и? 


dimonf   (2002-03-29 09:39) [0]

Я вывожу текст на TConvas Panel-и, как мне этот TConvas вывести на печать?
Я пытался печатать, но у меня текст получается мелким, а масштабировать не получилось. L
Вот текст:

TPreview = class(TPanel)
private
property Canvas;
protected
procedure Paint; override;
public
Idx : Integer;
constructor Create(AOwner:TComponent); override;
end;

procedure TPreview.Paint;
begin
MyRect:=Rect(0,1,850,32);
DrawText(Canvas.Handle, PChar(‘Привет всем !!!"), -1, MyRect, dt_WordBreak or dt_Center);
end;

constructor TPreview.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Parent := AOwner as TWinControl;
BevelInner := bvNone;
BevelOuter := bvNone;
Color := clWhite;
BorderStyle := bsNone;
end;



Song   (2002-03-29 09:41) [1]

Ну вообщем, примерно это делается так:

With Printer Do
Begin
BeginDoc;
Draw(ваш_канвас);
EndDoc;
End;



dimonf   (2002-03-30 12:11) [2]

Народ, я чтото не пойму :( Все делаю как написал Song но Canvas печатоться не хочет.



Song   (2002-03-30 13:08) [3]

А чего не печатается? Вообще ничего - пустой лист? Что-то очень маленькое и нельзя разобрать что именно? Принтер вообще даже не подаёт признаков, что документ печатается? Как он себя ведёт?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
1-32759           lipskiy               2002-03-30 20:14  2002.04.11  
Сложный вопрос-предложение. Помогите включить поддержку кириллицы


3-32714           -Stealtch-            2002-03-22 10:46  2002.04.11  
SQL запрос выборочного удаления строк


4-33016           Python                2002-02-12 07:40  2002.04.11  
Надо получить результаты работы программы (ее вывод на консоль) запуская ее из собственной программы, наример, с помощью ShellExecuteEx


14-32969          oblom                 2002-03-05 14:36  2002.04.11  
задание в универе


1-32885           AlexUrsik             2002-03-29 16:57  2002.04.11  
Интересует работа с нестандартными непрямоугольными рисунками