Подскажите, плз, как они "выкусывают" свой TCheckListBoxDataWrapper (объект для хранения состояния итема - cbChecked, cbUnchecked, cbGrayed и т.д.) при таком доступе к ассоциированному объекту:

j = *(long*)TestBox->Items->Objects[0];

В TCheckListBoxDataWrapper'е есть поле для хранения адреса ассоциированных данных пользователя.


TCheckListBox *TestBox;
long *i, j;
i = new long;
*i = 9999;

TestBox->Items->AddObject("test sg", (TObject*)i);
TestBox->Checked[0] = 1;
TestBox->State[0] = cbGrayed;
j = *(long*)TestBox->Items->Objects[0];

j == *i //

Оно в принципе правильно работает, но я не могу понять, как они это делают?
Перелопатил весь checklst.pas, не нашел.
Пожалуйста, помогите !

Ничего не понял. Причем здесь ассоциированые объекты? Эти объекты используются только, если у программиста возникла необходимость хранить наряду с текстовой строкой дополнительную информацию. Если такой необходимости нет, его можно просто не использовать. В твоем примере просто дополнительно хранится число 9999. До состояния можно добраться через State или Checked

Код

TCheckListBox *TestBox; long *i, j; i = new long; *i = 9999; // добавляем пункт "test sg" и ассоциируем с ним число 9999 TestBox->Items->AddObject("test sg", (TObject*)i); // устанавливаем Checked TestBox->Checked[0] =  true; //сбрасываем Checked и  устанавливаем cbGrayed //а хотели наверное TestBox->ItemEnabled[0] = false TestBox->State[0] = cbGrayed; // обратно получаем ассоцироавнный объект  9999 j = *(long*)TestBox->Items->Objects[0]; j == *i //

Мне надо написать компонент типа TComboBox, только с возможностью множественного выбора. Я ковырял исходники TCheckListBox, чтобы понять как и где они хранят состояние итемов. Оказалось, они вставляют объект TCheckListBoxDataWrapper(хранящий состояние итемов) между итемом и ассоц. данными, то есть итем указывает не на ассоц. данные, а на TCheckListBoxDataWrapper, а он, в свою очередь, на ассоц. данные. При доступе к асс. данным методами TCheckListBox TCheckListBoxDataWrapper явно выкусывается (видно в исх. коде), но при доступе методами TStrings и TStringList выкусывания в коде нет!!! А ведь при доступе к асс. данным методами TStrings я получаю нормальные асс. данные, как в моем примере. Тем не менее, в TStrings не имеют представления о том, что между итемом и асс. данными может что-то быть, но методы TStrings корректно работают. (!!! Ж8-О)

Состояние итемов они хранят, как ты правильно заметил в TCheckListBoxDataWrapper.
Что здесь непонятно, я лично не понял. Во первых, надо учитывать, что в TCustomListBox используется не просто TStringList, а TListBoxStrings. У него переопределены GetObject и SetObject. Они для получения ассоциированного объекта используют методы своего владельца, в данном случае CheckListBox. ( учти метод GetItemData - DYNAMIC)

Код

function TListBoxStrings.GetObject(Index: Integer): TObject; begin  if ListBox.Style in [lbVirtual, lbVirtualOwnerDraw] then    Result := ListBox.DoGetDataObject(Index)  else  begin    Result := TObject(ListBox.GetItemData(Index));    if Longint(Result) = LB_ERR then Error(SListIndexError, Index);  end; end;

Ну а TCheckListBox::GetItemData и выполняет "выкусывание"

Код

function TCheckListBox.GetItemData(Index: Integer): LongInt; begin  Result := 0;  if HaveWrapper(Index) then    Result := TCheckListBoxDataWrapper(GetWrapper(Index)).FData; end;

Vyacheslav, спасибо