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

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

← →
SerJaNT ©   (2006-07-27 02:48) [0]

Как загрузить в Image компонента Graphics32 рисунок GIF? Пытался через loadfromfile() но пишет что неверное расширение gif. Использую также GraphicEx

---

← →
SergProger ©   (2006-07-27 02:53) [1]

Тебе нужен компонент. Не помню, какой. Извини.

---

← →
SerJaNT ©   (2006-07-27 02:55) [2]

> Тебе нужен компонент. Не помню, какой. Извини.


В мануале написано что нужно еще подключить GraphicEx (поддержка изрядного кол-ва форматов) чтобы Graphics32 мог поддерживать и эти форматы, так он эти форматы поддерживает, а вот GIF не хочет.

---

← →
SergProger ©   (2006-07-27 03:00) [3]

Ищи здесь - http://www.delphimaster.ru/cgi-bin/forum.pl?n=7&search=gif

---

← →
SerJaNT ©   (2006-07-27 03:09) [4]

> Ищи здесь

Уже искал, ничего не нашел=((

---

← →
SergProger ©   (2006-07-27 03:13) [5]

Вот тебе код: из файловов GIF (анимированных) вытаскивает каждую картинку в отдельности, или записывает в отдельный BMP по очереди Для этих программок нужен всеми любимый RX Lib (компонент) !!!

procedure TForm1.Button4Click(Sender: TObject);
var
 i, a: integer;
 bm: TBItmap;
begin
 a := 0;
 bm := TBItmap.Create;
 bm.Height := RxGIFAnimator1.Height;
 bm.Width := RxGIFAnimator1.Image.Count * RxGIFAnimator1.width;
 for i := 0 to RxGIFAnimator1.Image.Count - 1 do
 begin
   RxGIFAnimator1.FrameIndex := i;
   bm.Canvas.Draw(a, 0, RxGIFAnimator1.Image.Frames[i].Bitmap);
   a := a + RxGIFAnimator1.Height;
 end;
 //form1.Canvas.Draw(0,0,bm);
 bm.SaveToFile(Edit1.Text + ".bmp");
 bm.free;
end;

---

← →
SerJaNT ©   (2006-07-27 03:17) [6]

> SergProger ©


Спасибо, но мне нужно в ImageView компонента Graphics32 загрузить GIF рисунок (простой или анимированный)!

---

← →
SerJaNT ©   (2006-07-27 04:50) [7]

Забыл езе сказать, что если в Object Inspector принудительно указать рисунок GIF то все отображается (ошибка не появляется), а если во время выполнения проги через loadfromfile() то ошибка.

---

← →
ЮЮ ©   (2006-07-27 09:06) [8]

>если в Object Inspector принудительно указать рисунок GIF

проверни то же в программе, через OpenPictureDialog - тот покажет лишь те расширения, что "поддерживаются" твоей прогой. Добавление в uses нужных модулей (например RxGifImage при установленной RxLib) будет расширять список дочтупных графических типов и обеспечивать правильную загрузку

---

← →
SerJaNT ©   (2006-07-27 09:10) [9]

Все, я разобрался! Я использую GraphicEx  для расширения количества форматов.

---

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

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



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