Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c