更多感受－Hello VCL (一)

HFONT CreateFont( 
	int nHeight, // height of font
	int nWidth, // average character width
	int nEscapement, // angle of escapement
	int nOrientation, // base-line orientation angle
	int fnWeight, // font weight
	DWORD fdwItalic, // italic attribute option
	DWORD fdwUnderline, // underline attribute option
	DWORD fdwStrikeOut, // strikeout attribute option
	DWORD fdwCharSet, // character set identifier
	DWORD fdwOutputPrecision, // output precision
	DWORD fdwClipPrecision, // clipping precision
	DWORD fdwQuality, // output quality
	DWORD fdwPitchAndFamily, // pitch and family
	LPCTSTR lpszFace // typeface name
);

BOOL CFont::CreateFont (int nHeight,
	int nWidth,
	int nEscapement,
	int nOrientation,
	int nWeight,
	BYTE bItalic,
	BYTE bUnderline,
	BYTE cStrikeOut,
	BYTE nCharSet,
	BYTE nOutPrecision,
	BYTE nClipPrecision,
	BYTE nQuality,
	BYTE nPitchAndFamily,
	LPCTSTR lpszFacename
);

	Font->Name = “宋体”; //字体名
	Font->Charset = GB2312_CHARSET; //字符集
	Font->Size = 24; //尺寸
	Font->Style = Font->Style << fsBold;//粗体风格

//---------------------------------------------------------------------------
//文件: Unit2.h
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------

struct AlertItem
{
	AlertItem()
			: status(waitting)
	{}

	~AlertItem()
	{}

	//定义提醒项的三种状态：未提醒，正在提醒，已过期:
	enum Status {waitting, alertting, past};

	static AnsiString GetStatusCaption(Status status);

	Status status;
	AnsiString caption;
	TDateTime time;
};

struct AlertList
{
public:
	AlertList();
	~AlertList();

	//添加一个新的提醒项.指定提醒内容，和提醒时间
	AlertItem* AddItem(AnsiString const caption
					   , TDateTime const time);

	//获得第index条的提醒项：
	AlertItem* GetItem(int index);
	//删除第index条的提醒项:
	void RemoveItem(int index);
	//删除全部提醒项：
	void RemoveAll();

	//得到个数：
	int GetCount() const
	{
		return lst->Count;
	}

	//保存到文件：
	void Save(AnsiString const & fileName);
	//从文件中加载:
	void Load(AnsiString const & fileName);

private:
	TList* lst;
};

#endif

//文件Unit2.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)

AnsiString AlertItem::GetStatusCaption(AlertItem::Status status)
{
	AnsiString captions [] =
		{
			"等待", "警告", "过期",
		};

	return captions[status];
}

AlertList::AlertList()
{
	lst = new TList;
}

AlertList::~AlertList()
{
	RemoveAll();

	delete lst;
}

AlertItem* AlertList::AddItem(AnsiString const caption, TDateTime const time)
{
	AlertItem* item = new AlertItem;
	item->status = AlertItem::waitting;
	item->caption = caption;
	item->time = time;

	lst->Add(item);

	return item;
}

AlertItem* AlertList::GetItem(int index)

{
	if (index < 0 || index > lst->Count)
	{
		return 0;
	}

	return (AlertItem *)lst->Items[index];
}

void AlertList::RemoveItem(int index)
{
	AlertItem* item = GetItem(index);

	if (item != 0)
	{
		delete item;
		lst->Delete(index);
	}
}

void AlertList::RemoveAll()
{
	while (lst->Count > 0)
	{
		RemoveItem(0);
	}
}

//保存到文件：
void AlertList::Save(AnsiString const & fileName)
{
	TFileStream* fs = new TFileStream(fileName, fmCreate);

	int ver = 1;
	fs->Write(&ver, sizeof(ver));

	int count = GetCount();
	fs->Write(&count, sizeof(count));

	for (int i = 0; i < count; ++i)
	{
		AlertItem* item = GetItem(i);

		int len = item->caption.Length();
		fs->Write(&len, sizeof(len));
		fs->Write(item->caption.c_str(), len);

		fs->Write(&item->status, sizeof(item->status));
		fs->Write(&item->time.Val, sizeof(item->time.Val));
	}

	delete fs;
}

//从文件中加载:
void AlertList::Load(AnsiString const & fileName)
{
	if (!FileExists(fileName)) //判断文件是否存在？
	{
		return;
	}

	TFileStream* fs = new TFileStream(fileName, fmOpenRead);

	int ver;
	fs->Read(&ver, sizeof(ver));

	int count;
	fs->Read(&count, sizeof(count));

	for (int i = 0; i < count; ++i)
	{
		AlertItem* item = new AlertItem;

		int len;
		fs->Read(&len, sizeof(len));

		char *buf = new char[len + 1];
		memset(buf, 0, len + 1);

		fs->Read(buf, len);
		item->caption = buf;
		delete[] buf;

		fs->Read(&item->status, sizeof(item->status));
		fs->Read(&item->time.Val, sizeof(item->time.Val));

		lst->Add(item);
	}

	delete fs;
}