Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Ivanov (2005-10-03 19:20:00) [1]
Написал такой код:

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 она не загрузилась. Подскажите, кто может, в чём дело?

alexbou (2005-10-02 18:44:00) [2]
А теперь - тишина! Барабанная дробь....

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

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

...???

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

begin...end (2005-10-02 18:44:00) [3]
> alexbou (02.10.05 17:10) [2]

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

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

> alexbou (02.10.05 17:10) [2]

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

alexbou (2005-10-02 17:10:00) [5]
На орешек тянет однако :)

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

злобная танька (2005-10-02 16:05:00) [6]
тяжелый случай!
попробуй Items.Add

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »