-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathUnit1.h
55 lines (52 loc) · 1.73 KB
/
Unit1.h
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
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "SHDocVw_OCX.h"
#include <Vcl.OleCtrls.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.AppEvnts.hpp>
#include <Vcl.Edge.hpp>
#include <Winapi.ActiveX.hpp>
#include <Winapi.WebView2.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TLabel *HelpLabel;
TStatusBar *StatusBar;
TTimer *StartTimer;
TTimer *MainTimer;
TTimer *LongTimer;
TTrayIcon *Tray;
TApplicationEvents *ApplicationEvents;
TEdgeBrowser *Web;
TMainMenu *MainMenu;
TMenuItem *N1;
void __fastcall StartTimerTimer(TObject *Sender);
void __fastcall MainTimerTimer(TObject *Sender);
void __fastcall LongTimerTimer(TObject *Sender);
void __fastcall ApplicationEventsMinimize(TObject *Sender);
void __fastcall TrayClick(TObject *Sender);
void __fastcall WebExecuteScript(TCustomEdgeBrowser *Sender, HRESULT AResult, const UnicodeString AResultObjectAsJson);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
void Navigate(String URL);
void ClearMemory();
void ShowWeb();
void HideWeb();
void OneStart(bool minimized);
String Domain;
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif