Графические Часы Скачать Исходник На Делфи

Графические часы на Delphi – это красиво оформленная программа, которая показывает текущее время на компьютере в виде стильных циферблатов. Скачать исходник на Delphi для таких часов можно найти в интернете на различных сайтах для программистов. Разработчики могут использовать этот исходный код для создания своих собственных приложений с часами. Вот небольшой пример кода на Delphi для создания графических часов:

procedure TForm1.Timer1Timer(Sender: TObject);var  H, M, S, MS: Word;begin  DecodeTime(Time, H, M, S, MS);  Image1.Picture.Bitmap.Canvas.Brush.Color := clBlack;  Image1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, Image1.Width, Image1.Height));  DrawClockFace(Image1.Picture.Bitmap.Canvas, Image1.Height div 2, Image1.Width div 2, Image1.Height div 3, H, M, S);end;procedure TForm1.DrawClockFace(Canvas: TCanvas; X, Y, Radius, Hours, Minutes, Seconds: Integer);var  Angle: Double;  HandRadius: Integer;begin  Canvas.Pen.Width := 1;  Canvas.Brush.Color := clWhite;  Canvas.Ellipse(X - Radius, Y - Radius, X + Radius, Y + Radius);  for I := 0 to 11 do  begin    Angle := Pi / 6 * I;    Canvas.MoveTo(Round(X + Radius * Cos(Angle)), Round(Y + Radius * Sin(Angle)));    Canvas.LineTo(Round(X + (Radius - 10) * Cos(Angle)), Round(Y + (Radius - 10) * Sin(Angle)));  end;  HandRadius := Radius - 30;  DrawClockHand(Canvas, X, Y, HandRadius, Hours / 12 * 360 + Minutes / 60 * 30, 5);  DrawClockHand(Canvas, X, Y, HandRadius, Minutes / 60 * 360, 3);  DrawClockHand(Canvas, X, Y, HandRadius, Seconds / 60 * 360, 1);end;procedure TForm1.DrawClockHand(Canvas: TCanvas; X, Y, Length, Angle, Width: Integer);var  Rads: Extended;  X1, Y1, X2, Y2: Integer;begin  Rads := Angle * Pi / 180 - Pi / 2;  X1 := Round(X - Width / 2 * Cos(Rads));  Y1 := Round(Y - Width / 2 * Sin(Rads));  X2 := Round(X + Length * Cos(Rads));  Y2 := Round(Y + Length * Sin(Rads));  Canvas.Pen.Width := Width;  Canvas.MoveTo(X1, Y1);  Canvas.LineTo(X2, Y2);end;

Этот код позволит создать круговые часы с циферблатом и двумя стрелками, которые показывают текущее время на компьютере. Вы можете использовать этот код для создания своих собственных графических часов на Delphi.

Delphi Стрелочные часы

Аналоговые часы recover

Построение графиков функции в Delphi часть 1

Delphi Калькулятор + исходник

Вебинар \

Исходники медиаплеера на Delphi. Ссылка ниже

Как Написать Часы На Delphi 7

как написать таймер обратного отчёта на делфи 7

ГРАФИЧЕСКИЕ ЧАСЫ СКАЧАТЬ ИСХОДНИК НА ДЕЛФИ