Свойства в инспекторе обьектов

Dimon184 · May 2011

Здравствуйте.
Есть свойство AliasName в компоненте TfrxAdsConnection (наследник от TfrxCustomDatabase).

Свойство AliasName нужно сделать в виде выпадающего списка.
Ничего не помогает. Тип Стринг. Пишу в frxADSEditor.pas следующее:

type
  TfrxAliasNameProperty = class(TfrxStringProperty)
  public
    function GetAttributes: TfrxPropertyAttributes; override;
    procedure GetValues; override;
  end;

{ TfrxAliasNameProperty }
{------------------------------------------------------------------------------}
function TfrxAliasNameProperty.GetAttributes: TfrxPropertyAttributes;
begin
  Result := [paMultiSelect, paValueList{, paSortList}];
end;
{------------------------------------------------------------------------------}
procedure TfrxAliasNameProperty.GetValues;
var List :TStringList;
begin
 List := TStringList.Create;
 try
 List.Add('11111111111111');
 List.Add('22222222222222');
 List.Add('33333333333333');
 List.Add('44444444444444');
 List.Add('55555555555555');
 Values.Assign(List);
 finally
   List.Free;
 end;
end;
{------------------------------------------------------------------------------}

initialization
  frxPropertyEditors.Register(TypeInfo(String), TfrxAdsConnection, 'AliasName',
    TfrxAliasNameProperty);

Цифры так, для чистоты эксперимента. Делал по другому, нормально, результат тот же.
В frxADSComponents.pas все нормально на 100%, даже не привожу код.

Пожалуйста, подскажите хоть в какую сторону думать, буду очень признателен.

P.S. Я уже спросил здесь, и надеюсь что я сейчас не "мартышкин труд" делаю ))))

gpi · May 2011

Попробуйте

procedure TfrxAliasNameProperty.GetValues;
var List :TStringList;
begin
inherited;
List := TStringList.Create;
try
List.Add('11111111111111');
List.Add('22222222222222');
List.Add('33333333333333');
List.Add('44444444444444');
List.Add('55555555555555');
Values.Assign(List);
finally
   List.Free;
end;
end;

Dimon184 · May 2011

Спасибо, gpi, но дело было в банальной невнимательности.
Я написАл, что в frxADSComponents.pas все нормально, а на деле я просто забыл заюзать этот frxADSEditor.pas.
Но inherited, я думаю, там лишний не будет

Свойства в инспекторе обьектов

Комментарии

Оставить комментарий