Alinear a la izquierda los items de un DBLookUpLisBox

[kdemia]

Como el titulo lo dice, necesito que los items de un DBLookUpLisBox esten alineados a la izquierda o al centro.. porque por defecto estan a la derecha.. pero no los quiero ahi.. si alguien me dice como se hace le voy a estar eternamente agradecido..

Saludos

[*Caro*]

Hola kdemia, para poder alinear el texto tendrías que dibujar, el problema es que el DBLookUpLisBox no tiene un evento de dibujo, por lo que no creo que se pueda, a no ser que utilices el ListBox normal, lo llenes con tus datos y ahi hagas la alineación.

Saluditos

[kdemia]

como seria eso? asi puedo probarlo..

[ecfisa]

Hola.

Mediante el DBLookupListBox, tál como dice Caro, parece no ser viable.

Pero para agregar otra opción, se me ocurre que podés hacer algo desde el campo que estás mostrando en el DBLookupListBox:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
  ...
  private
    procedure AlinearDBLookupListBox(Alineado: TAlignment);
  end;
...
implementation
...

procedure TForm1.AlinearDBLookupListBox(Alineado: TAlignment);
begin
  DataSet.FieldByName('TU_CAMPO').Alignment:= Alineado;
end;
...

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  AlinearDBLookupListBox(taCenter); //taLeftJustify, taRightJustify, taCenter
end;

Claro está que de este modo, son afectados todos los Data Controls que hagan referencia a ese TField. Es decir que si utilizas tambien un DBGrid
que contenga ese campo, allí también se reflejará el cambio de alineación...

Un saludo.