Скачать: CL | DM;

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 не предназначен для этого

---

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

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

---

← →
ЮЮ ©   (2004-12-02 08:04) [5]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c