1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
//---------------------------------------------------------------------------
#ifndef launchmainH
#define launchmainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Graphics.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.Menus.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:
TSpeedButton *BtnPlot;
TSpeedButton *BtnNavi;
TSpeedButton *BtnNtrip;
TSpeedButton *BtnPost;
TSpeedButton *BtnStr;
TSpeedButton *BtnConv;
TSpeedButton *BtnGet;
TTrayIcon *TrayIcon;
TPopupMenu *PopupMenu;
TMenuItem *MenuPlot;
TMenuItem *MenuConv;
TMenuItem *MenuStr;
TMenuItem *MenuPost;
TMenuItem *MenuNtrip;
TMenuItem *MenuNavi;
TMenuItem *MenuGet;
TMenuItem *N1;
TMenuItem *MenuExit;
TPanel *BtnTray;
TMenuItem *MenuExpand;
TMenuItem *N2;
void __fastcall BtnPlotClick(TObject *Sender);
void __fastcall BtnConvClick(TObject *Sender);
void __fastcall BtnStrClick(TObject *Sender);
void __fastcall BtnPostClick(TObject *Sender);
void __fastcall BtnNtripClick(TObject *Sender);
void __fastcall BtnNaviClick(TObject *Sender);
void __fastcall BtnGetClick(TObject *Sender);
void __fastcall FormResize(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall BtnTrayClick(TObject *Sender);
void __fastcall TrayIconDblClick(TObject *Sender);
void __fastcall MenuPlotClick(TObject *Sender);
void __fastcall MenuConvClick(TObject *Sender);
void __fastcall MenuStrClick(TObject *Sender);
void __fastcall MenuPostClick(TObject *Sender);
void __fastcall MenuNtripClick(TObject *Sender);
void __fastcall MenuNaviClick(TObject *Sender);
void __fastcall MenuGetClick(TObject *Sender);
void __fastcall MenuExitClick(TObject *Sender);
void __fastcall MenuExpandClick(TObject *Sender);
private:
AnsiString IniFile;
int Tray,Mkl;
int __fastcall ExecCmd(AnsiString cmd);
public:
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
|
