?? main.pas

?? 一個很好的閱讀器
?? PAS
?? 第 1 頁 / 共 5 頁
字號:
上一頁 1 2 3 45
end;

//---指定頁碼菜單---
procedure TFormMain.ItemInputYeClick(Sender: TObject);
begin
    //顯示主窗口
	ShowMainForm;

	if g_nYeCount <= 2 then Exit;

	with TFormInputYe.Create(Self) do
	begin
		if ShowModal = mrOk then
			ChangeYe(m_nPos);  //轉到指定頁數
		Free;
	end;
end;

//---自動翻頁菜單---
procedure TFormMain.ItemAutoPageMoveClick(Sender: TObject);
begin
	TimeAutoPageMove.Enabled := False;   //關閉自動翻頁
	TimeAutoUnderLine.Enabled := False;  //關閉自動移動下劃線

	g_boolAutoPageMove := not g_boolAutoPageMove;

	TimeAutoPageMove.Enabled := g_boolAutoPageMove;
	TimeAutoUnderLine.Enabled := g_boolAutoPageMove and g_boolUnderLine;

	if g_boolAutoPageMove and g_boolUnderLine then
	begin  //調整自動下劃線狀態
		ImageUnderLine.Left := FnPage1Left;  //下劃線左位置
		FnUnderLineNumber := 1;              //下劃線行數寫1
		Init_UnderLine;                      //初始化下劃線
  	end;
end;

//---背景音樂菜單---
procedure TFormMain.ItemMP3Click(Sender: TObject);
begin
	if g_boolExistMP3 then
		FormMP3Play.Show;
end;

//---查看剪貼板菜單---
procedure TFormMain.ItemReadClipClick(Sender: TObject);
begin
	g_strFilename := '剪貼板';

	Init_Page;    //初始化頁面
	ChangeYe(1);  //翻到第1頁
end;

//---設置菜單---
procedure TFormMain.ItemSetupClick(Sender: TObject);
var nModalResult : integer;
begin
    //顯示主窗口
	ShowMainForm;

	g_nBookLeft := FormMain.Left;      //窗口左位置
	g_nBookTop := FormMain.Top;        //窗口上位置
	g_nBookWidth := FormMain.Width;    //窗口寬度
	g_nBookHeight := FormMain.Height;  //窗口高度
	g_boolMax := (FormMain.WindowState = wsMaximized);  //最大化顯示標志

	with TFormSetup.Create(Application) do
	begin
		nModalResult := ShowModal;
		Free;
	end;

	case nModalResult of
		mrOk :     //更改系統設置
		begin
			Init_Setup;
		end;

		mrRetry :  //恢復默認設置
		begin
			//清除注冊標志
			RegWriteStr(c_strRegPath, c_strRegRegFlag, '');
			Prompt('重新啟動《電子小說閱讀器》即可恢復為默認設置。');
		end;
	end;
end;

//---顯示書本菜單---
procedure TFormMain.ItemShowClick(Sender: TObject);
begin
	FormMain.Visible := not FormMain.Visible;
end;

//---最大化顯示菜單---
procedure TFormMain.ItemMaxClick(Sender: TObject);
begin
	g_boolMax := not (FormMain.WindowState = wsMaximized);

	//顯示主窗口
	ShowMainForm;

	Init_Max;
end;

//---測試自動翻頁菜單---
procedure TFormMain.ItemRecordTimeClick(Sender: TObject);
begin
	if FboolTestAutoPage then
	begin  //結束翻頁測試，詢問測試結果是否正確
		FboolTestAutoPage := False;
		TimeRecord.Enabled := False;

		if FnPageRecordTime < 0 then FnPageRecordTime := 0;
		if FnPageRecordTime > 1000 then FnPageRecordTime := 1000;

		if not Confirm('自動翻頁時間為' + IntToStr(FnPageRecordTime) + '秒？') then
		begin  //放棄
			TimeAutoPageMove.Enabled := g_boolAutoPageMove;  //恢復自動翻頁
			TimeAutoUnderLine.Enabled := g_boolAutoPageMove and g_boolUnderLine;  //恢復自動下劃線移動
			Exit;
		end;

		g_boolAutoPageMove := True;
		g_nAutoVal := FnPageRecordTime;

		TimeAutoPageMove.Enabled := g_boolAutoPageMove;  //自動翻頁標志
		TimeAutoPageMove.Interval := g_nAutoVal * 1000;  //自動翻頁時間
		TimeAutoUnderLine.Enabled := g_boolAutoPageMove and g_boolUnderLine;              //自動下劃線移動標志
		TimeAutoUnderLine.Interval := Trunc(g_nAutoVal * 1000 / (FnPageNumber + 2) / 2);  //自動下劃線移動時間

		//測試完成后，應先翻一頁
		if (g_boolAutoPageMove) and (g_nAutoVal > 0) then
			TimeAutoPageMoveTimer(Self);
	end
	else
	begin  //開始翻頁測試，保存原始設置
		FboolTestAutoPage := True;
		TimeAutoPageMove.Enabled := False;
		TimeAutoUnderLine.Enabled := False;

		FnPageRecordTime := 0;
		TimeRecord.Enabled := True;
	end;
end;

//---清除最新文件菜單---
procedure TFormMain.ItemClearNewItemClick(Sender: TObject);
var i, j, k : integer;
begin
    //顯示主窗口
	ShowMainForm;

	with TFormClearNew.Create(Self) do
	begin
		m_nMax := ItemNew.Count - 2;
		if ShowModal = mrOk then
		begin
			if RadioBtnClearAll.Checked then
			begin  //全部清除
				RegEraseSection(c_strRegFilePath);   //刪除文件記錄
				RegEraseSection(c_strRegLabelPath);  //刪除書簽記錄

				//更新最新文件索引、建立默認索引
				for i := 0 to c_nRegFilenameCount - 1 do
					RegWriteInt(c_strRegFilePath, c_strRegFilenameSort + IntToStr(i), i);

				//刪除菜單中最新文件
				for i := 0 to ItemNew.Count - 3 do
					ItemNew.Delete(0);

                //最新文件索引寫 -1
				FnOpenNewIndex := -1;
			end
			else
			begin  //部分清除
				//設置循環
				j := StrToInt(EditFromIndex.Text) - 1;
				k := StrToInt(EditToIndex.Text) - 1;

				if k < j then
				begin
					j := StrToInt(EditToIndex.Text) - 1;
					k := StrToInt(EditFromIndex.Text) - 1;
				end;

				//刪除指定序號最新文件
				for i := j to k do
					DeleteNewItem(j);

				//改變最新文件索引
				if (FnOpenNewIndex >= j) and (FnOpenNewIndex <= k) then
					FnOpenNewIndex := -1;  //最新文件索引寫 -1

				if FnOpenNewIndex > k then
					dec(FnOpenNewIndex, (k - j + 1));
			end;
		end;

		Free;
	end;
end;

//---關于菜單---
procedure TFormMain.ItemAboutClick(Sender: TObject);
begin
    //顯示主窗口
	ShowMainForm;

	with TFormAbout.Create(Self) do
	begin
		if ShowModal = mrRetry then
		begin
			with TFormMoreName.Create(Self) do
			begin
				ShowModal;
				Free;
			end;
		end;

		Free;
	end;
end;

//---退出菜單---
procedure TFormMain.ItemQuitClick(Sender: TObject);
begin
	FormMain.Close;
end;

//---翻頁菜單彈出事件---
procedure TFormMain.MenuPageMovePopup(Sender: TObject);
begin
	ItemPagePrev.Enabled := (g_nYeCurrent > 1);
	ItemPageNext.Enabled := (g_nYeCurrent < g_nYeCount - 1);

	ItemPageFirst.Enabled := (g_nYeCurrent > 1);
	ItemPageLast.Enabled := (g_nYeCurrent < g_nYeCount - 1);

	ItemInputYe1.Enabled := (g_nYeCount > 2);

	ItemFilePrev.Enabled := (FnOpenNewIndex > 0);
	ItemFileNext.Enabled := (FnOpenNewIndex < ItemNew.Count - 3) and (FnOpenNewIndex > 0);
end;

//---向前翻頁菜單---
procedure TFormMain.ItemPagePrevClick(Sender: TObject);
begin
	if FboolEdit then Exit;
	ChangeYe(g_nYeCurrent - 2);
end;

//---向后翻頁菜單---
procedure TFormMain.ItemPageNextClick(Sender: TObject);
begin
	if FboolEdit then Exit;
	ChangeYe(g_nYeCurrent + 2);
end;

//---翻到第一頁菜單---
procedure TFormMain.ItemPageFirstClick(Sender: TObject);
begin
	if FboolEdit then Exit;
	ChangeYe(1);
end;

//---翻到最后一頁---
procedure TFormMain.ItemPageLastClick(Sender: TObject);
begin
	if FboolEdit then Exit;
	ChangeYe(g_nYeCount);
end;

//---上一篇小說菜單---
procedure TFormMain.ItemFilePrevClick(Sender: TObject);
begin
	if FnOpenNewIndex > 0 then
		OnItemNewFileClick(ItemNew.Items[FnOpenNewIndex - 1]);
end;

//---下一篇小說菜單---
procedure TFormMain.ItemFileNextClick(Sender: TObject);
begin
	if (FnOpenNewIndex < ItemNew.Count - 3) and (FnOpenNewIndex >= 0) then
		OnItemNewFileClick(ItemNew.Items[FnOpenNewIndex + 1]);
end;

//---定時提醒菜單---
procedure TFormMain.ItemShowAlarmClick(Sender: TObject);
begin
	with TFormAlarm.Create(Self) do
	begin
		ShowModal;
		Free;
	end;
end;

//---不顯示時間菜單---
procedure TFormMain.ItemShowTimeClick(Sender: TObject);
begin
	ShowTime(False);
end;

//---保存修改---
procedure TFormMain.ItemSaveEditClick(Sender: TObject);
var nYeCurrent : integer;
begin
	FboolEdit := False;  //寫標志：不處于編輯狀態

	//恢復原功能
	FormMain.PopupMenu := MenuMain;
	FormMain.KeyPreview := True;

	ImagePagePrev.Enabled := True;
	ImagePageNext.Enabled := True;

    ImageUnderLine.Visible := g_boolUnderLine;
	TimeAutoPageMove.Enabled := g_boolAutoPageMove;
	TimeAutoUnderLine.Enabled := g_boolAutoPageMove and g_boolUnderLine;

	//保存編輯框中的內容
	FboolSaveEdit := True;   //寫標志：處于保存編輯狀態
	Init_Page_String;        //初始化頁面內容
	FboolSaveEdit := False;  //寫標志：不處于保存編輯狀態

	//隱藏編輯框1、2
	FMemoPageEdit[1].Hide;
	FMemoPageEdit[2].Hide;

	//初始化頁面
	nYeCurrent := g_nYeCurrent;  //保存當前頁碼
	Init_Page;                   //初始化頁面
	ChangeYe(nYeCurrent);        //翻到保存的當前頁碼
end;

//---放棄修改---
procedure TFormMain.ItemExitEditClick(Sender: TObject);
begin
	FboolEdit := False;  //寫標志：不處于編輯狀態

	//恢復原功能
	FormMain.PopupMenu := MenuMain;
	FormMain.KeyPreview := True;

	ImagePagePrev.Enabled := True;
	ImagePageNext.Enabled := True;

    ImageUnderLine.Visible := g_boolUnderLine;
	TimeAutoPageMove.Enabled := g_boolAutoPageMove;
	TimeAutoUnderLine.Enabled := g_boolAutoPageMove and g_boolUnderLine;

	//隱藏編輯框1、2
	FMemoPageEdit[1].Hide;
	FMemoPageEdit[2].Hide;

	//刷新頁面內容
	Init_Page_String;
end;


//---------------------------------圖片事件-------------------------------------
//---背景上鼠標按下事件---
procedure TFormMain.ImageBookMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
	//判斷是否進入移動狀態
	if (Button = mbLeft) and (g_boolMove) and (g_boolPageMove) and (FormMain.WindowState = wsNormal) then
		FnPageMouseDown := 1
	else
		FnPageMouseDown := 0;
end;

//---背景上鼠標移動事件---
procedure TFormMain.ImageBookMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
	if FnPageMouseDown = 1 then
	begin
		FnPageMouseDown := 2;
		ReleaseCapture;
		SendMessage(Handle, WM_NCLBUTTONDOWN, HTCaption, 0);
	end;
end;

//---背景上鼠標釋放事件---
procedure TFormMain.ImageBookMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
	if (Button = mbLeft) and (g_boolPageYe) and (FnPageMouseDown <> 2) then
	begin
		FnPageMouseDown := 0;
		if x < Trunc(ImageBook.Width / 2) then
			ItemPagePrev.Click
		else
			ItemPageNext.Click;
	end;
end;

//---頁面上鼠標釋放事件---
procedure TFormMain.LabelPage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
	if (Button = mbLeft) and (g_boolPageYe) and (FnPageMouseDown <> 2) then
	begin
		FnPageMouseDown := 0;
		if TLabel(Sender).Name = 'LabelPage1' then
			ItemPagePrev.Click
		else
			ItemPageNext.Click;
	end;
end;

//---向前翻頁---
procedure TFormMain.ImagePagePrevClick(Sender: TObject);
begin
	if FboolEdit then Exit;
	ChangeYe(g_nYeCurrent - 2);
end;

//---向后翻頁---
procedure TFormMain.ImagePageNextClick(Sender: TObject);
begin
	if FboolEdit then Exit;
	ChangeYe(g_nYeCurrent + 2);
end;

//---最小化---
procedure TFormMain.ImageMinSizeClick(Sender: TObject);
begin
  	FormMain.Hide;
end;

//---移動按鈕上鼠標按下事件---
procedure TFormMain.ImageMoveMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
be
上一頁 1 2 3 45
?? 文件大小 681 K
?? 上傳用戶 TTndsc
?? 所屬分類編輯器/閱讀器
??? 相關標簽

#閱讀器
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main.pas

?? 快捷鍵說明
