Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сохранение RichEdit в битмап. [D6, Win95/98]

AL2002 © (2002-10-09 14:04:00)
В РТФ — понятно. В ДОК — ещё подумаю. ХТМЛ — тоже можно.
А в БМП и Джипег как?

AL2002 (2002-10-09 14:57:00) [1]
>Skier © (09.10.02 14:51)
Так же как и битмап?

REA (2002-10-09 14:57:00) [2]
А вот масштабируется оно фигово - я в программе печати пробовал с масштабом рисовать на DC и печатать - как то криво работает. А в остальном вроде ничего.

Skier (2002-10-09 14:51:00) [3]
>AL2002
TJPEGImage ?

AL2002 (2002-10-09 14:49:00) [4]
А в Jpeg?

MBo (2002-10-09 14:39:00) [5]
>зачем сендмессага?
В этом весь изюм и есть

>обычным ричэдитом должно же сработать
да, должно, это я с RX пробовал, чтоб ккартинка там была.

AL2002 (2002-10-09 14:32:00) [6]
Oh yes!

ЗЫ:
А зачем сендмессага?
С обычным ричэдитом должно же сработать?

MBo (2002-10-09 14:26:00) [7]
procedure TForm1.Button1Click(Sender: TObject);
var b:tbitmap;
fr: TFormatRange;
r: TRect;
begin
rxrichedit1.Lines.LoadFromFile("e:\wwe.rtf");
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.savetofile("e:\wwe.bmp");
b.free;
end;

AL2002 (2002-10-09 14:24:00) [8]
>Song © (09.10.02 14:20)
Битмап получится размером RichEdit, а там дофига текста, т.е. даже скроллировать долго надо.

Song (2002-10-09 14:20:00) [9]
Получить TCanvas и сохранить в файл через TBitMap.

MBo (2002-10-09 14:16:00) [10]
В архивах поройся, я пример давал

Наверх

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