Архив форумов ЦИТФорума

[Gass]

Что необходимо сделать, чтоб картинки из ImageList выпадали в свойстве ImageIndex в Object Inspector как в стандартных компонентах Delphi?? Столько дней уже мучаюсь!
Спасибо.

[Александр]

Вот пример описания класса из исходников по C++ Builder. Мне кажется, что Builder делает выпадающие картинки, когда ImageIndex описана как TImageIndex, а не int. Возможно я ошибаюсь. Более подробно можно посмотреть этот пример в файле CBuilder\Source\Vcl\actnlist.pas, который описывает компонент TActionList.

TCustomAction = class(TContainedAction)
private
FImageIndex: TImageIndex;
...
procedure SetImageIndex(Value: TImageIndex);
...
protected
FImage: TObject;
...
public
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;