mainfu.h

小程序

//---------------------------------------------------------------------------

#ifndef MainFUH
#define MainFUH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
#include <Clipbrd.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TMainMenu *MainMenu1;
	TStatusBar *StatSB;
	TNotebook *PageNb;
	TRichEdit *CmdRE;
	TScrollBox *ViewSB;
	TPanel *ShowP;
	TPaintBox *ViewPB;
	TPaintBox *PointPB;
	TMenuItem *File1;
	TMenuItem *ExitN;
	TMenuItem *N1;
	TMenuItem *PrintSetup1;
	TMenuItem *Print1;
	TMenuItem *N2;
	TMenuItem *SaveAsN;
	TMenuItem *SaveN;
	TMenuItem *N3;
	TMenuItem *CloseN;
	TMenuItem *OpenN;
	TMenuItem *NewFileN;
	TMenuItem *RunN;
	TSaveDialog *SaveDlg;
	TOpenDialog *OpenDlg;
	TMenuItem *EditN;
	TMenuItem *HelpN;
	TRichEdit *HelpRE;
	TMenuItem *PasteN;
	TMenuItem *CutN;
	TMenuItem *CopyN;
	TMenuItem *DeleteN;
	TPopupMenu *EditPMenu;
	TMenuItem *CutNp;
	TMenuItem *CopyNp;
	TMenuItem *PasteNp;
	TMenuItem *DeleteNp;
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall PointPBPaint(TObject *Sender);
	void __fastcall FormDestroy(TObject *Sender);
	void __fastcall NewFileNClick(TObject *Sender);
	void __fastcall RunNClick(TObject *Sender);
	void __fastcall ViewPBPaint(TObject *Sender);
	void __fastcall SaveNClick(TObject *Sender);
	void __fastcall OpenNClick(TObject *Sender);
	void __fastcall ExitNClick(TObject *Sender);
	void __fastcall SaveAsNClick(TObject *Sender);
	void __fastcall EditNClick(TObject *Sender);
	void __fastcall CloseNClick(TObject *Sender);
	void __fastcall HelpNClick(TObject *Sender);
	void __fastcall ShowPResize(TObject *Sender);
	void __fastcall CmdRESaveClipboard(TObject *Sender, int NumObjects,
          int NumChars, bool &SaveClipboard);
	void __fastcall PasteNClick(TObject *Sender);
	void __fastcall CutNClick(TObject *Sender);
	void __fastcall CopyNClick(TObject *Sender);
	void __fastcall DeleteNClick(TObject *Sender);
	void __fastcall CmdREKeyPress(TObject *Sender, char &Key);
	void __fastcall CmdREKeyUp(TObject *Sender, WORD &Key, TShiftState Shift);
private:	// User declarations
	void __fastcall Init();
	friend class LogoCmd;
	LogoCmd *Logos;
	double Ange;
	AnsiString FileName;
	AnsiString Buf;
	TClipboard *cb ;
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
	void __fastcall SaveFile(AnsiString filename);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif