Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

RxRichEdit

Змей © (2004-12-02 06:25:00)
Приветствую всех! в это сонное время суток
вот давно горю желанием вставить в 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;
}
//---------------------------------------------------------------------------
// этот пример у меня работает

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

ЮЮ (2004-12-02 08:04:00) [1]
Кто и где? Даже Microsoft до сих пор этого не делает

Змей (2004-12-02 07:59:00) [2]
ну вставляют же
ток не говорят как

ЮЮ (2004-12-02 07:48:00) [3]
Даже будучи вставленным в MS Word, анимированный Gif теряет свою анимированность, а тут просто в RichEdit, пусть и Rx

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

Змей (2004-12-02 07:39:00) [4]
я просто не знаю как сделать вот и спрашиваю :(

KilkennyCat (2004-12-02 07:21:00) [5]
я бы не назвал пример на си вставкой анимированной картинки в ртф... это просто наложение одного контрола на другой.

Наверх

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