RxRichEdit

← →
Змей © (2004-12-02 06:25) [0]

Приветствую всех! в это сонное время суток
вот давно горю желанием вставить в RxRichEdit анимированную картинку тобишь gif-ку
но как это сделать? не понятна вставляю обычную bmp наман прет:
procedure TForm1.smile2Click(Sender: TObject);
VAR i: Integer;
BitMap1, BitMap2: TBitMap;
SS:TStringStream;
BMP: TBitMap;
z:string;
BEGIN
Richedit1.SelStart:= length(richedit1.text);
//Âñòàâêà êàðòèíêè
BMP := TBitMap.Create;
TRY
BMP.Assign(image2.Bitmap);//
SS := TStringStream.Create(BitmapToRTF(BMP));
TRY
image1.Picture.Bitmap.Assign(Bmp);
richedit1.PlainText := false;
richedit1.StreamMode := [smSelection];
richedit1.Lines.LoadFromStream(SS);
richedit1.StreamMode := [];
RichEdit1.Perform(WM_VSCROLL, MakeWord(SB_BOTTOM, 0), 0);
FINALLY
SS.Free;
END
FINALLY
BMP.Free;
END;

end;

но тут недавно нашел статью по ходу для Borland C++:::

private: // User declarations
TRxGIFAnimator *tr;

Далее в Unit1.cpp:

//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
tr = new TRxGIFAnimator(RxRichEdit1);
tr->Parent = RxRichEdit1;
tr->Image->LoadFromFile("C:\\LION.GIF");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete tr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
tr->Animate = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
tr->Animate = false;
}
//---------------------------------------------------------------------------
// этот пример у меня работает

пробовал переделать никак вставляется просто из дживки как бмпшка а вот анимирование не идет
помогите хелп, а то башка лопнет
заранее всем агромное пасиба
хоть ссылочкой помогите :)
мож кто сможет переделатЬ?

← →
KilkennyCat © (2004-12-02 07:21) [1]

я бы не назвал пример на си вставкой анимированной картинки в ртф... это просто наложение одного контрола на другой.

← →
Змей © (2004-12-02 07:39) [2]

я просто не знаю как сделать вот и спрашиваю :(

← →
ЮЮ © (2004-12-02 07:48) [3]

Даже будучи вставленным в MS Word, анимированный Gif теряет свою анимированность, а тут просто в RichEdit, пусть и Rx

З.Ы. А какой фрагмент анимации ты хотел бы увидеть на принтере?
То-то. Rtf не предназначен для этого

ну вставляют же
ток не говорят как

Кто и где? Даже Microsoft до сих пор этого не делает

RxRichEdit Найти похожие ветки