Tamaño columnas en TDBLookupComboBox

[[Luis M.]]

Hola a tod@s.
Quisiera saber si es posible cambiar el tamaño de las columnas de un TDBLookupComoboBox y
como se hace.
Estuve buscando por los foros e internet y no he sabido hallar la respuesta.
El problema que tengo es que en el ListField tengo dos campos asignados: CODIGO; FAMILIA.
El campo CODIGO es de un solo carácter y al desplegar la lista me salen los datos muy juntos
y no es muy estético. Por eso quisiera dar tamaño a las columnas.

Gracias por la ayuda.

[ecfisa]

Hola Luis.

Una opción es que crees en tu componente dataset un campo persistente (calculado de tipo string) con una longitud igual a la suma de campo CODIGO + espacio + divisor + espacio + longitud del campo FAMILIA.

Ese campo calculado (llamémosle CALCULADO ) será quién aparezca en la propiedad ListField del TDBLookupComboBox.

Por último agregas un poco de código al evento OnCalcFields del DataSet:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if Assigned(tuDataModule) then
    tuDataModule.tuDataSet.OnCalcFields := tuDataSetCalcFields;
  // else (El DataModule debería estar creado...)
end;

procedure TForm1.tuDataSetCalcFields(DataSet: TDataSet);
begin
  tuDataModule.tuDataSetCalculado.AsString := Format('%s - %s',
    [tuDataModule.tuDataSetCODIGO.AsString,
     Trim(tuDataModule.tuDataSetFAMILIA.AsString)]);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  tuDataModule.tuDataSet.OnCalcFields := nil;
end;

Saludos

[[Luis M.]]

Gracias ecfisa por responder.
Probaré lo que comentas a ver que tal va.
Te diré algo.
Un saludo.

[[Luis M.]]

Hola de nuevo y gracias.
Me distes una pista de como hacerlo.
Cree un campo calculado llamado CodigoEspacio con size := 3
En el evento OnCalcFields de la tabla Familia puse:

Código Delphi [-]
FamiliasCodigoEspacio.AsString := ' '+FamiliasCODIGO.AsString+' ';

y en el ListField puse el campo CodigoEspacio;FAMILIA
Y ya me muestra los datos separados.
Muchas gracias de nuevo.