winskinini.hpp

delphi皮肤控件,很好的.我正在使用当中

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'WinSkinIni.pas' rev: 6.00

#ifndef WinSkinIniHPP
#define WinSkinIniHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <WinConvert.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Winskinini
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TQuickIni;
class PASCALIMPLEMENTATION TQuickIni : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	bool FAuto;
	AnsiString FFileName;
	Classes::TStrings* FIniFile;
	AnsiString __fastcall GetName(const AnsiString Line);
	AnsiString __fastcall GetValue(const AnsiString Line, const AnsiString Name);
	int __fastcall GetSectionIndex(const AnsiString Section);
	bool __fastcall IsSection(const AnsiString Line);
	void __fastcall SetFileName(AnsiString Value);
	void __fastcall SetIniFile(Classes::TStrings* Value);
	
protected:
	Classes::TStrings* FSections;
	void __fastcall Compress(Classes::TStream* source, Classes::TStream* dest);
	void __fastcall Decompress(Classes::TStream* source, Classes::TStream* Dest);
	
public:
	__fastcall TQuickIni(void);
	__fastcall virtual ~TQuickIni(void);
	void __fastcall LoadFromFile(AnsiString aname);
	void __fastcall SaveToFile(AnsiString aname);
	void __fastcall LoadFromStream(Classes::TStream* Stream);
	void __fastcall SaveToStream(Classes::TStream* Stream);
	void __fastcall LoadFromZip(AnsiString aname);
	void __fastcall SavetoZip(AnsiString aname);
	void __fastcall DeleteKey(const AnsiString Section, const AnsiString Ident);
	void __fastcall EraseSection(const AnsiString Section);
	bool __fastcall ReadBool(const AnsiString Section, const AnsiString Ident, bool Default);
	int __fastcall ReadInteger(const AnsiString Section, const AnsiString Ident, int Default);
	void __fastcall ReadSection(const AnsiString Section, Classes::TStrings* Strings);
	void __fastcall ReadSections(Classes::TStrings* Strings);
	void __fastcall ReadSectionValues(const AnsiString Section, Classes::TStrings* Strings);
	AnsiString __fastcall ReadString(const AnsiString Section, const AnsiString Ident, AnsiString Default);
	void __fastcall RebuildSections(void);
	void __fastcall WriteBool(const AnsiString Section, const AnsiString Ident, bool Value);
	void __fastcall WriteInteger(const AnsiString Section, const AnsiString Ident, int Value);
	void __fastcall WriteString(const AnsiString Section, const AnsiString Ident, AnsiString Value);
	__property AnsiString FileName = {read=FFileName, write=SetFileName};
	__property bool AutoSaveLoad = {read=FAuto, write=FAuto, nodefault};
	__property Classes::TStrings* IniFile = {read=FIniFile, write=SetIniFile};
	void __fastcall Clear(void);
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Winskinini */
using namespace Winskinini;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// WinSkinIni