Разделение изображения на квадраты с помощью Canvas

[Gogia]

Добрых всем времени суток!
На повестке дня у меня возник вопрос:

Хочу сделать карту местности для своей игры. Но при создании массива image(картинка размером 10 на 10 грузятся в ряд!) программа неимоверно тормозит. Мне посоветовали просто разделить большое изображение на квадраты с помощью Canvas. К сожелению у меня ещё мало опыта в работе с Delphi и я хотел бы попрасить у вас помощи!

[DomiNick]

при создании массива image

Это как? Просто накидали кучу TImage на форму?))


Можно сделать например так:

Поместить на форму компонент TImageList, в Инспекторе Объектов задать нужные свойства (размер 10х10 и.т.д.), после двойного щелчка на квадратике ImageList1 можем загружать в него картинки (размер должен быть одинаковым)...
А потом в цикле выводить на Canvas... Вот например в таймере (для проверки):

Var i: Integer;

. . .

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
ImageList1.Draw(Form1.Canvas, i*32, 0, Random(9));
If i<9 Then
      Inc(i)
Else
      i:=0;
End;

// здесь:
// 9 - количество кадров минус единица (так как отсчёт ведётся с нуля)
// 32 - ширина кадра

А по идее надо делать так:

1. Объявляем переменную типа TBitmap (можно глобальную):

Var MyBitmap: TBitmap;

2. При запуске программы создаём объект:

MyBitmap:=TBitmap.Create;

после этого можно загрузить картинку из bmp-файла (ну или рисовать вручную):

MyBitmap.LoadFromFile(' {<полный или относительный путь к картинке>} ');

3. Можем выводить эту картинку на на форму (или в TImage; или в другой битмап) при помощи WinAPI-функции в заданных координатах:

Windows.BitBlt(Form1.Canvas.Handle, 0, 0, MyBitmap.Width, MyBitmap.Height, MyBitmap.Canvas.Handle, 0, 0, $00CC0020);

4. При выходе из программы (или когда битмап будет уже не нужным) обязательно освобождаем память:

MyBitmap.Free;