Delphi заготовки

Программа демонстрирует возможность создания игры в мозаику







картинки для мозайки


Тим массива
 TMassivImage = record
    x,y:integer; // от позиции
    Bit:Tbitmap; // буфер картинки
 end;


var

  ImMas:array of TMassivImage; // массив изображений
  ImMasCount:integer; // кол-во страниц
  CountX,CountY:integer; // кол-во картинок
  DvigBit:Tbitmap; // буфер для передвижения картинок


напишем несколько процедур и типов данных

  // пропорциональное изменение размеров картинки maxWidth ширинка картинки maxHeight // высота картинки
   Function GetImageWH(thumbnail:Timage;maxWidth,maxHeight:integer):Trect;
   begin
   result.Le ... Читать дальше »