Holas de nuevo
Cita:
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:
Código:
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