unit1.h

一个很酷的多地区时间显示,视角是从北极往下看的地球

//-----------------------  TABS 4  -----------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <JDDdefs.h>

typedef enum { ptSecond, ptMinute, ptHour, ptDay , ptOff }  ptENUM ;

//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TPopupMenu *PopupMenu1;
    TMenuItem *Exit1;
    TMenuItem *Minimize1;
    TMenuItem *Restore1;
    TMenuItem *Maximize1;
    TMenuItem *Configure1;
    TTimer *Timer1;
    TPaintBox *PaintBox1;
    void __fastcall Minimize1Click(TObject *Sender);
    void __fastcall Restore1Click(TObject *Sender);
    void __fastcall Maximize1Click(TObject *Sender);
    void __fastcall Configure1Click(TObject *Sender);
    void __fastcall Exit1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall PaintBox1Paint(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);

public:
FAST            TForm1          (TComponent* Owner) ;
FAST            ~TForm1         (void) ;

Graphics::TBitmap*        BMEarth    ;
Graphics::TBitmap*        BMDarkBrush    ;
Graphics::TBitmap*        BMPasteUp   ;

ASTR            DirExe      ;
ptENUM          Period ;
LOGFONT         logfont ;
TDATE           Greenwich ;
TCanvas*        FCanvas ;
int             XCenter   ;     // center of circle from PaintBox1(0,0)
int             YCenter   ;     // center of circle from PaintBox1(0,0)
int             FRadius   ;     // radius of circle
int             FCityHeight   ; // City Font Height
int             FTimeHeight   ; // Time Font Height
double          Sun       ;     // Greenwich - (int) Greenwich
double          rads      ;     // set by Circumf_Zone()
USHORT          LastMinute ;    // I/O Timer1Timer


void FAST       ShowIcon        (UINT i24 )   ;
void FAST       TrayLeftClick   (TOP Sender, TMessage& Msg) ;
double FAST     CalcFullSpin    (void) ;
void FAST       AngleCity       (int Zone, ASTR City) ;
TPoint FAST     Point_City      (int Zone, ASTR City ) ;
void FAST       TimeCity        (int Zone) ;
ASTR FAST       TimeOfZone      (int Zone )  ;
TPoint FAST     Circumf_Zone    (int Zone , bool IsTime) ;
TPoint FAST     Circumf_rad     (double rad) ;
void FAST       EarthDraw       (void) ;
TColor FAST     ColorCity       (int Zone) ;

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif