49 lines
1.7 KiB
C++
49 lines
1.7 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#ifndef ChartFormUnitH
|
|
#define ChartFormUnitH
|
|
//---------------------------------------------------------------------------
|
|
#include <System.Classes.hpp>
|
|
#include <Vcl.Controls.hpp>
|
|
#include <Vcl.StdCtrls.hpp>
|
|
#include <Vcl.Forms.hpp>
|
|
#include <Vcl.TitleBarCtrls.hpp>
|
|
|
|
#include "ContentPanel.h"
|
|
#include <Vcl.Tabs.hpp>
|
|
#include <Vcl.ExtCtrls.hpp>
|
|
|
|
//---------------------------------------------------------------------------
|
|
class TChartForm : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TTabSet *m_tsTop;
|
|
TLabel *Label1;
|
|
TPanel *m_panTU;
|
|
TLabel *m_lblRunTime;
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
void __fastcall FormCreate(TObject *Sender);
|
|
void __fastcall TopDrawTab(TObject *Sender, TCanvas *TabCanvas, TRect &R, int Index, bool Selected);
|
|
void __fastcall TopMeasureTab(TObject *Sender, int Index, int &TabWidth);
|
|
void __fastcall FormResize(TObject *Sender);
|
|
void __fastcall TopChange(TObject *Sender, int NewTab, bool &AllowChange);
|
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
|
private: // User declarations
|
|
TPanel* m_panChart;
|
|
|
|
void __fastcall ShowRunTime();
|
|
MESSAGE void __fastcall UMRunTime(TMessage &msg);
|
|
MESSAGE void __fastcall UMChartUpdate(TMessage &msg);
|
|
|
|
BEGIN_MESSAGE_MAP
|
|
MESSAGE_HANDLER(UM_RUN_TIME, TMessage, UMRunTime)
|
|
MESSAGE_HANDLER(UM_CHART_UPDATE, TMessage, UMChartUpdate)
|
|
END_MESSAGE_MAP(TForm)
|
|
public: // User declarations
|
|
__fastcall TChartForm(TComponent* Owner);
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TChartForm *ChartForm;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|