freepascal.ru

Почему не работает без задания LookupSource?
В TDBLookupComboBox если DataField := DataSet.LookupField то LookupSource создается автоматически:

procedure TDBLookup.DoInitialize;
var
ListFields: TList;
ListLinkDataset: TDataSet;
begin
FDataFields.Clear;
FKeyFields.Clear;
FListField := nil;
FHasLookUpField := False;
FLookUpFieldIsCached := False;
if Assigned(FControlLink) and Assigned(FControlLink.DataSet)
and FControlLink.DataSet.Active then
begin
if Assigned(FControlLink.Field) then
begin
FHasLookUpField := (FControlLink.Field.FieldKind = fkLookup);
FLookUpFieldIsCached := (FHasLookupField and FControlLink.Field.LookupCache);
if FHasLookUpField then
begin
if FLookupSource = nil then
FLookupSource := TDataSource.Create(Self);
if (FLookupSource.DataSet <> FControlLink.Field.LookupDataSet) then
FLookupSource.DataSet:= FControlLink.Field.LookupDataSet;
FListLink.DataSource := FLookupSource;
FDataFieldNames := FControlLink.Field.KeyFields;
FKeyFieldNames := FControlLink.Field.LookupKeyFields;
end else
FDataFieldNames := FControlLink.Field.FieldName;
FControlLink.DataSet.GetFieldList(FDataFields, FDataFieldNames);
end;
end;
if not FHasLookUpField then
FListLink.DataSource := FListSource;

if (FKeyFieldNames > '') and FListLink.Active then
begin
ListLinkDataset := FListLink.DataSet;
ListFields := TList.Create;
try
ListLinkDataset.GetFieldList(ListFields, FListFieldName);
ListLinkDataset.GetFieldList(FKeyFields, FKeyFieldNames);
if FHasLookUpField then
begin
FListField := ListLinkDataset.FindField(FControlLink.Field.LookupResultField);
if (Assigned(FListField) and (ListFields.IndexOf(FListField) < 0)) then
ListFields.Insert(0, FListField);
if (ListFields.Count > 0) then
FListField := TField(ListFields[0]);
end else
begin
if ((FKeyFields.Count > 0) and (ListFields.Count = 0)) then
ListFields.Add(FKeyFields[0]);
if ((FListFieldIndex > -1) and (FListFieldIndex < ListFields.Count)) then
FListField := TField(ListFields[FListFieldIndex])
else
FListField := TField(ListFields[0]);
end;
finally
ListFields.Free;
end;
FetchLookupData;
end;
end;

kit писал(а):Почему не работает без задания LookupSource?

А в чём смысл этой компоненты без лукапа?
Откуда значения брать?

Надо создавать при инициалицации так как в TDBLookupComboBox
FLookupSource := TDataSource.Create(Self);

Зачем?
Там надо указывать тот источник данных, который содержит в себе справочные значение.
А так - ну создали - и что?
Кто данные предоставит?
И если я потом указываю свой источник данных - с этим созданным что делать?

В TDBLookupComboBox работает.. но там есть проблема если KeyField = 'id1;id2';

Чтобы не начинать новую тему
Ревизия 6177.Реализовал новое свойство - RxDBLookupCombo.Style

У TRxDBLookupCombo Height=27 Как сделать меньше? Чтобы выглядел как стандартный.

Самому уменьшать. Если есть возможность - привязать по высоте к расположенному рядом какому нибудь edit-у или combobox-у.
На самом деле - это у меня проблема сейчас. Я не знаю как получить стандартную высоту ComboBox-а в системе для установки её в лукапе.
Если кто знает - делитесь секретом.

Реально сделать фильтр списка lookup?
Может так как в JvDBCombobox.pas по условию Pos(Text, Items[Index]) > 0 прорисовивать DrawText

там в виде списка используется RxDBGrid. Используй фильтра на подключенный датасет.