Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

Сохранение RichEdit в битмап.   Найти похожие ветки 

 
AL2002   (2002-10-09 14:04) [0]

В РТФ — понятно. В ДОК — ещё подумаю. ХТМЛ — тоже можно.
А в БМП и Джипег как?


 
MBo   (2002-10-09 14:16) [1]

В архивах поройся, я пример давал


 
Song   (2002-10-09 14:20) [2]

Получить TCanvas и сохранить в файл через TBitMap.


 
AL2002   (2002-10-09 14:24) [3]

>Song © (09.10.02 14:20)
Битмап получится размером RichEdit, а там дофига текста, т.е. даже скроллировать долго надо.


 
MBo   (2002-10-09 14:26) [4]

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:32) [5]

Oh yes!

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


 
MBo   (2002-10-09 14:39) [6]

>зачем сендмессага?
В этом весь изюм и есть

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


 
AL2002   (2002-10-09 14:49) [7]

А в Jpeg?


 
Skier   (2002-10-09 14:51) [8]

>AL2002
TJPEGImage ?


 
AL2002   (2002-10-09 14:57) [9]

>Skier © (09.10.02 14:51)
Так же как и битмап?


 
REA   (2002-10-09 14:57) [10]

А вот масштабируется оно фигово - я в программе печати пробовал с масштабом рисовать на DC и печатать - как то криво работает. А в остальном вроде ничего.



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

Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.034 c
3-68677
Jeka
2002-10-01 10:29
2002.10.21
многострочный title


1-68700
antonioxxx
2002-10-08 22:02
2002.10.21
О файлах


1-68684
zevs_a
2002-10-09 12:15
2002.10.21
Pomogite rebyata


14-68934
iNew
2002-09-27 10:32
2002.10.21
ПОМОГИТЕ!!!


1-68859
andrey_pst
2002-10-10 14:46
2002.10.21
Отправка почты.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский