1 //---------------------------------------------------------------------------
5 //---------------------------------------------------------------------------
7 #include <Controls.hpp>
8 #include <StdCtrls.hpp>
10 #include <ComCtrls.hpp>
11 #include <ExtCtrls.hpp>
12 #include <ToolWin.hpp>
14 #include <Dialogs.hpp>
16 #include <ImgList.hpp>
17 #include "thOpenSource.h"
28 TypePtr(void* in
) :p(in
)
33 #define TAG(x) (DWORD)( (((DWORD)x&0x0000ff00)<<8)+(((DWORD)x&0x000000ff)<<24)+(((DWORD)x&0x00ff0000)>>8)+(((DWORD)x&0xff000000)>>24) )
36 //---------------------------------------------------------------------------
37 class TFrmMain
: public TForm
39 __published
: // IDE-managed Components
46 TOpenDialog
*OpenDialog1
;
47 TPopupMenu
*PopupMenu1
;
51 TMenuItem
*btFloatType
;
53 TImageList
*ImageList1
;
55 TToolButton
*ToolButton1
;
56 TToolButton
*ToolButton2
;
60 TToolButton
*ToolButton3
;
63 TMenuItem
*btRowClear
;
64 TMenuItem
*btColClear
;
65 TToolButton
*ToolButton4
;
66 TToolButton
*ToolButton5
;
67 void __fastcall
btOpenClick(TObject
*Sender
);
68 void __fastcall
btSaveClick(TObject
*Sender
);
69 void __fastcall
btIntTypeClick(TObject
*Sender
);
70 void __fastcall
btFloatTypeClick(TObject
*Sender
);
71 void __fastcall
PopupMenu1Popup(TObject
*Sender
);
72 void __fastcall
N1Click(TObject
*Sender
);
73 void __fastcall
FormDestroy(TObject
*Sender
);
74 void __fastcall
ToolButton1Click(TObject
*Sender
);
75 void __fastcall
sgEditKeyDown(TObject
*Sender
, WORD
&Key
,
77 void __fastcall
sgEditSelectCell(TObject
*Sender
, int ACol
,
78 int ARow
, bool &CanSelect
);
79 void __fastcall
Timer1Timer(TObject
*Sender
);
80 void __fastcall
N4Click(TObject
*Sender
);
81 void __fastcall
btTxtTypeClick(TObject
*Sender
);
82 void __fastcall
ToolButton3Click(TObject
*Sender
);
83 void __fastcall
btRowSaveClick(TObject
*Sender
);
84 void __fastcall
btColSaveClick(TObject
*Sender
);
85 void __fastcall
btRowClearClick(TObject
*Sender
);
86 void __fastcall
btColClearClick(TObject
*Sender
);
87 void __fastcall
ToolButton4Click(TObject
*Sender
);
88 private: // User declarations
94 public: // User declarations
97 AnsiString CurrentOpenFile
;
98 __fastcall
TFrmMain(TComponent
* Owner
);
99 void SaveToFile(const char * pszFileName
);
100 void __fastcall
OpenFileCol(AnsiString FileName
,int ColIndex
,int ColType
);
102 //---------------------------------------------------------------------------
103 extern PACKAGE TFrmMain
*FrmMain
;
104 //---------------------------------------------------------------------------