Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

Как вывести текст в TPointBox?   Найти похожие ветки 

 
red chief ©   (2004-06-08 17:52) [0]

Вот я написал процедурку вывода текста из Memo:
procedure TForm1.Button1Click(Sender: TObject);
var b:TBitmap;
i,w:integer;
begin
b:=TBitmap.Create;
b.Width:=0;
b.Height:=0;
b.Canvas.Font:=Font;
for i:=0 To Memo1.Lines.Capacity-1 do begin
if Canvas.TextWidth(Memo1.Lines[i])>b.Width then
b.Width:=Canvas.TextWidth(Memo1.Lines[i]);
b.Height:=b.Height+Canvas.TextHeight("ZDima");
b.Canvas.TextOut(0,Canvas.TextHeight("ZDima")*i,Memo1.Lines[i]);
end;
Canvas.Draw(0,0,b);
b.Free;
end;


А как сделать чтобы выводило текст в TPaintBox? Только еси можно объясните человеческим языком, я еще не сильно разбираюсь в Delphi. Или напишите целую процедуру.


 
MBo ©   (2004-06-08 17:54) [1]

вместо b.Canvas.TextOut используй PaintBox1.Canvas.TextOut
Только учти, что Paintbox не сохраняет картинку при перерисовке, так что выводить надо в обработчике его события OnPaint



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

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.031 c
1-1086703741
BlackLord2003
2004-06-08 18:09
2004.06.20
ClipText


14-1086128200
Алгоритмыч
2004-06-02 02:16
2004.06.20
Переход на C++


14-1086197617
Rouse_
2004-06-02 21:33
2004.06.20
Восстановление убитого физически жесткого диска...


14-1085723546
Nuclear
2004-05-28 09:52
2004.06.20
Сайт хорошего настроения


1-1086350896
Energy
2004-06-04 16:08
2004.06.20
Как мне сделать описание OnClick