main.pas

一个电子小说阅读器

				//打开键盘延时
				TimeKeyDelay.Enabled := True;
				Exit;
			end;

			//打开最新文件
			if (FnKeyOpenFile > 0) and (FnKeyOpenFile <= ItemNew.Count - 2) then
			begin
				OnItemNewFileClick(ItemNew.Items[FnKeyOpenFile - 1]);
			end;
		end;
	end;
end;

//---窗口隐藏事件---
procedure TFormMain.FormHide(Sender: TObject);
begin
	FboolIsMP3Show := FormMP3Play.Visible;
	FormMP3Play.Close;
end;

//---窗口关闭事件---
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
var i : integer;
begin
	//保存设置
	//保存书本设置
	g_nBookLeft := FormMain.Left;      //窗口左位置
	g_nBookTop := FormMain.Top;        //窗口上位置
	g_nBookWidth := FormMain.Width;    //窗口宽度
	g_nBookHeight := FormMain.Height;  //窗口高度

	if FormMain.WindowState = wsMaximized then
	begin  //最大化显示，记录最大化以前备份的位置
		RegWriteInt(c_strRegPath, c_strRegBookLeft, FnBookLeftBeMax);
		RegWriteInt(c_strRegPath, c_strRegBookTop, FnBookTopBeMax);
		RegWriteInt(c_strRegPath, c_strRegBookWidth, FnBookWidthBeMax);
		RegWriteInt(c_strRegPath, c_strRegBookHeight, FnBookHeightBeMax);
	end
	else
	begin  //正常显示，记录正常的位置
		RegWriteInt(c_strRegPath, c_strRegBookLeft, g_nBookLeft);
		RegWriteInt(c_strRegPath, c_strRegBookTop, g_nBookTop);
		RegWriteInt(c_strRegPath, c_strRegBookWidth, g_nBookWidth);
		RegWriteInt(c_strRegPath, c_strRegBookHeight, g_nBookHeight);
	end;

	//保存页面设置
	RegWriteBool(c_strRegPath, c_strRegBookMoveFlag, g_boolMove);              //移动窗口标志
	RegWriteBool(c_strRegPath, c_strRegBookResizeFlag, g_boolResize);          //改变窗口大小标志
	RegWriteBool(c_strRegPath, c_strRegPageMoveFlag, g_boolPageMove);          //拖曳页面移动标志
	RegWriteBool(c_strRegPath, c_strRegPageYeFlag, g_boolPageYe);              //点击页面翻页标志
	RegWriteBool(c_strRegPath, c_strRegMaxFlag, g_boolMax);                    //最大化显示标志
	RegWriteBool(c_strRegPath, c_strRegAutoPageMoveFlag, g_boolAutoPageMove);  //自动翻页标志
	RegWriteInt(c_strRegPath, c_strRegAutoVal, g_nAutoVal);                    //自动翻页时间

	RegWriteBool(c_strRegPath, c_strRegBIG5Flag, g_boolBIG5);                  //处理BIG5码标志
	RegWriteBool(c_strRegPath, c_strRegGBFlag, g_boolGB);                      //处理GB码标志
	RegWriteBool(c_strRegPath, c_strRegHtmlFlag, g_boolHtml);                  //处理html标志
	RegWriteBool(c_strRegPath, c_strRegChapFlag, g_boolChap);                  //智能分段标志
	RegWriteBool(c_strRegPath, c_strRegHangDFlag, g_boolHangD);                //行距加倍标志
	RegWriteBool(c_strRegPath, c_strRegUnderLineFlag, g_boolUnderLine);        //下划线标志
	RegWriteInt(c_strRegPath, c_strRegUnderLineColor, g_nUnderLineColor);      //下划线颜色
	RegWriteInt(c_strRegPath, c_strRegUnderLineOffset, g_nUnderLineOffset);    //下划线的距离
	RegWriteInt(c_strRegPath, c_strRegUnderLineThick, g_nUnderLineThick);      //下划线的宽度

	//保存页码设置
	RegWriteStr(c_strRegPath, c_strRegYe1Be, g_strYe1Be);          //页码1的前缀
	RegWriteStr(c_strRegPath, c_strRegYe1Af, g_strYe1Af);          //页码1的后缀
	RegWriteStr(c_strRegPath, c_strRegYe1Loc, g_strYe1Loc);        //页码1的位置
	RegWriteBool(c_strRegPath, c_strRegYe1Count, g_boolYe1Count);  //显示页码1的总页码标志

	RegWriteStr(c_strRegPath, c_strRegYe2Be, g_strYe1Be);          //页码2的前缀
	RegWriteStr(c_strRegPath, c_strRegYe2Af, g_strYe1Af);          //页码2的后缀
	RegWriteStr(c_strRegPath, c_strRegYe2Loc, g_strYe2Loc);        //页码2的位置
	RegWriteBool(c_strRegPath, c_strRegYe2Count, g_boolYe2Count);  //显示页码2的总页码标志

	//保存系统设置
	RegWriteBool(c_strRegPath, c_strRegBackBmpFlag, g_boolBackImage);                //背景图片标志
	RegWriteStr(c_strRegPath, c_strRegBackBmpFilename, g_strBackImageFilename);      //背景图片文件
	RegWriteBool(c_strRegPath, c_strRegLabelImageFlag, g_boolLabelImage);            //书签图片标志
	RegWriteStr(c_strRegPath, c_strRegLabelImageFilename, g_strLabelImageFilename);  //书签图片文件
	RegWriteBool(c_strRegPath, c_strRegShowTime, g_boolShowTime);                    //显示时间标志

	for i := 1 to c_nAlarmMax do
	begin
		RegWriteBool(c_strRegAlarmPath, c_strRegAlarmFlag + IntToStr(i), g_boolAlarm[i]);            //定时提醒标志
		RegWriteStr(c_strRegAlarmPath, c_strRegAlarmTime + IntToStr(i), TimeToStr(g_AlarmTime[i]));  //定时提醒时间
		RegWriteStr(c_strRegAlarmPath, c_strRegAlarmMsg + IntToStr(i), g_strAlarmMsg[i]);            //定时提醒内容
	end;

	RegWriteBool(c_strRegPath, c_strRegBtnFlat, g_boolFlat);                //浮动式按钮标志
	RegWriteBool(c_strRegPath, c_strRegViewCtrl, g_boolViewCtrl);           //显示界面控制按钮标志

	RegWriteBool(c_strRegPath, c_strRegItemChangeFlag, g_boolChangeItem);   //最新文件菜单改变顺序标志
	RegWriteBool(c_strRegPath, c_strRegOpenFileFlag, g_boolOpenCloseFile);  //打开上次关闭时候的文件标志

	if (g_strFilename <> '') and (g_strFilename <> '说明文件') and (g_strFilename <> '剪贴板') then
	begin  //有打开的文件，则将该文件写入注册表
		RegWriteStr(c_strRegFilePath, c_strRegCloseFilename, g_strFilename);
		RegWriteInt(c_strRegFilePath, c_strRegCloseFilenameIndex, FnOpenNewIndex);
		RegWriteInt(c_strRegFilePath, c_strRegCloseFilenameYe, g_nYeCurrent);
	end
	else
	begin  //没有打开的文件，则将空记录写入注册表
		RegWriteStr(c_strRegFilePath, c_strRegCloseFilename, '');
		RegWriteInt(c_strRegFilePath, c_strRegCloseFilenameIndex, -1);
		RegWriteInt(c_strRegFilePath, c_strRegCloseFilenameYe, 0);
	end;

	RegWriteBool(c_strRegPath, c_strRegClearLabFlag, g_boolClearLabel);    //清除书签信息标志
	RegWriteBool(c_strRegPath, c_strRegClearNewFlag, g_boolClearNewItem);  //清除最新文件信息标志
	RegWriteBool(c_strRegPath, c_strRegAutoGB, g_boolAutoGB);              //自动转换为GB/BIG5码
	RegWriteBool(c_strRegPath, c_strRegYeViewFlag, g_boolYeView);          //页码显示标志

	//保存页码字体设置
	RegWriteStr(c_strRegFontPath, c_strRegYeFontName, g_YeFont.Name);        //字体名称
	RegWriteInt(c_strRegFontPath, c_strRegYeFontSize, g_YeFont.Size);        //字体大小
	RegWriteInt(c_strRegFontPath, c_strRegYeFontColor, g_YeFont.Color);      //字体颜色
	RegWriteInt(c_strRegFontPath, c_strRegYeFontCharset, g_YeFont.Charset);  //字体语言

	RegWriteBool(c_strRegFontPath, c_strRegYeFontStyle1, fsBold in g_YeFont.Style);       //粗体
	RegWriteBool(c_strRegFontPath, c_strRegYeFontStyle2, fsItalic in g_YeFont.Style);     //斜体
	RegWriteBool(c_strRegFontPath, c_strRegYeFontStyle3, fsStrikeOut in g_YeFont.Style);  //删除线
	RegWriteBool(c_strRegFontPath, c_strRegYeFontStyle4, fsUnderline in g_YeFont.Style);  //下划线

	//保存页面字体设置
	RegWriteStr(c_strRegFontPath, c_strRegPageFontName, g_PageFont.Name);        //字体名称
	RegWriteInt(c_strRegFontPath, c_strRegPageFontSize, g_PageFont.Size);        //字体大小
	RegWriteInt(c_strRegFontPath, c_strRegPageFontColor, g_PageFont.Color);      //字体颜色
	RegWriteInt(c_strRegFontPath, c_strRegPageFontCharset, g_PageFont.Charset);  //字体语言

	RegWriteBool(c_strRegFontPath, c_strRegPageFontStyle1, fsBold in g_PageFont.Style);       //粗体
	RegWriteBool(c_strRegFontPath, c_strRegPageFontStyle2, fsItalic in g_PageFont.Style);     //斜体
	RegWriteBool(c_strRegFontPath, c_strRegPageFontStyle3, fsStrikeOut in g_PageFont.Style);  //删除线
	RegWriteBool(c_strRegFontPath, c_strRegPageFontStyle4, fsUnderline in g_PageFont.Style);  //下划线

	//恢复窗口状态
	FboolBookResizeFlag := True;
	FormMain.Hide;
	FormMain.WindowState := wsNormal;

	//返回当前目录
	ChDir(g_strAppCurrentDir);

	//删除临时Zip目录
	DeleteDirectory(g_strZipPassDir);
end;


//--------------------------------菜单事件--------------------------------------
//---右键主菜单弹出事件---
procedure TFormMain.MenuMainPopup(Sender: TObject);
var i : integer;
begin
	//调整最新文件菜单
	ItemNew.Enabled := (ItemNew.Count > 2);

	//调整默认最新文件
	if ItemNew.Enabled then
	begin
		if (FnOpenNewIndex >= 0) and (FnOpenNewIndex < ItemNew.Count -2) then
		begin
			ItemNew.Items[FnOpenNewIndex].Default := True;
		end
		else
		begin
			ItemNew.Items[0].Default := True;
			ItemNew.Items[0].Default := False;
		end;
	end;

	//调整文件处理菜单
	ItemBIG5.Checked := g_boolBIG5;
	ItemGB.Checked := g_boolGB;
	ItemHtml.Checked := g_boolHtml;
	ItemChap.Checked := g_boolChap;
	ItemHangD.Checked := g_boolHangD;
	ItemUnderLine.Checked := g_boolUnderLine;

    //调整书签菜单
	ItemLabel.Enabled := (g_strFilename <> '') and (g_strFilename <> '剪贴板');
	ItemAddLabel.Enabled := not FboolCurrentLabel;
	ItemEditLabel.Enabled := FboolCurrentLabel;
	ItemDeleteLabel.Enabled := FboolCurrentLabel;
	ItemLabelInput.Enabled := ItemLabel.Enabled and (ItemLabelInput.Count > 0);

	//调整默认书签
	if ItemLabelInput.Enabled then
		for i := 0 to ItemLabelInput.Count - 1 do
			ItemLabelInput.Items[i].Default := (g_nYeCurrent = FnLabelIndex[i]) or (g_nYeCurrent + 1 = FnLabelIndex[i]);

	//调整指定页菜单
	ItemInputYe.Enabled := (g_nYeCount > 2);

    //调整自动翻页菜单
	ItemAutoPageMove.Checked := g_boolAutoPageMove;
	ItemAutoPageMove.Caption := '自动翻页(' + IntToStr(g_nAutoVal) + '秒)';

    //调整背景音乐菜单
	ItemMP3.Enabled := g_boolExistMP3;

	//调整显示菜单
	if FormMain.Visible then
		ItemShow.Caption := '隐藏书本'
	else
		ItemShow.Caption := '显示书本';

	//调整最大化显示菜单
	g_boolMax := (FormMain.WindowState = wsMaximized);
	if g_boolMax then
		ItemMax.Caption := '恢复显示'
	else
		ItemMax.Caption := '最大化显示';

    //调整测试自动翻页菜单
	if FboolTestAutoPage then
		ItemRecordTime.Caption := '结束自动翻页测试...'
	else
		ItemRecordTime.Caption := '开始自动翻页测试';

    //调整清除最新文件菜单
	ItemClearNewItem.Enabled := ItemNew.Enabled;
end;

//---打开文件菜单---
procedure TFormMain.ItemOpenClick(Sender: TObject);
var nOpenFileIndex : integer;     //打开文件索引
	nOpenFileCount : integer;     //打开文件总数
begin
    //显示主窗口
	ShowMainForm;

	//打开对话框，错误则退出
	with FDlgOpenTextFile do
	begin
		if pos('|', g_strFilename) > 0 then
			InitialDir := ExtractFilePath(Copy(g_strFilename, 1, pos('|', g_strFilename) - 1))
		else
			InitialDir := ExtractFilePath(g_strFilename);

		if not Execute then
			Exit;
	end;

	//刷新主窗口
	UpdateMainForm;

    //设置参数
	FboolOpenFileFlag := False;  //写标志：没有正确打开文件
	FboolOpenLibFile := False;   //写标志：没有打开书库文件
	FnOpenFileCount := 0;        //文件计数写0

	//获得总文件数
	nOpenFileCount := FDlgOpenTextFile.Files.Count;
	if nOpenFileCount > c_nRegFilenameCount then
		nOpenFileCount := c_nRegFilenameCount;

	for nOpenFileIndex := nOpenFileCount - 1 downto 0 do
		OpenItemFile(FDlgOpenTextFile.Files.Strings[nOpenFileIndex]);  //打开菜单文件（仅把文件写入菜单）

	//判断是否打开了书库文件，并且删除原最新菜单
	if FboolOpenFileFlag and FboolOpenLibFile and g_boolClearNewItem then
	begin
        //删除最新文件菜单
		for nOpenFileIndex := FnOpenFileCount to ItemNew.Count - 3 do
			DeleteNewItem(FnOpenFileCount);

		//改变最新文件索引
		if FnOpenNewIndex >= FnOpenFileCount then
			FnOpenNewIndex := -1;
	end;

	//正确打开文件，则打开参数文件中第一个文件
	if FboolOpenFileFlag then
	begin
		OnItemNewFileClick(ItemNew.Items[0]);
	end;
end;

//---保存文件菜单---
procedure TFormMain.ItemSaveClick(Sender: TObject);
var i, j : integer;
	s : string;
begin
    //显示主窗口
	ShowMainForm;

	//打开对话框，错误则退出
	with FDlgSaveTextFile do
	begin
		if pos('|', g_strFilename) > 0 then
			InitialDir := ExtractFilePath(Copy(g_strFilename, 1, pos('|', g_strFilename) - 1))
		else
			InitialDir := ExtractFilePath(g_strFilename);

		if not Execute then
			Exit;
	end;

	//获得文件名
	s := FDlgSaveTextFile.Filename;

	//保存文件
	try
		AssignFile(FpFile, s);
		FileMode := 1;
		Rewrite(FpFile, 1);

		//初始化显示信息
		InitShowMess(0, FnCountTextRead, '保存文件');

		for i := 1 to FnCountTextRead do
		begin
			//显示完成度信息
			ShowMessPos(i);

			//写文件
			for j := 1 to Length(FstrTextReadReady[i]) do
				FstrDataBuf[j] := FstrTextReadReady[i][j];

			BlockWrite(FpFile, FstrDataBuf, Length(FstrTextReadReady[i]), FnReadnum);
		end;
	except
		Alert('保存文件 ' + s + ' 失败！' + c_strReturn + '请检查磁盘是否错误。');
	end;

	//关闭文件
	CloseFile(FpFile);

	//关闭显示信息
	CloseShowMess;
end;

//---打开最新文件---
procedure TFormMain.OnItemNewFileClick(Sender: TObject);
var strFilename : string;  //打开的文件名
	strZipFileList : TStringList;  //用于传送解压文件的文件列表
	strZipFilename, strZipSubFilename : string;  //zip文件
	i : integer;
	s : string;

	procedure InitOpenFile;
	var
		nCurrentLabel, nCountLabel : integer;
	begin  //初始化打开的文件
		//初始化打开文件的索引的文件名
		FnOpenNewIndex := TMenuItem(Sender).MenuIndex;
		g_strFilename := strFilename;

		//初始化处理设置
		if (LowerCase(ExtractFileExt(strFilename)) = '.htm') or
		   (LowerCase(ExtractFileExt(strFilename)) = '.html') then
			g_boolHtml := True;

		//初始化书签变量
		ItemLabelInput.Clear;
		nCurrentLabel := RegReadInt(c_strRegFilePath,
									c_strRegFilenameSort + IntToStr(FnOpenNewIndex),
									-1);

		if (nCurrentLabel >= 0) then
		begin
			for nCountLabel := 0 to c_nRegLabelCount - 1 do
			begin
                //读入书签设置
				FnLabelIndex[nCountLabel] := RegReadInt(c_strRegLabelPath,
														IntToStr(nCurrentLabel) + c_strRegLabel + IntToStr(nCountLabel),
														0);
				FstrLabelString[nCountLabel] := RegReadStr(c_strRegLabelPath,
														   IntToStr(nCurrentLabel) + c_strRegLabelString + IntToStr(nCountLabel),
														   '');
				if FnLabelIndex[nCountLabel] <= 0 then
					Break;

				//增加指定书签菜单
				FItemAddLabel := TMenuItem.Create(Self);
				FItemAddLabel.Caption := FstrLabelString[nCountLabel];
				FItemAddLabel.OnClick := OnLabelInputClick;
				ItemLabelInput.Add(FItemAddLabel);
			end;
		end;

		//写标志：正确打开文件
		FboolOpenFileFlag := True;

		//处理
		Init_Text;
		Init_Page_Do;
		Init_Page;

		//翻到第1页
		ChangeYe(1);

		//刷新主窗口
		UpdateMainForm;
	end;

begin
	//没有最新文件则退出
	if ItemNew.Count <= 2 then Exit;

	//得到文件名
	strFilename := GetIndexFilename(TMenuItem(Sender).MenuIndex);

	//---打开文件---
	//判断是否是ZIP文件中的文件
	if pos('|', strFilename) > 0 then
	begin  //解压ZIP文件
		//得到解压文件名
		strZipFilename := Copy(strFilename,
							   1,
							   pos('|', strFilename) - 1);
		strZipSubFilename := Copy(strFilename,
								  pos('|', strFilename) + 1,
								  Length(strFilename) - Length(strZipFilename) - 1);
		s := strZipSubFilename;

		i := pos('\', strZipSubFilename);
		while i > 0 do
		begin
			strZipSubFilename[i] := '/';
			i := pos('\', strZipSubFilename);
		end;

        //解压文件
		UnZipFile(strZipFilename, strZipSubFilename, g_strZipPassDir);
		strZipSubFilename := g_strZipPassDir + '\' + s;

		//判断文件是否存在