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

Маленький вопрос про Canvas   Найти похожие ветки 

← →
Kopachev   (2002-05-10 08:27) [0]

У меня есть богатый текст (текст из richedita). Как вывести самому тектс на канву paintbox с форматированием, как было в редакторе.
Спасибо!

---

← →
MBo ©   (2002-05-10 08:31) [1]

procedure TForm1.Button1Click(Sender: TObject);
var b:tbitmap;
fr: TFormatRange;
r: TRect;
begin
b:=tbitmap.create;
b.width:=rxrichedit1.width;
b.height:=rxrichedit1.height;
r:=rect(0,0,RXRichEdit1.Width*screen.Pixelsperinch,
RXRichEdit1.Height*screen.Pixelsperinch);
fr.hdc:=b.Canvas.handle;
fr.hdctarget:=b.Canvas.handle;
fr.rc:=r;
fr.rcpage:=r;
fr.chrg.cpMin:=0;
fr.chrg.cpMax:=-1;
Sendmessage(RXRichEdit1.handle,EM_FORMATRANGE,1,longint(@fr));
image1.Picture.assign(b);
b.free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
rxrichedit1.Lines.LoadFromFile("e:\qwer.rtf");
end;

---

← →
Kopachev   (2002-05-10 14:15) [2]

А что за класс TFormatRange и где его можно взять?

---

← →
MBo ©   (2002-05-10 14:16) [3]

uses richedit

---

← →
Kopachev   (2002-05-10 18:29) [4]

а как вывести богатый текст не на картинку, а в Paintbox?

---

← →
Kopachev   (2002-05-10 19:20) [5]

Я уже разобрался, все заработало. А как можно отмаштабировать текст?

---

← →
Song ©   (2002-05-10 19:57) [6]

StretchDraw()
Rect()

---

← →
Kopachev   (2002-05-10 21:13) [7]

А примерчик можно. Или чуть-чуть поподробнее. Я с эитм еще не работал.

---

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

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



Память: 0.46 MB
Время: 0.012 c