Problema curioso con listview

[Casimiro Noteví]

Creo que no lo he comprendido por completo, ya que he hecho una prueba y no se corta el contenido de ningún elemento.

[Choclito]

Claro no hay problema pero si aumentas el ancho y reduces el alto del listview el tercer item tendria que formar una segunda columna,como hago pa[ra que ne muestre ademas , aumento el tamaño del font y me muestra cortada las columnas,
Seguire intentando amigo , gracias por tu comentario

[Casimiro Noteví]

Empezado por Choclito

... si aumentas el ancho y reduces el alto del listview el tercer item tendria que formar una segunda columna...

¿Quiéres decir que automáticamente crea una segunda columna?, ¿que no la crea, y debería crear una segunda columna?, ¿que tú quieres crear una segunda columna?...

Creo que hoy ando algo espeso, voy a descansar de ordenador un rato...

[Choclito]

bueno lo que hice es lo siguiente tengo un listview entonces le puse su propiedad aling en button , luego en su propiedad font le aumente a 16 , y reduje su alto mas o menos para que ingrese tres filas de datos ,
ahora cargo el listview con los datos de la consulta que son 6 registros, entonces al cargar en el listview los primeros 3 los registra pero con un ancho que no se como cambiar y los otros 3 registros los muestra como si hubiera generado otra columna dentro del listview.
Lo que no se es como cambiar el ancho de las columnas que se generar pues los datos los muestra cortados
Lo que quiero que se muestre es
CONTABILIDAD ===> 124545 ESTADISTICA ====>12145
GERENCIA ====>121215454 ADMINISTRACION===>454545
lo que me muestra es:
CONTABILIDAD ==.... ESTADISTICA ==.....
GERENCIA ===>....... ADMINISTRACION.....
Gracias por los comentarios

[[escafandra]]

No veo el problema

Pon en un formulario un TListView y esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.Align:= alClient;
  ListView1.ViewStyle:= vsList;
  ListView1.AddItem('CONTABILIDAD ===> 124545', nil);
  ListView1.AddItem('ESTADISTICA ====>12145', nil);
  ListView1.AddItem('GERENCIA ====>121215454', nil);
  ListView1.AddItem('ADMINISTRACION===>454545', nil);
end;

Al cambiar el tamaño del formulario cambia el ListView. En ningún momento se amputan los textos salvo cuando es mas pequeño que ellos, en cuyo caso aparece un ScrollBar.

Saludos.

[Casimiro Noteví]

Pensé que era yo el que no entendía, si le pones letras grandes y lo haces estrecho... pues no cabe.
Tendrás que ponerlo más ancho o ponerle letras más pequeñas.

[Choclito]

MIl gracias por responder
la verdad que esta linea no la considere
ListView1.ViewStyle:= vsList;
lo tenia ya cambiado, gracias ya encontre como solucionarlo
Ahora bien realizar cambios me ocaciono cambios al pintar el listview
tengo el siguinte codigo para cargar al listview:

Código Delphi [-]
procedure TF_Principal.Button1Click(Sender: TObject);
var
AItem: TListItem;
begin
mdoq_listado.Close;
mdoq_listado.ParamByName('f1').AsDate:=now;
mdoq_listado.ParamByName('f2').AsDate:=now;
mdoq_listado.Open;
ListView1.Clear;
mdoq_listado.First;
while not mdoq_listado.Eof do
begin
  AItem := ListView1.Items.Add;
  aitem.Caption:=mdoq_listado.Fields[3].AsString;
  aitem.SubItems.Add(mdoq_listado.Fields[2].AsString);
 mdoq_listado.Next;
end;
//listview1.ViewStyle:=vsicon;
//ListView1.ViewStyle:=vslist;
end;

tengo la propiedad ownerdrag en true;
tengo el siguiente codigo en uno de los eventos

Código Delphi [-]
procedure TF_Principal.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
if item.SubItems[0]='C2' then
sender.Canvas.Brush.Color:=clred
else
sender.Canvas.Brush.Color:=clWindow;
end;

antes de hacer los cambios con esto del ancho de las columnas daba pues el item que tenia subiten igual a C2 me mostraba de rojo ahora no da
prove con lo siguiente:

Código Delphi [-]
procedure TF_Principal.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if item.Caption='RAYOS X--->58620' then
sender.Canvas.Brush.Color:=clred
else
sender.Canvas.Brush.Color:=clWindow;
end;

y da pero no entiendo porque no da cuando comparo con el subitem ,prove mostrando el subitem en el evento onclick y me muestra el dato
Cual seria el problema o que me falta para que cuando compare con el subitem me cambie de color al item
LO curioso es que daba y ahora noooo, en que me puedo estar equivocando????? , comentarles tambien que inclui otro listview pero aun eso no da
Gracias por las ayudas