Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Вниз
Как вывести текст в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c
