Как вывести текст в 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

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