Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.18;
Скачать: CL | DM;

Вниз

Как записать и вытащить 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
2-1133466205
Officeman
2005-12-01 22:43
2005.12.18
HINT не высвечивается в w98 и wXP


14-1132667294
Opilki_Inside
2005-11-22 16:48
2005.12.18
Алгоритм получение уникального номера железа


1-1132553257
dreamse
2005-11-21 09:07
2005.12.18
Как в DBChart выводить значения времени ?


2-1133521081
Suriken
2005-12-02 13:58
2005.12.18
гиперссылка


2-1133245363
Andry
2005-11-29 09:22
2005.12.18
Фокус бутона