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

Вниз

Вставляем bmp-шку в RxRichEdit, RichEditEx, RichEdit98...   Найти похожие ветки 

← →
NewGuest   (2003-01-26 11:22) [0]

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


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

---

← →
Song ©   (2003-01-26 12:03) [1]

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

---

← →
NewGuest   (2003-01-26 14:03) [2]

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

---

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

2Song

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

---

← →
SeNtiMeL   (2003-01-28 16:28) [4]

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

---

← →
NewGuest   (2003-01-28 20:44) [5]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.011 c