Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.12.18;
Скачать: [xml.tar.bz2];

Вниз

Как записать и вытащить Gif файл из ресурса   Найти похожие ветки 

 
kyn66 ©   (2005-11-23 14:44) [0]

Мастера, САБЖ.


 
Digitman ©   (2005-11-23 14:46) [1]

в ресурсе какого типа хранится сабж ? RT_RCDATA ?


 
clickmaker ©   (2005-11-23 14:46) [2]

*.rc

ID_MYGIF  "GIF"   "pic.gif"

потом LoadResource
или TGifImage из RxLib


 
kyn66 ©   (2005-11-23 14:53) [3]

Чтобы прикрутить его к TImage, нужно Image1.Picture.LoadRecource? Но там нет такого метода 8-(


 
Digitman ©   (2005-11-23 15:01) [4]

найди компонент TGifImage, он имеет метод LoadFromStream()
параметром метода TGifImage.LoadFromStream() будет соответствующий TResourceStream.

сопрячь же TGifImage с TImage не составляет труда.


 
kyn66 ©   (2005-11-23 15:07) [5]

Нет, если есть TGifImage(правда что-то не нахожу его у себя, тока TrxGifAnimator) можно и его, главное вытащить правильно из ресурса.


 
Reindeer Moss Eater ©   (2005-11-23 15:10) [6]

Если будет скрытый rxGifAnimator или еще какой другой контрол, то зачем париться с загрузкой?
Загруженный рисунок в дизайн тайме и так попадет при сборке в ресурсы.


 
clickmaker ©   (2005-11-23 15:20) [7]


> kyn66 ©   (23.11.05 15:07) [5]
> Нет, если есть TGifImage

RX\Units\rxgif.pas


 
AbrosimovA   (2005-11-23 16:21) [8]

gif.rc:
ID_MYGIF RCDATA pic.gif

resource.bat:
"C:\Program Files\Borland\Delphi6\Bin\brcc32.exe" gif.rc

uses  ..., GIFImage;

type
 TForm1 = class(TForm)
   Image1: TImage;
   procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
{$R gif.res}

procedure TForm1.FormShow(Sender: TObject);
var Pict: TGIFImage;
begin
try
 Pict:=TGifImage.Create;
 Pict.LoadFromResourceName(hInstance,"ID_MYGIF");
 Image1.Picture.Assign(Pict);
finally
 Pict.Free;
end;
end;

end.



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

Форум: "Основная";
Текущий архив: 2005.12.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.019 c
8-1121117343
АСК1
2005-07-12 01:29
2005.12.18
pfDevice - это сколько байт на пиксель в TBitMap ?


9-1115312340
nikolya
2005-05-05 20:59
2005.12.18
GLScene тени


2-1133504778
Новичек
2005-12-02 09:26
2005.12.18
Что означает данный параметр?


1-1132122808
Stanislav
2005-11-16 09:33
2005.12.18
Сохранение пременной типа Record в поток


2-1133425225
File-Open
2005-12-01 11:20
2005.12.18
Как изменить путь к папке проектов, используемый по умолчанию?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский