добавление Item в TDXImageList

← →
Ivanov (2005-10-02 15:57) [0]

Мастера, подскажите: нужно добавить новую картинку в ImageList - пишу:
Form1.dxImageList1.Items.Create(Form1.DXImageList1.Items[9]);
- при компиляции всё нормально, при запуске - ошибка.

← →
злобная танька (2005-10-02 16:05) [1]

тяжелый случай!
попробуй Items.Add

← →
alexbou (2005-10-02 17:10) [2]

На орешек тянет однако :)

это все равно что TList.Create(TList.Items)

← →
злобная танька (2005-10-02 17:59) [3]

> alexbou (02.10.05 17:10) [2]

поправочка
TList.Create(TList.Items[9])
:)

← →
alexbou (2005-10-02 18:44) [4]

А теперь - тишина! Барабанная дробь....

что будет если....

List: TList; // в TForm1
...
List := List.Create(List.Items[9]);

...???

Правильно - Access Violation.... =) и спасибо танька :)))

> alexbou (02.10.05 17:10) [2]

Нет, не то же самое. В [0] не создаётся новый экземпялр класса, а в [2] создаётся.

← →
Ivanov (2005-10-03 19:20) [6]

Написал такой код:

Form1.dxImageList1.Items.Add;
Form1.dxImageList1.Items[9].Name:="9";
Form1.dxImageList1.Items[9].PatternHeight:=0;
Form1.dxImageList1.Items[9].PatternWidth:=0;
Form1.dxImageList1.Items[9].Picture.LoadFromFile("9.bmp");
Form1.dxImageList1.Items[9].SkipHeight:=0;
Form1.dxImageList1.Items[9].SkipWidth:=0;
Form1.dxImageList1.Items[9].SystemMemory:=false;
Form1.dxImageList1.Items[9].Transparent:=false;
Form1.dxImageList1.Items[9].TransparentColor:=StringToColor("clBlack");

Всё запускается, работает, но когда должна загрузиться новая картинка - чернота. Похоже в ImageList она не загрузилась. Подскажите, кто может, в чём дело?

добавление Item в TDXImageList Найти похожие ветки