setup.pas

源代码竟供大家参考

       //调整处理变量
       if (f_main.pop_BIG5.Checked=Check_BIG5.Checked) and
          (f_main.pop_Chap.Checked=Check_Chap.Checked) and
          (f_main.pop_html.Checked=Check_html.Checked) then
          setup_change_check.Checked:=False;

       if f_main.pop_HangD.Checked=Check_HangD.Checked then
          setup_HangD_check.Checked:=False;

       if (Check_Max.Checked=(f_main.WindowState=wsMaximized)) then
          setup_Max_check.Checked:=False;

       //调整背景图片变量
       if setup_BackBmp_check.Checked then
       begin
            Check_BackBmp.Checked:=Check_BackBmp_D.Checked;
            BackBmp.Caption:=BackBmp_temp.Caption;
       end;

       //调整书签图片变量
       if setup_Label_check.Checked then
       begin
            Check_Label_Image.Checked:=Check_Label_Image_D.Checked;
            Label_Image.Caption:=Label_Image_Temp.Caption;
       end;

       //调整菜单变量
       Check_Item_Change.Checked:=Check_Item_Change_D.Checked;
       Check_Openfile.Checked:=Check_Openfile_D.Checked;
       Check_ClearLab.Checked:=check_ClearLab_D.Checked;
       check_ClearNew.Checked:=check_ClearNew_D.Checked;

       //调整窗口位置和大小
       if setup_window_check.Checked then
       begin
            try  //窗口左位置
               window_data:=StrToInt(Book_Left_Edit.Text);
            except
               window_data:=f_main.Left;
            end;
            Book_Left_Edit.Text:=IntToStr(window_data);

            try  //窗口上位置
               window_data:=StrToInt(Book_Top_Edit.Text);
            except
               window_data:=f_main.Top;
            end;
            Book_Top_Edit.Text:=IntToStr(window_data);

            try  //窗口宽度
               window_data:=StrToInt(Book_Width_Edit.Text);
            except
               window_data:=f_main.Width;
            end;
            Book_Width_Edit.Text:=IntToStr(window_data);

            try  //窗口高度
               window_data:=StrToInt(Book_Height_Edit.Text);
            except
               window_data:=f_main.Height;
            end;
            Book_Height_Edit.Text:=IntToStr(window_data);
       end;

       //调整自动翻页时间
       if setup_sys_check.Checked then
       begin
            try
               window_data:=StrToInt(AutoVal.Text);
               if window_data<0 then window_data:=0;
               if window_data>1000 then window_data:=1000;
            except
               window_data:=round(f_main.Auto_Page_Move.Interval/1000);
            end;
            AutoVal.Text:=IntToStr(window_data);
       end;
  end;

  //关闭设置窗口
  f_setup.Close;
end;

procedure Tf_setup.cancelClick(Sender: TObject);
begin
  //还原字体设置
  f_main.PageFont.Font:=f_main.page_1.Font;
  f_main.yeFont.Font:=f_main.ye_1.Font;

  //忽略改动
  setup_check.Checked:=False;

  //关闭设置窗口
  f_setup.Close;
end;

procedure Tf_setup.ye_1_be_editChange(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_ye_check.Checked:=True;
end;

procedure Tf_setup.ye_1_loc_1Click(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_ye_check.Checked:=True;

  //设置页码位置
  loc:=ye_1_loc_temp.Caption;
  loc[1]:=(Sender As TRadioButton).Hint[1];
  ye_1_loc_temp.Caption:=loc;
end;

procedure Tf_setup.ye_1_loc_4Click(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_ye_check.Checked:=True;

  //设置页码位置
  loc:=ye_1_loc_temp.Caption;
  loc[2]:=(Sender As TRadioButton).Hint[1];
  ye_1_loc_temp.Caption:=loc;
end;

procedure Tf_setup.ye_2_loc_1Click(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_ye_check.Checked:=True;

  //设置页码位置
  loc:=ye_2_loc_temp.Caption;
  loc[1]:=(Sender As TRadioButton).Hint[1];
  ye_2_loc_temp.Caption:=loc;
end;

procedure Tf_setup.ye_2_loc_4Click(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_ye_check.Checked:=True;

  //设置页码位置
  loc:=ye_2_loc_temp.Caption;
  loc[2]:=(Sender As TRadioButton).Hint[1];
  ye_2_loc_temp.Caption:=loc;
end;

procedure Tf_setup.Check_MoveClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_sys_check.Checked:=True;
  if (Sender as TCheckBox).Hint='move' then
     if Check_move.Checked then
     begin
          Check_page_move_D.Enabled:=True;
          Check_page_move_D.Checked:=Check_page_move.Checked;
     end
     else
     begin
          Check_page_move_D.Enabled:=False;
          Check_page_move_D.Checked:=False;
     end;
end;

procedure Tf_setup.Change_PageFontClick(Sender: TObject);
begin
  if f_main.PageFont.Execute then
  begin
       setup_check.Checked:=True;
       setup_page_check.Checked:=True;
  end;
end;

procedure Tf_setup.Change_yeFontClick(Sender: TObject);
begin
  if f_main.yeFont.Execute then
  begin
       setup_check.Checked:=True;
       setup_ye_check.Checked:=True;
  end;
end;

procedure Tf_setup.book_left_editChange(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_window_check.Checked:=True;
end;

procedure Tf_setup.Auto_Page_MoveClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_sys_check.Checked:=True;
  AutoVal.Enabled:=Auto_Page_move.Checked;
  if AutoVal.Enabled then
     AutoVal.Color:=clWindow
  else
     AutoVal.Color:=clBtnFace;
end;

procedure Tf_setup.Check_ye_View_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_ye_check.Checked:=True;
  Change_yeFont.Enabled:=Check_ye_View_D.Checked;
end;

procedure Tf_setup.Check_Sound_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_sound_check.Checked:=True;
  Change_Sound_Name.Enabled:=Check_Sound_D.Checked;
  if (Sender as TCheckBox).Hint='sound' then
     if Check_Sound_D.Checked then
     begin
          Check_Sound_Repeat_D.Enabled:=True;
          Check_Sound_Repeat_D.Checked:=Check_Sound_Repeat.Checked;
     end
     else
     begin
          Check_Sound_Repeat_D.Enabled:=False;
          Check_Sound_Repeat_D.Checked:=False;
     end;
end;

procedure Tf_setup.Change_Sound_NameClick(Sender: TObject);
begin
  if Open_Sound.Execute then
  begin
        setup_check.Checked:=True;
        setup_sound_check.Checked:=True;
        Sound_Filename:=Open_Sound.FileName;

        Sound_Name_D.Clear;
        for i:=1 to Open_Sound.Files.Count do  //添加背景音乐文件到列表框中
            Sound_Name_D.Items.Add(Open_Sound.Files.Strings[i-1]);
  end;
end;

procedure Tf_setup.Check_BIG5Click(Sender: TObject);
begin
  if (Sender as TCheckBox).Hint='BIG5' then
     if Check_BIG5.Checked then Check_GB.Checked:=False;

  if (Sender as TCheckBox).Hint='GB' then
     if Check_GB.Checked then Check_BIG5.Checked:=False;

  setup_check.Checked:=True;
  setup_change_check.Checked:=True;
end;

procedure Tf_setup.Check_HangDClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_HangD_check.Checked:=True;
end;

procedure Tf_setup.Check_Item_Change_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
end;

procedure Tf_setup.Check_OpenFile_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
end;

procedure Tf_setup.Check_BackBmp_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_BackBmp_check.Checked:=True;
  Change_BMP_Name.Enabled:=check_BackBmp_D.Checked;
end;

procedure Tf_setup.Change_BMP_NameClick(Sender: TObject);
begin
  if Open_BMP.Execute then
  begin
       setup_check.Checked:=True;
       setup_BackBmp_check.Checked:=True;
       BackBmp_temp.Caption:=Open_BMP.FileName;
  end;
end;

procedure Tf_setup.Check_Label_Image_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_Label_check.Checked:=True;
  Change_Label_Image_Name.Enabled:=check_Label_Image_D.Checked;
end;

procedure Tf_setup.change_label_image_nameClick(Sender: TObject);
begin
  if Open_BMP.Execute then
  begin
       setup_check.Checked:=True;
       setup_Label_check.Checked:=True;
       Label_Image_temp.Caption:=Open_BMP.FileName;
  end;
end;

procedure Tf_setup.defaultClick(Sender: TObject);
begin
  if Application.MessageBox('恢复为默认设置？', '询问', Mb_OKCancel)=Id_Cancel then
     exit;

  //注销Tale
  //打开注册表
  Reg_ini := TRegIniFile.Create('');
  Reg_ini.RootKey:=HKEY_LOCAL_MACHINE;

  Reg_ini.WriteString(Reg_Path,Reg_Reg_Flag,'');

  //关闭注册表
  Reg_ini.Free;

  Application.MessageBox('重新启动《电子小说阅读器》即可恢复为默认设置。', '确定', Mb_OK);

  //忽略改动
  cancelClick(nil);
end;

procedure Tf_setup.Check_ShowTimeClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_sys_check.Checked:=True;
end;

procedure Tf_setup.Check_ClearLab_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
end;

procedure Tf_setup.Check_ClearNew_DClick(Sender: TObject);
begin
  setup_check.Checked:=True;
end;

procedure Tf_setup.Label17Click(Sender: TObject);
begin
  setup_check.Checked:=True;
  Check_ClearNew_D.Checked:=not Check_ClearNew_D.Checked;
end;

procedure Tf_setup.Check_UnderLIneClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_UnderLine_check.Checked:=True;
  UnderLine_Color.Enabled:=Check_UnderLine.Checked;
end;

procedure Tf_setup.UnderLine_ColorClick(Sender: TObject);
begin
  if f_main.UnderLineColor.Execute then
  begin
       setup_check.Checked:=True;
       setup_UnderLine_check.Checked:=True;

       with UnderLine_Color_Image.Canvas do
       begin
            pen.Color:=f_main.UnderLineColor.Color;
            brush.Color:=pen.Color;
            Polygon(Image_Array);
       end;

       Underline_color.Glyph:=UnderLine_Color_Image.Picture.Bitmap;
  end;
end;

procedure Tf_setup.Check_MaxClick(Sender: TObject);
begin
  setup_check.Checked:=True;
  setup_Max_check.Checked:=True;
end;

end.