Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Ноя

Создать часы, с бегущей секундной стрелкой

Posted by Chas under Пост-обзор

Var Form1: TForm1;
Implementation
{$R *.dfm}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Form1.Canvas.Brush.Color:=clWhite;
  Timer1.Interval:=100;
  Form1.DoubleBuffered:=True;
End;
Procedure TForm1.FormPaint(Sender: TObject);
Var R: TRect; Sec, tmp: Word;
Begin
  With Form1.Canvas Do
  Begin
      DecodeDateTime(Now, tmp, tmp, tmp, tmp, tmp, Sec, tmp); // Uses … , DateUtils;
      Form1.Caption:=IntToStr(Sec);
      Rectangle(150, 100, 750, 500);
      Ellipse(250, 100, 650, 500);
      MoveTo(450, 300);
      LineTo(Round(450-200*Cos((Sec*6+90)/180*Pi)), Round(300-200*Sin((Sec*6+90)/180*Pi)));
      Ellipse(443, 293, 457, 307);
  End;
End;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  Repaint;
End;
End.