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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
//---------------------------------------------------------------------------
#ifndef browsmainH
#define browsmainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:
TPanel *Panel1;
TStringGrid *Table0;
TComboBox *Address;
TStringGrid *Table1;
TStringGrid *Table2;
TMemo *Table3;
TSpeedButton *BtnList;
TSpeedButton *BtnUpdate;
TSaveDialog *SaveDialog;
TOpenDialog *OpenDialog;
TMainMenu *MainMenu;
TMenuItem *File1;
TMenuItem *MenuOpen;
TMenuItem *MenuSave;
TMenuItem *N1;
TMenuItem *MenuQuit;
TMenuItem *Edit1;
TMenuItem *View1;
TMenuItem *MenuUpdateCaster;
TMenuItem *N2;
TMenuItem *MenuUpdateTable;
TMenuItem *Help1;
TMenuItem *MenuViewStr;
TMenuItem *MenuViewCas;
TMenuItem *MenuViewNet;
TMenuItem *N3;
TMenuItem *MenuViewSrc;
TMenuItem *MenuAbout;
TSpeedButton *TypeStr;
TSpeedButton *TypeCas;
TSpeedButton *TypeNet;
TSpeedButton *TypeSrc;
TPanel *Panel2;
TLabel *Message;
TPanel *Panel3;
TSpeedButton *BtnMap;
TTimer *Timer;
TComboBox *FiltFmt;
TCheckBox *StaMask;
TButton *BtnSta;
void __fastcall FormShow(TObject *Sender);
void __fastcall BtnUpdateClick(TObject *Sender);
void __fastcall TypeChange(TObject *Sender);
void __fastcall BtnListClick(TObject *Sender);
void __fastcall AddressChange(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall Table1MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall Table2MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall Table0MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall AddressKeyPress(TObject *Sender, char &Key);
void __fastcall MenuOpenClick(TObject *Sender);
void __fastcall MenuSaveClick(TObject *Sender);
void __fastcall MenuQuitClick(TObject *Sender);
void __fastcall MenuUpdateCasterClick(TObject *Sender);
void __fastcall MenuUpdateTableClick(TObject *Sender);
void __fastcall MenuViewStrClick(TObject *Sender);
void __fastcall MenuViewCasClick(TObject *Sender);
void __fastcall MenuViewNetClick(TObject *Sender);
void __fastcall MenuViewSrcClick(TObject *Sender);
void __fastcall MenuAboutClick(TObject *Sender);
void __fastcall TypeStrClick(TObject *Sender);
void __fastcall TypeCasClick(TObject *Sender);
void __fastcall TypeNetClick(TObject *Sender);
void __fastcall TypeSrcClick(TObject *Sender);
void __fastcall BtnMapClick(TObject *Sender);
void __fastcall TimerTimer(TObject *Sender);
void __fastcall Table0SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect);
void __fastcall BtnStaClick(TObject *Sender);
void __fastcall StaMaskClick(TObject *Sender);
private:
AnsiString AddrList,AddrCaster,SrcTable,IniFile;
int FontScale;
void __fastcall UpdateCaster(void);
void __fastcall UpdateTable(void);
void __fastcall UpdateMap(void);
void __fastcall UpdateEnable(void);
void __fastcall ShowTable(void);
void __fastcall SortTable(TStringGrid *table, int col);
public:
TStringList *StaList;
void __fastcall ShowMsg(const char *msg);
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
|
