Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 921

•  TDictionary Custom Sort  6 028

•  Fast Watermark Sources  5 817

•  3D Designer  8 636

•  Sik Screen Capture  6 150

•  Patch Maker  6 589

•  Айболит (remote control)  6 579

•  ListBox Drag & Drop  5 441

•  Доска для игры Реверси  95 360

•  Графические эффекты  6 793

•  Рисование по маске  5 964

•  Перетаскивание изображений  4 967

•  Canvas Drawing  5 341

•  Рисование Луны  5 066

•  Поворот изображения  4 606

•  Рисование стержней  3 264

•  Paint on Shape  2 506

•  Генератор кроссвордов  3 396

•  Головоломка Paletto  2 698

•  Теорема Монжа об окружностях  3 493

•  Пазл Numbrix  2 293

•  Заборы и коммивояжеры  2 984

•  Игра HIP  1 945

•  Игра Go (Го)  1 858

•  Симулятор лифта  2 207

•  Программа укладки плитки  1 929

•  Генератор лабиринта  2 368

•  Проверка числового ввода  2 053

•  HEX View  2 376

•  Физический маятник  2 009

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как работать с 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;




Похожие по теме исходники

TGIFImage (GIF изображения)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте