Inttotime

hedie · Verfasst: So 29.05.05 09:39

Hallo

ich suche eine art inttotime funktion weil bei meinem Programm ein Label Minuten für den Timer anzeigen soll und wie ihr wisst, sind minuten beim timer
immer 60000 und das verwirrt
wie kann ich machen, das anstat 60000 au dem label nur 6.0 angezeigt wird oder auch nur 6 und steuerbar soll das mit einer scrollbar sein also etwa so

markieren

Delphi-Quelltext

1:	label6.Calption := (inttostr(scrollbar1.Position));

aber jetzt werden eben 60000 angezeigt

hoffe ir könnt mir helfen

grüsse
Claudio

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

Sprint · Beiträge: 849

markieren

Delphi-Quelltext

1:	Label1.Caption := FormatFloat('0.0', ScrollBar1.Position / 1000 / 60);

_________________
Ciao, Sprint.

hedie · Verfasst: So 29.05.05 09:52

sorry aber ich sehe keinen code soll das heissen du weisst es nicht?

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

Sprint · Beiträge: 849

hedie hat folgendes geschrieben:

sorry aber ich sehe keinen code soll das heissen du weisst es nicht?

Wieso siehst du nichts?

_________________
Ciao, Sprint.

hedie · Verfasst: So 29.05.05 09:58

keine ahnung es hat einfach n scroll balken und sonst nichts

kannst du ihn nicht noch einmal posten? so wie ich jetzt schreibe?

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

Sprint · Beiträge: 849

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
begin

  ScrollBar1.Max := 60 * 60 * 1000; // min.  1 Minute
  ScrollBar1.Min :=  1 * 60 * 1000; // max. 60 Minuten

end;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin

  Label1.Caption := FormatFloat('0.0', ScrollBar1.Position / 1000 / 60);

end;

_________________
Ciao, Sprint.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme