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

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

Вставляем bmp-шку в RxRichEdit, RichEditEx, RichEdit98... [D7, Win2k]

NewGuest ©   (2003-01-26 11:22:00) 

Картинка не исчезает при выделении текста. Привязана к тексту. Наконец этот день настал )))


function BitmapToRTF(pict: TBitmap): string;
var
bi,bb,rtf: string;
bis,bbs: Cardinal;
achar: ShortString;
hexpict: string;
I: Integer;
begin
GetDIBSizes(pict.Handle,bis,bbs);
SetLength(bi,bis);
SetLength(bb,bbs);
GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(bb)^);
rtf := "{\rtf1 {\pict\dibitmap ";
SetLength(hexpict,(Length(bb) + Length(bi)) * 2);
I := 2;
for bis := 1 to Length(bi) do
begin
achar := Format("%x",[Integer(bi[bis])]);
if Length(achar) = 1 then
achar := "0" + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
for bbs := 1 to Length(bb) do
begin
achar := Format("%x",[Integer(bb[bbs])]);
if Length(achar) = 1 then
achar := "0" + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
rtf := rtf + hexpict + " }}";
Result := rtf;
end;


{SS

---

NewGuest   (2003-01-28 20:44:00) [1]

да. нужно попробовать

---

SeNtiMeL   (2003-01-28 16:28:00) [2]

Можно попробовать вставить целый компонент RxGifAnimator...
Но у меня не получается, чтобы он вставал в нужную позицию текста, и выравнивался...

---

NewGuest   (2003-01-27 18:06:00) [3]

2Song

Вставить можно gif, но он не воспрозводится...

---

NewGuest   (2003-01-26 14:03:00) [4]

интересно.. rxrichedit?

---

Song   (2003-01-26 12:03:00) [5]

RxLib, там есть gif компонент

---

Наверх