Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: 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 вся ветка

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-73027
sergrrey
2002-04-24 11:00
2002.05.23
Впрос по SQL Loader


6-73343
Devid
2002-03-10 18:34
2002.05.23
Как игнорировать ошибку у ClientSocket


1-73257
Дмитрий Иванов
2002-05-05 20:14
2002.05.23
TThread и Physical Memory


1-73170
Гена
2002-05-14 04:43
2002.05.23
---|Ветка была без названия|---


4-73440
AFROLOV
2002-03-20 15:06
2002.05.23
Не работает SetParent