Главная страница
    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.013 c
4-1125490472
Никита
2005-08-31 16:14
2005.12.18
Запись CD


2-1133301449
Aleks
2005-11-30 00:57
2005.12.18
Подскажите мастера, как получить код символа


2-1133521765
-=SPIDER=-
2005-12-02 14:09
2005.12.18
Проблема при удалении папки


2-1133426018
coral
2005-12-01 11:33
2005.12.18
ADO


2-1133242679
Andry
2005-11-29 08:37
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский