//---------------------------------------------------------------------------
#include <windows.h>
#pragma hdrstop

#include "property.h"
//---------------------------------------------------------------------------

class CConsoleWnd
{
private:
    void setCaption(char* NewCaption);
	char* getCaption(){return NULL;};
public:
    __property_rw<char*,CConsoleWnd> Caption;

    CConsoleWnd()
    {
		Caption.Assign(this, getCaption,setCaption); // Linking
	}
};
//''''''''''''''''''''''''''''''''''
void CConsoleWnd::setCaption(char* NewCaption)
{
	SetConsoleTitle(NewCaption);
}
//---------------------------------------------------------------------------
int main(int argc, char* argv[])
{
	CConsoleWnd MyWin;
	MyWin.Caption = "Hallo, my name is Simon";
	//char * Test   = MyWin.Caption;
    return  0 ;
}

// property.h

// PROPERTY-Interface (like VB,Delphi,C++Builder)
// FOR : MS Visual C++

// Copyright by Simon Kroik (2002)

#ifndef _PROPERTY_H__SimonKroik_
#define _PROPERTY_H__SimonKroik_
//--------------------------------------------------------------------
#ifdef _DEBUG
#include <stdio.h>
#include <windows.h>
#include <typeinfo.h>
#endif

void PropertyAssertMsg(char * PropertyName, 
					   const char * _TName, 
					   const char * _ContainerClassName, 
					   bool WasDefined)
{
	#ifdef _DEBUG
		if (!WasDefined)
		{
			char Msg[ 100 ];
			sprintf(Msg,"%s\n\n"
						"There is no function related \n"
						"to property-type : <%s> \n"
						"for class : <%s>.\n",
						PropertyName,_TName,_ContainerClassName);
			MessageBox(NULL,Msg,"Property. Alarm-Message", MB_OK|MB_ICONWARNING );
		}
	#endif
}

//--------------------------------------------------------------------
// Property with "Read-Only" - Interface
template <class _T, class _ContainerClass> class __property_r
{
	typedef _T  (_ContainerClass:: * TGetFunc)(void);
private:
	_ContainerClass* pClient;
    TGetFunc getVal;
	bool HaveLinkedGet;
public:
	__property_r()
	{
		HaveLinkedGet=false;
	}
	//''''''''''''''''''''''''
	void Assign(_ContainerClass *SC,
				TGetFunc get_f)
	{
		pClient=SC;
		getVal=get_f;
		HaveLinkedGet=true;
	}
    //''''''''''''''''''''''''
	operator _T() 
    {
		PropertyAssertMsg("__property_r",
			typeid(_T).name(),
			typeid(_ContainerClass).name(),
			HaveLinkedGet);
        return (pClient->*getVal)();
    }
};
//--------------------------------------------------------------------
// Property with "Write-Only" - Interface
template <class _T, class _ContainerClass> class __property_w
{
	typedef void  (_ContainerClass:: * TSetFunc)(_T);
private:
	_ContainerClass* pClient;
    TSetFunc setVal;
	bool HaveLinkedSet;
public:
	__property_w()
	{
		HaveLinkedSet=false;
	}
	//''''''''''''''''''''''''
	void Assign(_ContainerClass *SC, 
				TSetFunc set_f)
	{
		pClient=SC;
		setVal=set_f;
		HaveLinkedSet=true;
	}
    //''''''''''''''''''''''''
    __property_w<_T,_ContainerClass>& operator = (_T Val)
    {
		PropertyAssertMsg("__property_w",
							typeid(_T).name(),
							typeid(_ContainerClass).name(),
							HaveLinkedSet);
		(pClient->*setVal)(Val); 
        return *this;
    }
};
//--------------------------------------------------------------------
// Property with "Read-Write" - Interface
template <class _T, class _ContainerClass> class __property_rw
{
	typedef _T  (_ContainerClass:: * TGetFunc)(void);
	typedef void  (_ContainerClass:: * TSetFunc)(_T);
private:
	_ContainerClass* pClient;
    TSetFunc setVal;
    TGetFunc getVal;
	bool HaveLinkedGet;
	bool HaveLinkedSet;
public:
	__property_rw()
	{
		HaveLinkedGet=false;
		HaveLinkedSet=false;
	}
	//''''''''''''''''''''''''
	void Assign(_ContainerClass *SC,
				TGetFunc get_f,
				TSetFunc set_f)
	{
		pClient=SC;
		getVal=get_f;
		setVal=set_f;
		HaveLinkedGet=true;
		HaveLinkedSet=true;

	}
	//''''''''''''''''''''''''
	void Assign(_ContainerClass *SC,
				TSetFunc set_f,
				TGetFunc get_f)
	{
		pClient=SC;
		getVal=get_f;
		setVal=set_f;
		HaveLinkedGet=true;
		HaveLinkedSet=true;
	}
	//''''''''''''''''''''''''
	operator _T() 
    {
		PropertyAssertMsg("__property_rw",
							typeid(_T).name(),
							typeid(_ContainerClass).name(),
							HaveLinkedGet);
        return (pClient->*getVal)();
    }
    //''''''''''''''''''''''''
    __property_rw<_T,_ContainerClass>& operator = (_T Val)
    {
		PropertyAssertMsg("__property_rw",
							typeid(_T).name(),
							typeid(_ContainerClass).name(),
							HaveLinkedSet);
		(pClient->*setVal)(Val); 
        return *this;
    }
};
//--------------------------------------------------------------------
#endif