Как работать с GIF файламиDelphi , Графика и Игры , GIFКак работать с GIF файламиЭтот код, делает следующее, загружаем в листбох список Gif файлов, затем это все дело обьединяетсяв один BMP файл,картинка к картинке, кто знает DirectX поймет для чего это надо (спрайты) procedure TForm1.Button2Click(Sender: TObject); begin if opendialog1.Execute then begin ListBox1.Items := opendialog1.Files; Edit2.Text := inttostr(ListBox1.Items.Count); end; end; procedure TForm1.Button1Click(Sender: TObject); var i, a: integer; bm: TBItmap; begin a := 0; bm := TBItmap.Create; image1.Picture.LoadFromFile(listbox1.Items[0]); bm.Height := image1.Height; bm.Width := listbox1.Items.Count * image1.Picture.width; for i := 0 to listbox1.Items.Count - 1 do begin image1.Picture.LoadFromFile(listbox1.Items[i]); bm.Canvas.Draw(a, 0, image1.Picture.Graphic); a := a + image1.Picture.Height; end; //form1.Canvas.Draw(0,0,bm); bm.SaveToFile(Edit1.Text + '.bmp'); bm.free; end; Статья Как работать с GIF файлами раздела Графика и Игры GIF может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |