секундомер графический, нужна программа Опции

[striker]

Нужен секундомер в графике. Циферблат, нажатие кнопки - старт/стоп
Где-то недавно видел готовый, нужен для одной идеи.
Помогите найти пожалуйста и подскажите

[volvo]

Я бы сделал так:

begin
  gd := detect;
  initgraph(gd, gm, '');
  Draw(getmaxx div 2, getmaxy div 2);
  setwritemode(xorput);

  i := 0;
  repeat
    stop := false;
    repeat
      DrawArrow(getmaxx div 2, getmaxy div 2, i mod 60);

      curr_time := GetTime;
      while GetTime - curr_time < 100 do;
      if keypressed then begin
        stop := true; while keypressed do readkey;
      end;

      if not stop then begin
        DrawArrow(getmaxx div 2, getmaxy div 2, i mod 60);
        inc(i);
      end;
    until stop;

    while not keypressed do;
    finished := readkey = #27;
    DrawArrow(getmaxx div 2, getmaxy div 2, i mod 60);
  until finished;
  closegraph;
end.

Нажатие Esc в положении Stop = выход из программы... Для повторного старта - любая другая клавиша...

Добавлено через 52 сек.

Не встречал электронный, т.е цифровой секундомер в графическом режиме т.е цифры большие на экране считают?

Готовый - не встречал, семисегментные индикаторы делал сам...