Как использовать TcxCustomDataSource в TcxExtLookupComboBox? - PullRequest
3 голосов
/ 03 августа 2010

Я использую TcxExtLookupComboBox от Devexpress и пытаюсь реализовать пользовательский источник данных.Я установил пользовательский источник данных следующим образом:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  fDataSource := TMyDataSource.Create;
  cbotestSearch.Properties.View.DataController.CustomDataSource := fDataSource;
end;

Здесь определен TMyDataSource:

unit Datasource;

interface

uses
  Classes,
  IBQuery,
  SysUtils,
  cxCustomData;

type
  TSearchItem = class
    private
      BoldID: String;
      Display: String
  end;

  TMyDataSource = class(TcxCustomDataSource)
  private
    fSearchList: TList;
  protected
    function GetRecordCount: Integer; override;
    function GetValue(ARecordHandle: TcxDataRecordHandle; AItemHandle: TcxDataItemHandle): Variant; override;
  public
    constructor Create;
    destructor Destroy; override;
    procedure GetData;
  end;

implementation

constructor TMyDataSource.Create;
begin
  inherited Create;
  fSearchList := TList.Create;
end;

destructor TMyDataSource.Destroy;
begin
  FreeAndNil(fSearchList);
  inherited;
end;

procedure TMyDataSource.GetData;
var
  vItem: TSearchItem;
begin
  fSearchList.Clear;

  vItem := TSearchItem.Create;
  vItem.BoldID  := '1000';
  vItem.Display := 'test';
  fSearchList.Add(vItem);

  vItem := TSearchItem.Create;
  vItem.BoldID  := '1100';
  vItem.Display := 'test2';
  fSearchList.Add(vItem);

  DataChanged;    // Don't do anything as provider is nil
end;

function TMyDataSource.GetRecordCount: Integer;
begin
  // Is never entered
  Result := fSearchList.Count;
end;

function TMyDataSource.GetValue(ARecordHandle: TcxDataRecordHandle;
  AItemHandle: TcxDataItemHandle): Variant;
begin
  // Is never entered
  Result := 'Test';
end;

end.

Проблема в том, что TMyDataSource.GetValue никогда не вызывается.Любая подсказка, как исправить?

Обновление 1: У меня есть еще одна подсказка здесь.Если я один шаг в методе DataChanged, который должен вызвать GetValue, будет выглядеть так:

procedure TcxCustomDataSource.DataChanged;
begin
  if Provider = nil then Exit;

  // Code using Provider
end;

, и в этом случае Provider равен nil.Но я назначил источник данных в формах, как вы видите.

1 Ответ

1 голос
/ 03 августа 2010

cxExtLookupComboBox может работать только с представлениями БД. Такие представления не могут принимать экземпляры объекта TcxCustomDataSource в качестве источника данных. Итак, ваш код не будет работать :-(. Есть предложение реализовать эту функцию в будущем, и он зарегистрирован по адресу:

http://www.devexpress.com/Support/Center/ViewIssue.aspx?issueid=AS10025

...