Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
14
Добавлен:
17.04.2013
Размер:
1.3 Кб
Скачать
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Strelka *ss;
SuperStrelka *mm,*hh;
TForm1 *Form1;
SYSTEMTIME ttt;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
ss=new Strelka(Image1);
mm=new SuperStrelka(Image1,(TrackBar1->Position)/double(TrackBar1->Max)*100);
hh=new SuperStrelka(Image1,(TrackBar2->Position)/double(TrackBar2->Max)*100);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
GetLocalTime(&ttt);
ss->SetAngle(pi/2-(ttt.wSecond+ttt.wMilliseconds/999.)/60.*2*pi);
mm->SetAngle(pi/2-(ttt.wMinute/60.+(ttt.wSecond+ttt.wMilliseconds/999.)/60./60.)*2*pi,(TrackBar1->Position)/double(TrackBar1->Max)*100);
hh->SetAngle(pi/2-(ttt.wHour+(ttt.wMinute+(ttt.wSecond+ttt.wMilliseconds/999.)/60.)/60.)/24.*2*pi,(TrackBar2->Position)/double(TrackBar2->Max)*100);
}
//---------------------------------------------------------------------------
Соседние файлы в папке защита