Ver Mensaje Individual
  #1  
Antiguo 08-03-2024
jmbarrio jmbarrio is offline
Miembro
 
Registrado: may 2003
Posts: 65
Reputación: 21
jmbarrio Va por buen camino
No me sale el header en la cabecera del ListView

Buenos días, tengo el siguiente codigo

Código Delphi [-]
procedure TF_ListaAlbaranes.FormShow(Sender: TObject);
var
  sqlstr:string;
  item,item1: TListViewItem;
begin
  With F_Data.FDQryListaAlbaranes do
    begin
      Sql.Clear;
      Active := False;
      sqlstr:= 'Select cal_serie,cal_nro,cal_cliente,cal_rsocial,cal_noment,cal_ref,cal_marca,cal_acuenta,cal_fecha from caalcl ' +
                'where cal_nro > 0 and cal_operario = ' + F_Inicio.EdOperario.text + ' and cal_rsocial like ' + '''' + '%' + '''' +
                ' and cal_noment like ' + '''' + '%' + '''' + ' and cal_marca= ' + '''' + 'P' + '''' + ' and cal_ref like ' +'''' +
                '%' + F_Inicio.LbRuta.text + '%' + '''' + ' order by cal_serie,cal_nro';
      Sql.Add(sqlstr);
      Active := True;
      Open;
    end;

  item := ListView_ListaAlbaranes.Items.Add;
  item.Purpose := TListItemPurpose.Header;
  item.Text := 'Serie Nro.  Cliente                                           Fecha';

end;
Al mostrar el listview con el resultado del query, el texto de la cabecera 'Serie Nro. Cliente Fecha' me aparece debajo de la lista como si fuera el pie de pagina.

¿Alguna idea de porque me funciona como si pusiera un pie de pagina?

Gracias, un saludo.
Responder Con Cita