Форум - Ответы     (  К темам )
 ?  Тимми: В Delphi в ListBox, как вставлять аним карт (22-04-2003 19:58:48)
Картинки типа gif, Как вставить в любое место, например идет тескт потом картинка потом опять текст. Но обязательно анимированную картинку.
Можно ли тоже самое проделать с RxRichEdit, если да то как???
 Владимир (22-04-2003 20:36:14) http://cbuilder.ru

Не знаю насчет ListBox и анимированности.
Вставляйте в RxGIFAnimator

-------------

Вставить картинку в RichEdit:
http://www.sources.ru/cpp/cpp_hbitmap_in_richedit.shtml

также смотрите RXLib-овский RxRichEdit
пример
http://vlad2000.h1.ru/Frames/Statyi/page_17.html 

--------

А можно что-то типа, объявляем в Unit1.h файле:

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;
}
//---------------------------------------------------------------------------
// этот пример у меня работает


 Владимир (22-04-2003 20:40:54) http://cbuilder.ru
Кстати, если вставите в этот пример вместо
RxRichEdit1 компонент ListBox1,
то есть измените

tr = new TRxGIFAnimator(ListBox1);
tr->Parent = ListBox1;

заработает и в нем.


support@cbuilder.ru