Механические часы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Vector(x0,y0,a,L: integer);
    procedure DrawClock;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 uses
DateUtils; // äëÿ äîñòóïà ê SecondOf,
          // MinuteOf è HourOf
const
  R = 200; // ðàäèóñ öèôåðáëàòà ÷àñîâ
var
  x0,y0: integer;   // öåíòð öèôåðáëàòà
  ahr, amin, asec: integer;         // ïîëîæåíèå ñòðåëîê (óãîë)
 
  // èíèöèàëèçàöèÿ ôîðìû
procedure TForm1.FormCreate(Sender: TObject);
var
  t: TDateTime;
begin
  // çàäàäèì ðàçìåð ôîðìû â ñîîòâåòñòâèè ñ ðàçìåðîì öèôåðáëàòà
  ClientHeight := (R+10)*2;
  ClientWidth := (R+10)*2;
  x0:= R+10;
  y0 :=R+10;
  t := Now();
 
  // ïîëîæåíèå ñòðåëîê
  ahr := 90 - HourOf(t)*30-(MinuteOf(Today)div 12)*6;
  amin := 90 - MinuteOf(t)*6;
  asec := 90 - SecondOf(Today)*6;
  Timer1.Interval := 1000; // ïåðèîä ñèãíàëî îò òàéìåðà 1 ñåê
  Timer1.Enabled := True; // ïóñê òàéìåðà
end;
 
// âû÷åð÷èâàåò âåêòîð çàäàííîé äëèíû èç òî÷êè (õ0,ó0)
procedure TForm1.Vector(x0,y0: integer; a, L: integer);
// x0,y0 — íà÷àëî âåêòîðà
//à — óãîë ìåæäó îñüþ õ è âåêòîðîì
// l — äëèíà âåêòîðà
const
GRAD = 0.0174532; // êîýôôèöèåíò ïåðåñ÷åòà óãëà èç ãðàäóñîâ  â ðàäèàíû
var
  x,y: integer; // êîîðäèíàòû êîíöà âåêòîðà
  begin
    Canvas.MoveTo(x0,y0);
    x := Round(x0 + l*cos(a*GRAD));
    y := Round(y0 - l*sin(a*GRAD));
    Canvas.LineTo(x,y);
  end;
  // ðèñóåò ñòðåëêè
procedure TForm1.DrawClock;
 var
    t: TDateTime;
  begin
  // øàã ñåêóíäíîé è ìèíóòíîé ñòðåëîê 6 ãðàäóñîâ, ÷àñîâîé — 30.
  // ñòåðåòü èçîáðàæåíèå ñòðåëîê
Canvas.Pen.Color := clBtnFace;
 Canvas.Pen.Width :=6;
// ÷àñîâóþ
Vector(x0,y0, ahr, R-20);
//ìèíóòíóþ
Vector(x0,y0, amin, R-15);
// ñåêóíäíóþ
Vector(x0,y0, asec, R-7);
 t := Now();
// íîâîå ïîëîæåíèå ñòðåëîê
ahr := 90 - HourOf(t)*30-(MinuteOf(t) div 12)*6;
amin := 90 - MinuteOf(t)*6;
 asec := 90 - SecondOf(t)*6;
// íàðèñîâàòü ñòðåëêè
// ÷àñîâàÿ ñòðåëêà Canvas.Pen.Width := 3;
Canvas.Pen.Color := clBlack;
Vector(x0,y0, ahr, R-20);
// ìèíóòíàÿ ñòðåëêà
Canvas.Pen.Width := 2;
Canvas.Pen.Color := clBlue;
Vector(x0,y0, amin, R-15);
// ñåêóíäíàÿ ñòðåëêà
 Canvas.Pen.Width := 1;
 Canvas.Pen.Color := clRed;
 Vector(x0,y0, asec, R-7);
end;
// ïðîðèñîâêà öèôåðáëàòà è íà÷àëüíûõ ñòðåëîê
 
 
procedure TForm1.FormPaint(Sender: TObject);
var
  x,y: integer; // êîîðäèíàòû ìàðêåðà íà öèôåðáëàòå
  a: integer;   // óãîë ìåæäó ÎÕ è ïðÿìîé (õ0,ó0) (õ,ó)
  pc: TColor;   // öâåò êàðàíäàøà
  pw: integer;  // øèðèíà êàðàíäàøà
begin
  pc := Canvas.Pen.Color;
  pw := Canvas.Pen.Width;
  Canvas.Pen.Width := 1;
  Canvas.Pen.Color := clBlack;
  a:=0; // ìåòêè ñòàâèì îò 3-õ ÷àñîâ, ïðîòèâ ÷àñîâîé ñòðåëêè
  // öèôåðáëàò
  while a < 360 do
  begin
    x:=x0+Round( R * cos(a*2*pi/360));
    y:=y0-Round( R * sin(a*2*pi/360)); Form1.Canvas.MoveTo(x,y);
    if (a mod 30) = 0
    then Canvas.Ellipse(x-2,y-2,x+3,y+3)
    else Canvas.Ellipse(x-1,y-1,x+1,y+1);
    a:=a+6; // 1 ìèíóòà — 6 ãðàäóñîâ
  end;
  // âîññòàíîâèòü êàðàíäàø-êèñòü
  Canvas.Pen.Width := pw;
  Canvas.Pen.Color := pc;
  DrawClock;
end;
 
// ïðîðèñîâêà òåêóùèõ ïîëîæåíèé ñòðåëîê ÷àñîâ
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DrawClock;
end;
 
end.