УЧИМ DXIMAGELIST

УЧИМ DXIMAGELIST

ВВЕДЕНИЕ

Я надеюсь ты уже изучил статьи "Учим DelphiX" и "Учим DXInput", т.к. это продолжение, относящееся к компоненту DXImageList, ктоторый работает с графикой, как TImageList Delphi.

Вот как найти его на панели DelphiX

Выбирай и ставь его на форму, созданную нами в прошлом уроке. Поехали!

УРОК 3

Как это проверить на работоспособность? В свойствах DXImageList'а ищем DXDraw и выберем там наш экран - DXDraw:

Теперь положим туда рисунок. Например, вот этот сохраните эту картинку. Теперь найдите там Items и нажмите на соседнее поле 2 раза. Появится вот, что:

Нажмите на желтенький листок, чтобы вставить нашу картинку. Изменим имя на TEST и нажмите на параметр picture

Появится окошко выбора файла. Выбирайте наш *.bmp файл. TransparentColor будет равен clRed - это значит, что этот цвет виден при выводе не будет. Теперь закроем окошко Editing (рис 555). Всё наш вайл в программе. Сохраним.

Добавим две переменные i и j типа integer.

var
Form1: TForm1;
X,
Y:Integer;
i,
j:Integer;

Теперь, как рисовать. После DXDraw.Surface.Fill(0); пишем:

For i:=0 to 10 do
For j:=0 to 10 do
DXImageList1.Items[0].Draw(DXDraw.Surface,i*100,j*50,0);

Теперь фон будет изрисован буквами DX. Можно так же вместо текста выводить картинку. Нужно написать:

DXImageList1.Items[0].Draw(DXDraw.Surface,X,Y,0);

Все!