//----------------------------------------------------------------------------
// numerot.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0
// From: numerot.pas
//----------------------------------------------------------------------------
#ifndef numerotHPP
#define numerotHPP
//----------------------------------------------------------------------------
#include <kComp.hpp>
#include <kdouble.hpp>
#include <Spin.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <SysUtils.hpp>
#include <Messages.hpp>
#include <System.hpp>
namespace Numerot
{
//-- type declarations -------------------------------------------------------
class __declspec(delphiclass) cDesim;
class __declspec(pascalimplementation) cDesim : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	double value;
	int desim;
	int sign;
	int mindes;
	int maxdes;
	double loval;
	double hival;
	
public:
	__fastcall cDesim(double d, double mi, double ma, int mides, int mades);
	void __fastcall Init(double v);
	void __fastcall Initd(cDesim* d);
	void __fastcall subst(cDesim* d);
	void __fastcall SubstReal(double v);
	void __fastcall InitBlank(void);
	void __fastcall addnum(int n);
	bool __fastcall clearnum(void);
	void __fastcall add(cDesim* &a, cDesim* &b);
	void __fastcall sub(cDesim* &a, cDesim* &b);
	void __fastcall mul(cDesim* &a, cDesim* &b);
	void __fastcall divd(cDesim* &a, cDesim* &b);
	void __fastcall ChangeSign(void);
	void __fastcall oper(char op, cDesim* &a, cDesim* &b);
	bool __fastcall IsOperator(char op);
	void __fastcall todes(void);
	System::AnsiString __fastcall toStr(void);
	void __fastcall adv(double d);
	double __fastcall RValue(void);
	bool __fastcall IsInDelete(void);
	bool __fastcall OK(void);
	bool __fastcall over(void);
	bool __fastcall under(void);
public:
	/* TObject.Destroy */ __fastcall virtual ~cDesim(void) { }
	
};

class __declspec(delphiclass) TFormNumerot;
class __declspec(pascalimplementation) TFormNumerot : public Forms::TForm
{
	typedef Forms::TForm inherited;
	
__published:
	Extctrls::TPanel* PanelNumerot;
	Stdctrls::TGroupBox* GroupBoxNumerot;
	Stdctrls::TButton* Button1;
	Stdctrls::TButton* Button2;
	Stdctrls::TButton* Button3;
	Stdctrls::TButton* Button4;
	Stdctrls::TButton* Button5;
	Stdctrls::TButton* Button6;
	Stdctrls::TButton* Button7;
	Stdctrls::TButton* Button8;
	Stdctrls::TButton* Button9;
	Stdctrls::TButton* Button0;
	Stdctrls::TButton* ButtonBS;
	Stdctrls::TButton* ButtonOK;
	Stdctrls::TButton* ButtonMiinus;
	Stdctrls::TButton* ButtonPlus;
	Stdctrls::TButton* ButtonDiv;
	Stdctrls::TButton* ButtonMul;
	Stdctrls::TButton* ButtonResult;
	Stdctrls::TButton* ButtonCancel;
	Extctrls::TPanel* PanelKysymys;
	Extctrls::TPanel* PanelKysymysTeksti;
	Stdctrls::TLabel* LabelPrompt;
	Extctrls::TPanel* PanelSyotto;
	Spin::TSpinButton* SpinButtonLuku;
	Stdctrls::TEdit* EditLuku;
	Stdctrls::TLabel* LabelTo;
	Stdctrls::TButton* ButtonDes;
	Stdctrls::TRadioButton* ErrorOver;
	Stdctrls::TRadioButton* ErrorUnder;
	Stdctrls::TButton* ButtonSign;
	Kcomp::TCounter* CounterOrig;
	void __fastcall Button0Click(System::TObject* Sender);
	void __fastcall ButtonResultClick(System::TObject* Sender);
	void __fastcall ButtonMiinusClick(System::TObject* Sender);
	void __fastcall ButtonDesClick(System::TObject* Sender);
	void __fastcall ButtonBSClick(System::TObject* Sender);
	void __fastcall SpinButtonLukuDownClick(System::TObject* Sender);
	void __fastcall SpinButtonLukuUpClick(System::TObject* Sender);
	bool __fastcall Ask( System::AnsiString prompt, double &d, double mi, double ma, int desim);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall Oper(char c);
	void __fastcall CalcResult(void);
	void __fastcall Number(int n);
	void __fastcall ChangeSign(void);
	void __fastcall BS(void);
	void __fastcall InitOrig(void);
	void __fastcall Decimal(void);
	void __fastcall SetStrVal( System::AnsiString s);
	void __fastcall FormKeyPress(System::TObject* Sender, char &Key);
	void __fastcall LabelToClick(System::TObject* Sender);
	void __fastcall ButtonSignClick(System::TObject* Sender);
	void __fastcall ErrorUnderMouseDown(System::TObject* Sender, Controls::TMouseButton Button,  Classes::TShiftState 
		Shift, int X, int Y);
	void __fastcall ErrorOverMouseDown(System::TObject* Sender, Controls::TMouseButton Button,  Classes::TShiftState 
		Shift, int X, int Y);
	
private:
	cDesim* left;
	cDesim* right;
	cDesim* rnow;
	char operator_;
	void __fastcall UpdateDisplay(void);
public:
	/* TForm.Create */ __fastcall virtual TFormNumerot(Classes::TComponent* AOwner) : Forms::TForm(AOwner
		) { }
	/* TForm.CreateNew */ __fastcall TFormNumerot(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
		AOwner, Dummy) { }
	/* TForm.Destroy */ __fastcall virtual ~TFormNumerot(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TFormNumerot(HWND ParentWindow) : Forms::TForm(ParentWindow
		) { }
	
};

//-- var, const, procedure ---------------------------------------------------
#define DESVARI (BYTE)(20)
extern TFormNumerot* FormNumerot;
extern bool __fastcall AskValue( System::AnsiString prompt, double &d, double mi, double ma, int desim
	);

}	/* namespace Numerot */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Numerot;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// numerot