Форум: "Основная";
Текущий архив: 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.rcuses ..., 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