| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Народ, подскажите, как мне вывести на печать TConvas Panel-и?
dimonf © (2002-03-29 09:39:00)Я вывожу текст на 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-30 13:08:00) [1]А чего не печатается? Вообще ничего - пустой лист? Что-то очень маленькое и нельзя разобрать что именно? Принтер вообще даже не подаёт признаков, что документ печатается? Как он себя ведёт?
dimonf (2002-03-30 12:11:00) [2]Народ, я чтото не пойму :( Все делаю как написал Song но Canvas печатоться не хочет.
Song (2002-03-29 09:41:00) [3]Ну вообщем, примерно это делается так:
With Printer Do
Begin
BeginDoc;
Draw(ваш_канвас);
EndDoc;
End;
| |
