mirror of
https://github.com/n5ac/mmsstv.git
synced 2026-01-28 02:44:13 +01:00
82 lines
2.5 KiB
C
82 lines
2.5 KiB
C
|
//---------------------------------------------------------------------------
|
|||
|
|
#ifndef CodeVwH
|
|||
|
|
#define CodeVwH
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
#include <Classes.hpp>
|
|||
|
|
#include <Controls.hpp>
|
|||
|
|
#include <StdCtrls.hpp>
|
|||
|
|
#include <Forms.hpp>
|
|||
|
|
#include <ExtCtrls.hpp>
|
|||
|
|
#include <Buttons.hpp>
|
|||
|
|
|
|||
|
|
#include "ComLib.h"
|
|||
|
|
#include <ComCtrls.hpp>
|
|||
|
|
#define WM_FORMCLOSE (WM_USER+410)
|
|||
|
|
#define WM_CODEINSERT (WM_USER+411)
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
class TCodeView : public TForm
|
|||
|
|
{
|
|||
|
|
__published: // IDE <20>Ǘ<EFBFBD><C797>̃R<CC83><52><EFBFBD>|<7C>[<5B>l<EFBFBD><6C><EFBFBD>g
|
|||
|
|
TPanel *Panel;
|
|||
|
|
TPaintBox *PBox;
|
|||
|
|
TSpeedButton *SBClose;
|
|||
|
|
TSpeedButton *SBClear;
|
|||
|
|
TSpeedButton *SBFont;
|
|||
|
|
TSpeedButton *SBOut;
|
|||
|
|
TSpeedButton *SBEdit;
|
|||
|
|
TSpeedButton *SBA;
|
|||
|
|
TSpeedButton *SBB;
|
|||
|
|
TSpeedButton *SBC;
|
|||
|
|
TSpeedButton *SBUS;
|
|||
|
|
TSpeedButton *SBJA;
|
|||
|
|
TSpeedButton *SBHL;
|
|||
|
|
TSpeedButton *SBBY;
|
|||
|
|
TSpeedButton *SBBV;
|
|||
|
|
TUpDown *UDMB;
|
|||
|
|
void __fastcall PBoxPaint(TObject *Sender);
|
|||
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|||
|
|
void __fastcall SBCloseClick(TObject *Sender);
|
|||
|
|
void __fastcall PBoxMouseDown(TObject *Sender, TMouseButton Button,
|
|||
|
|
TShiftState Shift, int X, int Y);
|
|||
|
|
void __fastcall SBClearClick(TObject *Sender);
|
|||
|
|
void __fastcall SBFontClick(TObject *Sender);
|
|||
|
|
|
|||
|
|
void __fastcall SBOutClick(TObject *Sender);
|
|||
|
|
void __fastcall SBEditClick(TObject *Sender);
|
|||
|
|
void __fastcall SBAClick(TObject *Sender);
|
|||
|
|
|
|||
|
|
void __fastcall SBUSClick(TObject *Sender);
|
|||
|
|
void __fastcall UDMBClick(TObject *Sender, TUDBtnType Button);
|
|||
|
|
void __fastcall PBoxMouseUp(TObject *Sender, TMouseButton Button,
|
|||
|
|
TShiftState Shift, int X, int Y);
|
|||
|
|
private: // <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>錾
|
|||
|
|
HWND m_hWnd;
|
|||
|
|
TFont *m_pFont;
|
|||
|
|
int m_XW1;
|
|||
|
|
int m_YW1;
|
|||
|
|
int m_XW;
|
|||
|
|
int m_YW;
|
|||
|
|
int m_MouseDown;
|
|||
|
|
int m_Base;
|
|||
|
|
BOOL m_tPfx[256];
|
|||
|
|
int m_pfxCount;
|
|||
|
|
int m_tPfxIdx[256];
|
|||
|
|
void __fastcall UpdateTitle(void);
|
|||
|
|
void __fastcall ReqClose(void);
|
|||
|
|
void __fastcall UpdateXW(void);
|
|||
|
|
void __fastcall SetPBoxFont(TCanvas *pCanvas);
|
|||
|
|
void __fastcall DrawChar(TCanvas *pCanvas, int c, BOOL f);
|
|||
|
|
void __fastcall DrawCursor(TCanvas *pCanvas, int c, BOOL f);
|
|||
|
|
WORD __fastcall GetEUDC(int y, int x);
|
|||
|
|
void __fastcall CheckFontCharset(void);
|
|||
|
|
|
|||
|
|
public: // <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>錾
|
|||
|
|
__fastcall TCodeView(TComponent* Owner);
|
|||
|
|
|
|||
|
|
void __fastcall Execute(HWND hWnd, TFont *pFont);
|
|||
|
|
};
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
//extern PACKAGE TCodeView *CodeView;
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
#endif
|