home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // pvlCedit.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
- // From: pvlCedit.pas
- //----------------------------------------------------------------------------
- #ifndef pvlCeditHPP
- #define pvlCeditHPP
- //----------------------------------------------------------------------------
- #include <EdTool.hpp>
- #include <Messages.hpp>
- #include <Dialogs.hpp>
- #include <Windows.hpp>
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <Buttons.hpp>
- #include <ExtCtrls.hpp>
- #include <Forms.hpp>
- #include <System.hpp>
- namespace Pvlcedit
- {
- //-- type declarations -------------------------------------------------------
- enum ops { opplus, opminus, optimes, opdivide, opnone };
-
- class __declspec(delphiclass) TFrmVisCalcEdit;
- class __declspec(pascalimplementation) TFrmVisCalcEdit : public Forms::TForm
- {
- typedef Forms::TForm inherited;
-
- __published:
- Extctrls::TPanel* Panel1;
- Buttons::TSpeedButton* b1;
- Buttons::TSpeedButton* b2;
- Buttons::TSpeedButton* b3;
- Buttons::TSpeedButton* b4;
- Buttons::TSpeedButton* b5;
- Buttons::TSpeedButton* b6;
- Buttons::TSpeedButton* b7;
- Buttons::TSpeedButton* b8;
- Buttons::TSpeedButton* b9;
- Buttons::TSpeedButton* b0;
- Buttons::TSpeedButton* b00;
- Buttons::TSpeedButton* bp;
- Buttons::TSpeedButton* bm;
- Buttons::TSpeedButton* bt;
- Buttons::TSpeedButton* bd;
- Buttons::TSpeedButton* beq;
- Buttons::TSpeedButton* bC;
- Buttons::TSpeedButton* bce;
- Buttons::TSpeedButton* bmp;
- Buttons::TSpeedButton* bmm;
- Buttons::TSpeedButton* bmr;
- Buttons::TSpeedButton* bmc;
- Buttons::TSpeedButton* bdec;
- void __fastcall FormKeyPress(System::TObject* p0, char &p1);
- void __fastcall FormShow(System::TObject* p0);
- void __fastcall FormClose(System::TObject* p0, Forms::TCloseAction &p1);
- void __fastcall b1Click(System::TObject* p0);
-
- private:
- Controls::TControl* capture;
- System::AnsiString wholestring;
- System::AnsiString decstring;
- bool indec;
- Byte olddec;
- bool blank;
- Extended oldvalue;
- HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &pvlCedit_);
- HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TWMMouse &pvlCedit_);
- HIDESBASE MESSAGE void __fastcall WMMOUSEMOVE(Messages::TWMMouse &pvlCedit_);
- void __fastcall performop(void);
- void __fastcall displayvalue(void);
-
- public:
- Edtool::TPvlCustomCalcEdit* calcedit;
- Extended total;
- Extended memory;
- Extended value;
- ops nextop;
- public:
- /* TForm.Create */ __fastcall virtual TFrmVisCalcEdit(Classes::TComponent* AOwner) : Forms::TForm(AOwner
- ) { }
- /* TForm.CreateNew */ __fastcall TFrmVisCalcEdit(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
- AOwner, Dummy) { }
- /* TForm.Destroy */ __fastcall virtual ~TFrmVisCalcEdit(void) { }
-
- public:
- /* TWinControl.CreateParented */ __fastcall TFrmVisCalcEdit(HWND ParentWindow) : Forms::TForm(ParentWindow
- ) { }
-
- };
-
- //-- var, const, procedure ---------------------------------------------------
-
- } /* namespace Pvlcedit */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Pvlcedit;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // pvlCedit
-