Cronómetro y listview

[juanchi]

Muchas gracias por tu respuesta . Te cuento que cuando me aparece la hora y hago click en otra parte del ListView, la hora se corta y aparece en donde hice click para seguir con el conteo. Otra cosa, como hago para que solo un subitem tome color ya que todos los subitems lo hacen. Te mando algo de código para que me puedas entender.

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
nSortCol := Column.Index;
ListView1.AlphaSort;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
begin
if ListView1.Selected <> nil then
ListView1.Selected.SubItems[1] := FormatDateTime('hh:nn:ss', Now - inicio);
end;

procedure TForm1.Abrir1Click(Sender: TObject);
begin
inicio:=Now;
Timer1.Enabled := true;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
i : integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
begin
if ListView1.Items.Item[i].SubItems[0] = 'Libre' then
ListView1.Canvas.Font.Color := RGB(0,120,0);
end;
end;

Muchas gracias. Saludos

[[Lepe]]

Holas de nuevo

Empezado por juanchi

hago click en otra parte del ListView, la hora se corta y aparece en donde hice click para seguir con el conteo.

De momento me surge una duda, se supone que la hora de inicio será distitnta para cada PC, por tanto, habría que guardarla en "algun sitio" .
Hay varias formas de hacerlo:
- Usando el objeto TObjectList. (vease ayuda de delphi )
- Usando una tabla en la que cada elemento es un registro con información asociada a cada PC.

Yo me quedaria con la primera opción. En cuanto a lo del timer:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i : integer;
begin
  for i:=0 to pred(listview1.items.count) do
    if listview1.items[i].subItems[0] <>'Libre' then 
      ListView1.items[i].SubItems[1] := FormatDateTime('hh:nn:ss', Now - DatosPc[i].HoraInicio);
end;

En cuanto a lo de pintar de color, la verdad, no tengo ni idea. Lo primero que me viene a la mente es que los Subitems, son de tipo Tstring, así que no tiene una propiedad Font asociada. Puede que alguien del foro pueda ayudarte.

Saludos