Главная страница
    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.015 c
2-1133258980
Malamba
2005-11-29 13:09
2005.12.18
трансформация строки в число ...


1-1132300332
webpauk
2005-11-18 10:52
2005.12.18
Создание компонента


9-1116337250
Lexmark
2005-05-17 17:40
2005.12.18
Как можно перетащить модели из игр!


1-1132669206
CaptainAlex
2005-11-22 17:20
2005.12.18
Как корректно удалить Frame?


1-1132640185
Frozzen
2005-11-22 09:16
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский