1 //---------------------------------------------------------------------------
\r
4 //---------------------------------------------------------------------------
\r
5 #include <Classes.hpp>
\r
6 #include <Controls.hpp>
\r
7 #include <StdCtrls.hpp>
\r
9 #include <ExtCtrls.hpp>
\r
10 //---------------------------------------------------------------------------
\r
12 //---------------------------------------------------------------------------
\r
13 #include <ComCtrls.hpp>
\r
14 #include <ImgList.hpp>
\r
15 #include <ToolWin.hpp>
\r
16 #include <Menus.hpp>
\r
17 #include <Dialogs.hpp>
\r
18 //---------------------------------------------------------------------------
\r
19 #include "QManager.h"
\r
20 #include "QCalcManager.h"
\r
22 //---------------------------------------------------------------------------
\r
23 class TFMain : public TForm {
\r
26 TMainMenu *MainMenu;
\r
30 TMenuItem *MMCircuitPanel;
\r
33 TMenuItem *MMShowStatus;
\r
34 TMenuItem *MMCalcText;
\r
35 TMenuItem *MMSaveAsPS;
\r
36 TSaveDialog *SaveDialog;
\r
40 TMenuItem *MMSaveAs;
\r
44 TOpenDialog *OpenDialog;
\r
47 TMenuItem *MMSaveAsBMP;
\r
49 TMenuItem *MMRemove;
\r
52 TPrintDialog *PrintDialog;
\r
55 TPrinterSetupDialog *PrinterSetupDialog;
\r
56 TMenuItem *MMPrintSetup;
\r
57 TMenuItem *MMPreViewPrint;
\r
59 TMenuItem *MMImportResult;
\r
60 TMenuItem *ViewMode1;
\r
61 TMenuItem *MMShowAll;
\r
62 TMenuItem *MMShowNonZero;
\r
63 TImageList *IconList;
\r
66 TToolButton *TBOpen;
\r
67 TToolButton *TBSave;
\r
68 TToolButton *TBRemove;
\r
69 TToolButton *TBUndo;
\r
70 TToolButton *ToolButton1;
\r
71 TToolButton *TBHelp;
\r
73 TToolButton *ToolButton4;
\r
74 TToolButton *ToolButton2;
\r
75 TToolButton *TBSaveAsBMP;
\r
76 TToolButton *TBSaveAsPS;
\r
77 TToolButton *ToolButton3;
\r
78 void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
\r
79 void __fastcall ImageMouseDown(TObject *Sender,
\r
80 TMouseButton Button, TShiftState Shift, int X, int Y);
\r
81 void __fastcall MMCircuitPanelClick(TObject *Sender);
\r
82 void __fastcall MMExitClick(TObject *Sender);
\r
83 void __fastcall MMSaveAsPSClick(TObject *Sender);
\r
84 void __fastcall MMNewClick(TObject *Sender);
\r
85 void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift,
\r
86 int WheelDelta, TPoint &MousePos, bool &Handled);
\r
87 void __fastcall MMSaveClick(TObject *Sender);
\r
88 void __fastcall MMSaveAsClick(TObject *Sender);
\r
89 void __fastcall MMAboutClick(TObject *Sender);
\r
90 void __fastcall MMOpenClick(TObject *Sender);
\r
91 void __fastcall ImageDblClick(TObject *Sender);
\r
92 void __fastcall MMSaveAsBMPClick(TObject *Sender);
\r
93 void __fastcall MMHelpClick(TObject *Sender);
\r
94 void __fastcall ImageClick(TObject *Sender);
\r
95 void __fastcall MMRunClick(TObject *Sender);
\r
96 void __fastcall FormDeactivate(TObject *Sender);
\r
97 void __fastcall MMRemoveClick(TObject *Sender);
\r
98 void __fastcall MMUndoClick(TObject *Sender);
\r
99 void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
\r
100 void __fastcall MMPrintClick(TObject *Sender);
\r
101 void __fastcall MMPrintSetupClick(TObject *Sender);
\r
102 void __fastcall MMPreViewPrintClick(TObject *Sender);
\r
103 void __fastcall MMImportResultClick(TObject *Sender);
\r
104 void __fastcall MMShowNonZeroClick(TObject *Sender);
\r
105 void __fastcall MMShowAllClick(TObject *Sender);
\r
108 void EraseCircuit(int mx, int my);
\r
109 void SelectCircuit(int mx, int my);
\r
110 void PutCircuit(int mx, int my);
\r
111 void ChangeSize(int Line,int Column);
\r
112 void UpdateCaption(void);
\r
113 void ModifyCircuit(void);
\r
114 void ImportResult(char *FileName);
\r
117 bool SaveQuery(void);
\r
118 void OpenFile(AnsiString FileName);
\r
120 int MX,MY;// Mouse Position
\r
122 static const int MAX_WIDTH;
\r
123 static const int MAX_HEIGHT;
\r
124 Htmlhelp * htmlhelp;
\r
127 //---------------------------------------------------------------------------
\r
128 QManager *qManager;
\r
131 void WMDropFiles(TWMDropFiles &Msg);
\r
132 __fastcall TFMain(TComponent* Owner);
\r
135 MESSAGE_HANDLER( WM_DROPFILES , TWMDropFiles, WMDropFiles )
\r
136 END_MESSAGE_MAP( TForm )
\r
139 //---------------------------------------------------------------------------
\r
140 const int TFMain::MAX_WIDTH = 640;
\r
141 const int TFMain::MAX_HEIGHT = 400;
\r
143 extern PACKAGE TFMain *FMain;
\r
144 //---------------------------------------------------------------------------
\r