Alinear Texto del ComboBox

[MaMu]

Existe alguna forma de alinear los items de un ComboBox??
Siempre estan alineados a la izquierda, habra forma de centrarlos?

Saludos

[[Caral]]

Hola
Buena pregunta.
Como cargas los items?
Tienes en cuenta que depende del tamaño de cada item asi se desplazara, siempre a la derecha?
Saludos

[[cHackAll]]

Código Delphi [-]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TComboBox) do
  begin
   Canvas.FillRect(Rect);
   SetTextAlign(Canvas.Handle, TA_RIGHT);
   Canvas.TextOut(Rect.Right - 4, Rect.Top, Items[Index]);
  end;
end;

0j0: Style = csOwnerDrawFixed

[MaMu]

Empezado por cHackAll

Código Delphi [-]procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TComboBox) do
begin
Canvas.FillRect(Rect);
SetTextAlign(Canvas.Handle, TA_RIGHT);
Canvas.TextOut(Rect.Right - 4, Rect.Top, Items[Index]);
end;
end;




0j0: Style = csOwnerDrawFixed

Esto esta perfecto, para Izquierda o derecha, pero como puedo centrarlos?

Saludos

[[egostar]]

Empezado por mamu

Esto esta perfecto, para Izquierda o derecha, pero como puedo centrarlos?

Saludos

A ver, sentido común.....

1. TA_RIGHT
2. TA_LEFT
3. TA_TOP
4. TA......

Salud OS

[MaMu]

Empezado por egostar

A ver, sentido común.....

1. TA_RIGHT
2. TA_LEFT
3. TA_TOP
4. TA......

Salud OS

Je. Se supone que si vuelvo a preguntar es porque al probar el procedimiento y usar el sentido común intentando con:

1. TA_CENTER
2. TA_MIDDLE
3. TA_CLIENT

en ninguno de los casos me funciona, me lo toma como TA_RIGHT o TA_LEFT

Saludos

[[Caral]]

Hola
Para mi, como soy novato, me parece que tiene que ver con la numeración que se le de a la posición.
Siempre tomara la posición aportada por cuan separado de los bordes este.
He probado el codigo y efectivamente centra, pero dependiendo de la posicion que se le de, ya que toma en cuenta el tamaño del texto.
Saludos
PD: Fenomenal el codigo, cHackAll, tipico de ti.

[MaMu]

Empezado por Caral

Hola
Para mi, como soy novato, me parece que tiene que ver con la numeración que se le de a la posición.
Siempre tomara la posición aportada por cuan separado de los bordes este.
He probado el codigo y efectivamente centra, pero dependiendo de la posicion que se le de, ya que toma en cuenta el tamaño del texto.
Saludos
PD: Fenomenal el codigo, cHackAll, tipico de ti.

Claro, pero ahi esta el punto. No centra, desplaza. Por lo que dos dimenciones de items tendrian que tener diferente desplazamiento.

Saludos.

[keyboy]

Empezado por mamu

Claro, pero ahi esta el punto. No centra, desplaza.

De vez en cuando es bueno leerse la documentación.

Cuando pones TA_CENTER el texto sí queda centrado, pero respecto del punto de referencia. En el ejemplo de cHackAll, el punto de referencia es (Rect.Right - 4, Rect.Top), es decir, casi el borde derecho, lo cual está bien para un alineamiento a la derecha. Usando TA_CENTER y el borde derecho como centro, el efecto es que la mitad derecha del texto desaparece (queda "fuera" del combo).

Así pues, viendo el ejemplo que te ofrecieron, y leyendo la documentación, hubieras captado que como punto de referencia debes tomar el centro del rectángulo que te pasan:

(Rect.Left + Rect.Right) div 2

Bye

[MaMu]

Empezado por keyboy

De vez en cuando es bueno leerse la documentación.

Cuando pones TA_CENTER el texto sí queda centrado, pero respecto del punto de referencia. En el ejemplo de cHackAll, el punto de referencia es (Rect.Right - 4, Rect.Top), es decir, casi el borde derecho, lo cual está bien para un alineamiento a la derecha. Usando TA_CENTER y el borde derecho como centro, el efecto es que la mitad derecha del texto desaparece (queda "fuera" del combo).

Así pues, viendo el ejemplo que te ofrecieron, y leyendo la documentación, hubieras captado que como punto de referencia debes tomar el centro del rectángulo que te pasan:

(Rect.Left + Rect.Right) div 2

Bye

Ok, lo que no entiendo es la afirmación de leer la documentación, porque no viene al caso.
Y vuelvo a repetir, no centra, solamente desplaza, por lo que el centrado es solo horizontal, probe de todo para el vertical y este no centra.

Saludos

[PeterPunk]

Empezado por mamu

probe de todo para el vertical y este no centra.

Pero con TextOut le indicas la posición X e Y donde está el texto por lo que ahí sí que podrías centrar:

Código Delphi [-]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TComboBox) do
    begin
      Canvas.FillRect(Rect);
      SetTextAlign(Canvas.Handle, TA_CENTER);
      Canvas.TextOut(Rect.Right div 2, Rect.Top + (ItemHeight + Font.Height) div 2, Items[Index]);
    end;
end;

De todas formas ésto sólo sirve si cambias el tamaño de la fuente y/o de los items del combobox dejándolos descompesados y lo cierto es que no entiendo la utilidad de esto.
Por ejemplo usar una letra de tamaño 8 y un ComboBox.ItemHeight de valor 30

Saludos.

[keyboy]

Será que entendemos cosas distintas por "centrado":



Bye

[[cHackAll]]

Empezado por keyboy

Será que entendemos cosas distintas por "centrado":



Bye

por casualidad probaste la variacion que dejo PeterPunk?

[keyboy]

Empezado por cHackAll

por casualidad probaste la variacion que dejo PeterPunk?

¿Por qué lo preguntas? Mi comentario iba dirigido a mamu quien insiste en que no centra.

Bye

[[cHackAll]]

ooops, me perdí

[MaMu]

Empezado por keyboy

¿Por qué lo preguntas? Mi comentario iba dirigido a mamu quien insiste en que no centra.

Bye

pero no era insistencia, es solo que no me funcionaba de ninguna forma. Logre que me funcionara usando el JvComboBox, ya que el standad de delphi no me lo permite, el porque? no tengo idea, seguramente algun archivo corrupto.

SOLUCIONADO

[michal]

Pero hay un detalle, la propiedad Style puesta en csOwnerDrawFixed anula la propiedad Text del propio ComboBox, restandole un poco de estética.

Generalmente se usa algo así ComboBox1.Text := '-- Seleccione --'; y luego al desplegar del ComboBox aparece la lista. Lo intenté con las otras variantes de Style pero ni modo.

Alguna Solución que no implique ponerle un TLabel encima ??