Cronómetro y listview

[[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