Problema curioso con listview

[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

[ecfisa]

Hola Choclito.

Creo entender que buscas que el valor de la propiedad Caption del Item aparezca pintado cuando el valor del SubItem cumpla determinada condición.
Si te entendí bien, entonces creo que tendrías que hacer la evaluación en el evento OnCustomDrawItem, por ejemplo:

Código Delphi [-]
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.SubItems[0] = 'C2' then
  begin
    Sender.Canvas.Brush.Color:= clRed;
    Sender.Canvas.Font.Color:= clWhite;
  end;
end;

Un saludo.

[Choclito]

muchas gracias amigo por el post, lo probare pero cuan desesperado estaba lo cambie con un dbgrid
Mi intencion es hacer un sistema de colas y es por eso que queria mostrar los datos en un tlistview en la parte inferior del formulario, lo cambie con un dbgrid que lo puse al extremo derecho del formulario
NUevamente preguntando a los amigos de foro:
MI pregunta es: puedo cambiar los colores de las celdas de un dbgird desde un boton ?? que codigo tendria que colocar
Bueno tengo lo siguiente::

Código Delphi [-]
procedure TF_Egreso_Med_Q.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if column.Index=2 then
begin
    if gdFocused in State then begin
    DBGrid2.Canvas.Brush.Color := clyellow;    // Color que quieras que tenga el fondo si la línea tiene foco;
      DBGrid2.Canvas.Font.Color  := clblue;   // Color del Font que quieras que tenga si la línea tiene foco
        dbgrid2.Canvas.Font.Size := 10;
        dbgrid2.Canvas.Font.Style := [fsBold]

    end;
    end;
      if MDOQ_Med_Q.FieldByName('valor').AsString='N' then
  begin
  dbgrid2.Canvas.Brush.Color:=clred;
  dbgrid2.Canvas.Font.Color:=clblack;
  end;
     if MDOQ_Med_Q.FieldByName('valor').AsString='F' then
  begin
  dbgrid2.Canvas.Brush.Color:=clyellow;
  dbgrid2.Canvas.Font.Color:=clblack;
  end;
  dbgrid2.DefaultDrawColumnCell(Rect,Datacol,Column,State);

end;

pero esto es un evento del dbgrid
lo que quisiera es desde un boton o un event en el form
Espero haber sido entendido y estare atento a sus comentarios amigos del foro
PD:era necesario abrir otro post???

[ecfisa]

Hola Choclito.

PD:era necesario abrir otro post???

Si no te incomoda hacerlo, te lo agradecería. De ese modo es más fácil que otros compañeros encuentren respuesta a un problema similar cuando realizen las búsquedas.

Un saludo.

[Choclito]

Disculpas por la torpeza, lo hare inmediatamente