-
Notifications
You must be signed in to change notification settings - Fork 1
/
Unit2.h
52 lines (49 loc) · 1.63 KB
/
Unit2.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
//---------------------------------------------------------------------------
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "cspin.h"
#include <Vcl.ExtCtrls.hpp>
#include <System.ImageList.hpp>
#include <Vcl.ImgList.hpp>
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
class TFrame2 : public TFrame
{
__published: // IDE-managed Components
TLabel *Variable;
TLabel *Label2;
TComboBox *Input;
TLabel *Inp;
TLabel *Label3;
TComboBox *Condition;
TLabel *Label4;
TRadioGroup *rg;
TCSpinEdit *value;
void __fastcall boxKeyPress(TObject *Sender, System::WideChar &Key);
void __fastcall rgClick(TObject *Sender);
void __fastcall InputSelect(TObject *Sender);
void __fastcall ConditionSelect(TObject *Sender);
void __fastcall valueChange(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
bool Lock;
public: // User declarations
__fastcall TFrame2(TComponent* Owner, TFrame2 * Previous, TWinControl * Parrent_Control);
void BuildCondition();
TFrame2 * Prev;
TFrame2 * Next;
UnicodeString Condition_String;
UnicodeString Var;
int VarIndex;
void SetCondition(UnicodeString &Condition_Str);
void SetLock(bool Locked);
};
//---------------------------------------------------------------------------
extern PACKAGE TFrame2 *Frame2;
//---------------------------------------------------------------------------
#endif