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
|
//---------------------------------------------------------------------------
#ifndef consoleH
#define consoleH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TConsole : public TForm
{
__published:
TPanel *Panel1;
TPanel *Panel2;
TButton *BtnClose;
TSpeedButton *BtnAsc;
TSpeedButton *BtnHex;
TSpeedButton *BtnClear;
TPaintBox *Console;
TScrollBar *Scroll;
TSpeedButton *BtnDown;
TSpeedButton *BtnStop;
void __fastcall BtnCloseClick(TObject *Sender);
void __fastcall BtnClearClick(TObject *Sender);
void __fastcall ConsolePaint(TObject *Sender);
void __fastcall ScrollChange(TObject *Sender);
void __fastcall FormResize(TObject *Sender);
void __fastcall BtnAscClick(TObject *Sender);
void __fastcall BtnHexClick(TObject *Sender);
void __fastcall BtnDownClick(TObject *Sender);
void __fastcall BtnStopClick(TObject *Sender);
private:
TStringList *ConBuff;
int Stop,ScrollPos;
public:
__fastcall TConsole(TComponent* Owner);
void __fastcall AddMsg(unsigned char *buff, int n);
};
//---------------------------------------------------------------------------
extern PACKAGE TConsole *Console;
//---------------------------------------------------------------------------
#endif
|
