| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Маленький вопрос про Canvas

Kopachev ©   (2002-05-10 08:27:00) 

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

---

Kopachev   (2002-05-10 21:13:00) [1]

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

---

Song   (2002-05-10 19:57:00) [2]

StretchDraw()
Rect()

---

Kopachev   (2002-05-10 19:20:00) [3]

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

---

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

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

---

MBo   (2002-05-10 14:16:00) [5]

uses richedit

---

Kopachev   (2002-05-10 14:15:00) [6]

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

---

MBo   (2002-05-10 08:31:00) [7]

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;

---

Наверх