//----------------------------------------------------------------------------
// IniPara.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0
// From: IniPara.pas
//----------------------------------------------------------------------------
#ifndef IniParaHPP
#define IniParaHPP
//----------------------------------------------------------------------------
#include <kbar.hpp>
#include <ComCtrls.hpp>
#include <Erotaind.hpp>
#include <kdouble.hpp>
#include <Grids.hpp>
#include <KParam.hpp>
#include <kComp.hpp>
#include <ExtCtrls.hpp>
#include <IniFiles.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 <Windows.hpp>
#include <System.hpp>
namespace Inipara
{
//-- type declarations -------------------------------------------------------
typedef Classes::TComponent* *PComponent;

typedef SmallString<10>  NameString;

class __declspec(delphiclass) TParamValue;
class __declspec(pascalimplementation) TParamValue : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	NameString FName;
	double FValue;
	double FFactory;
	double FMult;
	int FDes;
	System::AnsiString FIni;
	System::AnsiString FSec;
	int FIndex;
	char FTyp;
	bool FNoIni;
	bool FRO;
	
public:
	virtual int __fastcall GetInt(void);
	virtual void __fastcall SetInt(int i);
	virtual System::AnsiString __fastcall GetStr(void);
	virtual void __fastcall SetStr( System::AnsiString s);
	virtual System::AnsiString __fastcall WriteValue(double d);
	System::AnsiString __fastcall WriteBit(int i, bool b);
	virtual void __fastcall SetBit(int i, bool b);
	virtual bool __fastcall GetBit(int i);
	virtual System::AnsiString __fastcall WriteFunction(double d);
	virtual System::AnsiString __fastcall ReadFunction(void);
	virtual System::AnsiString __fastcall SaveValue(void);
	virtual System::AnsiString __fastcall RefreshValue(void);
	virtual bool __fastcall IsFactoryValue(void);
	virtual bool __fastcall IsFactory(double d);
	void __fastcall ParseType( System::AnsiString s);
	
__published:
	__property NameString Name = {read=FName, write=FName};
	__property double Value = {read=FValue, write=FValue};
	__property System::AnsiString AsString = {read=GetStr, write=SetStr, nodefault};
	__property double Factory = {read=FFactory, write=FFactory};
	__property double Mult = {read=FMult, write=FMult};
	__property int Des = {read=FDes, write=FDes, nodefault};
	__property int AsInteger = {read=GetInt, write=SetInt, nodefault};
	__property System::AnsiString Ini = {read=FIni, write=FIni, nodefault};
	__property System::AnsiString Sec = {read=FSec, write=FSec, nodefault};
	__property int Ind = {read=FIndex, write=FIndex, nodefault};
public:
	/* TObject.Create */ __fastcall TParamValue(void) : System::TObject() { }
	/* TObject.Destroy */ __fastcall virtual ~TParamValue(void) { }
	
};

class __declspec(delphiclass) TParamList;
class __declspec(pascalimplementation) TParamList : public Classes::TStringList
{
	typedef Classes::TStringList inherited;
	
private:
	System::AnsiString FModel;
	
protected:
	Classes::TComponent* Owner;
	
public:
	System::AnsiString ValueIniName;
	System::AnsiString ValueSection;
	System::AnsiString TypeIniName;
	__fastcall TParamList(Classes::TComponent* AOwner);
	virtual System::AnsiString __fastcall ReadParams( System::AnsiString typeini,  System::AnsiString valueini
		,  System::AnsiString valsec);
	virtual double __fastcall Value(int i);
	virtual System::AnsiString __fastcall Name(int i);
	virtual TParamValue* __fastcall PValue(int i);
	virtual System::AnsiString __fastcall WriteValue(int i, double d);
	virtual System::AnsiString __fastcall WriteBit(int i, int b, bool v);
	virtual void __fastcall SetBit(int i, int b, bool v);
	virtual bool __fastcall GetBit(int i, int b);
	virtual System::AnsiString __fastcall RefreshValue(int i);
	virtual System::AnsiString __fastcall RefreshAll(void);
	virtual System::AnsiString __fastcall SaveAll(void);
	virtual System::AnsiString __fastcall WriteAll(void);
	virtual System::AnsiString __fastcall AsString(int i);
	virtual bool __fastcall IsFactoryValue(int i);
	virtual TParamValue* __fastcall NewParam( System::AnsiString &name);
	virtual double __fastcall GetValue(const System::AnsiString name);
	virtual int __fastcall GetIndex(const System::AnsiString name);
	virtual TParamValue* __fastcall FindParam(const System::AnsiString name);
	
__published:
	__property System::AnsiString Model = {read=FModel, write=FModel, nodefault};
public:
	/* TStringList.Destroy */ __fastcall virtual ~TParamList(void) { }
	
};

class __declspec(delphiclass) TFormParams;
class __declspec(pascalimplementation) TFormParams : public Forms::TForm
{
	typedef Forms::TForm inherited;
	
__published:
	Extctrls::TPanel* Panel1;
	Extctrls::TNotebook* NotebookType;
	Stdctrls::TListBox* ListBoxList;
	Stdctrls::TLabel* LabelParam;
	Extctrls::TPanel* Panel2;
	Extctrls::TTimer* TimerChange;
	Extctrls::TPanel* Panel4;
	Stdctrls::TLabel* LabelSelected;
	Extctrls::TPanel* Panel3;
	Stdctrls::TLabel* LabelHeader;
	Extctrls::TPanel* Panel5;
	Stdctrls::TLabel* LabelUnit;
	Stdctrls::TLabel* LabelRange;
	Kparam::TkParam* kParamValue;
	Grids::TStringGrid* GParams;
	Extctrls::TPanel* PanelButtons;
	Stdctrls::TButton* ButtonRefresh;
	Stdctrls::TButton* ButtonSaveAll;
	Stdctrls::TButton* ButtonWrite;
	Stdctrls::TButton* ButtonDone;
	Stdctrls::TLabel* LabelFactory;
	Extctrls::TPanel* Panel6;
	Stdctrls::TLabel* LabelError;
	Stdctrls::TEdit* EditName;
	Stdctrls::TButton* ButtonWriteAll;
	Stdctrls::TButton* ButtonDefault;
	Stdctrls::TLabel* Label1;
	Stdctrls::TLabel* Label2;
	Stdctrls::TListBox* ListBoxBit;
	Stdctrls::TButton* ButtonRead;
	Stdctrls::TCheckBox* CheckBoxAutoRead;
	Extctrls::TTimer* TimerAutoRead;
	Stdctrls::TButton* ButtonNot;
	Kbar::TkTrackBar* kTrackBarValue;
	Stdctrls::TLabel* LabelMax;
	Stdctrls::TLabel* LabelMin;
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall ListBoxListClick(System::TObject* Sender);
	void __fastcall TimerChangeTimer(System::TObject* Sender);
	void __fastcall GParamsClick(System::TObject* Sender);
	virtual void __fastcall ShowParam(int row);
	void __fastcall ButtonDoneClick(System::TObject* Sender);
	void __fastcall FormClose(System::TObject* Sender, Forms::TCloseAction &Action);
	void __fastcall kParamValueClick(System::TObject* Sender);
	void __fastcall CheckWriteButton(void);
	void __fastcall ButtonWriteClick(System::TObject* Sender);
	void __fastcall ButtonRefreshClick(System::TObject* Sender);
	void __fastcall ButtonSaveAllClick(System::TObject* Sender);
	void __fastcall EditNameChange(System::TObject* Sender);
	void __fastcall ButtonDefaultClick(System::TObject* Sender);
	void __fastcall ButtonWriteAllClick(System::TObject* Sender);
	void __fastcall ButtonReadClick(System::TObject* Sender);
	void __fastcall TimerAutoReadTimer(System::TObject* Sender);
	void __fastcall CheckBoxAutoReadClick(System::TObject* Sender);
	void __fastcall ListBoxBitDblClick(System::TObject* Sender);
	void __fastcall ButtonNotClick(System::TObject* Sender);
	void __fastcall SetTBPos(void);
	double __fastcall GetTBPos(void);
	void __fastcall kTrackBarValueChange(System::TObject* Sender);
	
private:
	Classes::TComponent* *pcomp;
	TParamValue* pvalue;
	TParamList* list;
	double origvalue;
	double curvalue;
	double factoryvalue;
	virtual System::AnsiString __fastcall HeaderStr(int row);
	void __fastcall ReadRow(void);
	
public:
	__fastcall TFormParams(Classes::TComponent* AOwner, PComponent ipcomp, TParamList* l);
	virtual int __fastcall FindIndex(int row);
	virtual int __fastcall FindIndexRow(void);
	virtual void __fastcall RefreshGrid(int row);
	virtual void __fastcall RefreshGridRow(void);
public:
	/* TForm.Create */ __fastcall virtual TFormParams(Classes::TComponent* AOwner) : Forms::TForm(AOwner
		) { }
	/* TForm.CreateNew */ __fastcall TFormParams(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
		AOwner, Dummy) { }
	/* TForm.Destroy */ __fastcall virtual ~TFormParams(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TFormParams(HWND ParentWindow) : Forms::TForm(ParentWindow
		) { }
	
};

//-- var, const, procedure ---------------------------------------------------
//-- template instantiations -------------------------------------------------
template class SmallString<10> ;

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