setup.pas

源代码竟供大家参考

unit setup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, Buttons, checklst, Registry;

type
  Tf_setup = class(TForm)
    setup_page_ctrl: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    book_left_edit: TEdit;
    book_top_edit: TEdit;
    book_width_edit: TEdit;
    book_height_edit: TEdit;
    ok: TButton;
    cancel: TButton;
    GroupBox9: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Info_ye_Count: TLabel;
    Info_ye_Current: TLabel;
    Info_filename: TEdit;
    Label12: TLabel;
    Label14: TLabel;
    Info_Auto_Page_Move: TLabel;
    Info_AutoVal: TLabel;
    setup_ye_check: TCheckBox;
    setup_page_check: TCheckBox;
    setup_check: TCheckBox;
    setup_sys_check: TCheckBox;
    setup_window_check: TCheckBox;
    Check_Page_Move: TCheckBox;
    Check_ye_View: TCheckBox;
    ye_1_loc: TLabel;
    ye_2_loc: TLabel;
    ye_1_loc_temp: TLabel;
    ye_2_loc_temp: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Info_Sound: TLabel;
    Check_Sound: TCheckBox;
    Open_Sound: TOpenDialog;
    Info_Sound_Name: TEdit;
    Sound_Name: TListBox;
    Sound_Name_D: TListBox;
    Check_Sound_Repeat: TCheckBox;
    setup_sound_check: TCheckBox;
    setup_change_check: TCheckBox;
    default: TButton;
    Check_Item_Change: TCheckBox;
    Check_BackBmp: TCheckBox;
    setup_BackBmp_check: TCheckBox;
    BackBmp: TLabel;
    BackBmp_temp: TLabel;
    Open_Bmp: TOpenDialog;
    Check_Openfile: TCheckBox;
    TabSheet4: TTabSheet;
    GroupBox11: TGroupBox;
    Change_Sound_Name: TSpeedButton;
    Change_BMP_Name: TSpeedButton;
    Check_Sound_D: TCheckBox;
    Check_Sound_Repeat_D: TCheckBox;
    Check_BackBmp_D: TCheckBox;
    GroupBox8: TGroupBox;
    Change_yeFont: TSpeedButton;
    Change_PageFont: TSpeedButton;
    Check_Item_Change_D: TCheckBox;
    Check_ye_View_D: TCheckBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox3: TGroupBox;
    Panel1: TPanel;
    ye_1_loc_1: TRadioButton;
    ye_1_loc_2: TRadioButton;
    ye_1_loc_3: TRadioButton;
    Panel2: TPanel;
    ye_1_loc_4: TRadioButton;
    ye_1_loc_5: TRadioButton;
    ye_1_be_edit: TComboBox;
    ye_1_af_edit: TComboBox;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox4: TGroupBox;
    Panel3: TPanel;
    ye_2_loc_1: TRadioButton;
    ye_2_loc_2: TRadioButton;
    ye_2_loc_3: TRadioButton;
    Panel4: TPanel;
    ye_2_loc_4: TRadioButton;
    ye_2_loc_5: TRadioButton;
    ye_2_be_edit: TComboBox;
    ye_2_af_edit: TComboBox;
    GroupBox7: TGroupBox;
    Label13: TLabel;
    Check_Move: TCheckBox;
    Check_Resize: TCheckBox;
    Check_Page_Move_D: TCheckBox;
    Auto_Page_Move: TCheckBox;
    AutoVal: TEdit;
    GroupBox10: TGroupBox;
    Check_BIG5: TCheckBox;
    Check_html: TCheckBox;
    Check_Chap: TCheckBox;
    Check_Label_Image_D: TCheckBox;
    Check_Label_Image: TCheckBox;
    setup_Label_check: TCheckBox;
    change_label_image_name: TSpeedButton;
    Label_Image_temp: TLabel;
    Label_Image: TLabel;
    Check_OpenFile_D: TCheckBox;
    Check_ShowTime: TCheckBox;
    Check_ClearLab_D: TCheckBox;
    Check_ClearLab: TCheckBox;
    Check_ClearNew_D: TCheckBox;
    Label17: TLabel;
    Check_ClearNew: TCheckBox;
    Check_GB: TCheckBox;
    Check_HangD: TCheckBox;
    setup_HangD_check: TCheckBox;
    Check_UnderLIne: TCheckBox;
    UnderLine_Color: TSpeedButton;
    setup_UnderLine_check: TCheckBox;
    UNderLIne_Color_Image: TImage;
    Check_Max: TCheckBox;
    setup_Max_check: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure okClick(Sender: TObject);
    procedure cancelClick(Sender: TObject);
    procedure ye_1_loc_1Click(Sender: TObject);
    procedure ye_1_loc_4Click(Sender: TObject);
    procedure ye_2_loc_1Click(Sender: TObject);
    procedure ye_2_loc_4Click(Sender: TObject);
    procedure Check_MoveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ye_1_be_editChange(Sender: TObject);
    procedure Change_PageFontClick(Sender: TObject);
    procedure book_left_editChange(Sender: TObject);
    procedure Change_yeFontClick(Sender: TObject);
    procedure Auto_Page_MoveClick(Sender: TObject);
    procedure Check_ye_View_DClick(Sender: TObject);
    procedure Check_Sound_DClick(Sender: TObject);
    procedure Change_Sound_NameClick(Sender: TObject);
    procedure Check_BIG5Click(Sender: TObject);
    procedure defaultClick(Sender: TObject);
    procedure Check_Item_Change_DClick(Sender: TObject);
    procedure Check_BackBmp_DClick(Sender: TObject);
    procedure Change_BMP_NameClick(Sender: TObject);
    procedure Check_OpenFile_DClick(Sender: TObject);
    procedure Check_Label_Image_DClick(Sender: TObject);
    procedure change_label_image_nameClick(Sender: TObject);
    procedure Check_ShowTimeClick(Sender: TObject);
    procedure Check_ClearLab_DClick(Sender: TObject);
    procedure Check_ClearNew_DClick(Sender: TObject);
    procedure Label17Click(Sender: TObject);
    procedure Check_HangDClick(Sender: TObject);
    procedure Check_UnderLIneClick(Sender: TObject);
    procedure UnderLine_ColorClick(Sender: TObject);
    procedure Check_MaxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Reg_ini : TRegIniFile;  //注册表变量
  end;

var
  f_setup: Tf_setup;
  loc : string;             //临时计算存放页码位置
  Sound_Filename : string;  //音乐文件名
  Image_Array : array [1..5] of TPoint;  //下划线颜色
  i,j,k : integer;          //一般变量

implementation

uses main;

{$R *.DFM}

procedure Tf_setup.FormShow(Sender: TObject);
var ye_1_loc_C,ye_2_loc_C : string;  //页码位置参数
begin
  //调整页面状态
  Check_move.Checked:=f_main.Book_Move.Enabled;
  Check_Resize.Checked:=f_main.Book_Resize.Enabled;
  Check_MoveClick(Check_Move);
  Check_Max.Checked:=(f_main.WindowState=wsMaximized);

  //调整自动翻页状态
  Auto_Page_Move.Checked:=f_main.Auto_Page_Move.Enabled;
  AutoVal.Enabled:=Auto_Page_Move.Checked;
  AutoVal.Text:=IntToStr(round(f_main.Auto_Page_Move.Interval/1000));
  if AutoVal.Enabled then
     AutoVal.Color:=clWindow
  else
     AutoVal.Color:=clBtnFace;

  //调整背景音乐状态
  Check_Sound_D.Enabled:=Check_Sound.Enabled;
  Check_Sound_Repeat_D.Enabled:=Check_Sound.Enabled;
  Change_Sound_Name.Enabled:=Check_Sound.Enabled;

  if Check_Sound.Enabled then
  begin
       Check_Sound_D.Checked:=Check_Sound.Checked;
       Check_Sound_Repeat_D.Checked:=Check_Sound_Repeat.Checked;
       Change_Sound_Name.Enabled:=Check_Sound_D.Checked;
       Check_Sound_DClick(Check_Sound_D);
  end;

  //调整系统设置状态
  Check_BIG5.Checked:=f_main.pop_Big5.Checked;
  Check_GB.Checked:=f_main.pop_GB.Checked;
  Check_Chap.Checked:=f_main.pop_Chap.Checked;
  Check_html.Checked:=f_main.pop_html.Checked;
  Check_HangD.Checked:=f_main.pop_HangD.Checked;


  Image_Array[1].x:=2; Image_Array[1].y:=2;
  Image_Array[2].x:=UnderLine_Color_Image.Width-3; Image_Array[2].y:=2;
  Image_Array[3].x:=UnderLine_Color_Image.Width-3; Image_Array[3].y:=UnderLine_Color_Image.Height-3;
  Image_Array[4].x:=2; Image_Array[4].y:=UnderLine_Color_Image.Height-3;
  Image_Array[5].x:=Image_Array[1].x; Image_Array[5].y:=Image_Array[1].y;

  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;

  Check_Underline.Checked:=f_main.pop_UnderLine.Checked;
  Underline_Color.Enabled:=Check_Underline.Checked;

  Check_Item_Change_D.Checked:=Check_Item_Change.Checked;
  Check_Openfile_D.Checked:=Check_Openfile.Checked;

  Check_BackBmp_D.Checked:=Check_BackBmp.Checked;
  Change_BMP_Name.Enabled:=check_BackBmp_D.Checked;
  BackBmp_temp.Caption:=BackBmp.Caption;

  Check_Label_Image_D.Checked:=Check_Label_Image.Checked;
  Change_Label_Image_Name.Enabled:=Check_Label_Image_D.Checked;
  Label_Image_temp.Caption:=Label_Image.Caption;

  check_ShowTime.Checked:=f_main.Show_Time.Enabled;
  check_ClearLab_D.Checked:=check_ClearLab.Checked;
  check_ClearNew_D.Checked:=check_ClearNew.Checked;

  //初始化临时变量
  ye_1_loc_temp.Caption:=ye_1_loc.Caption;
  ye_2_loc_temp.Caption:=ye_2_loc.Caption;

  //调整页码设置
  Check_ye_View_D.Checked:=Check_ye_View.Checked;
  ye_1_loc_C:=ye_1_loc.Caption;
  ye_2_loc_C:=ye_2_loc.Caption;

  Case ye_1_loc_C[1] of
    '1' : ye_1_loc_1.Checked:=True;
    '2' : ye_1_loc_2.Checked:=True;
    '3' : ye_1_loc_3.Checked:=True;
  end;

  Case ye_1_loc_C[2] of
    '1' : ye_1_loc_4.Checked:=True;
    '2' : ye_1_loc_5.Checked:=True;
  end;

  Case ye_2_loc_C[1] of
    '1' : ye_2_loc_1.Checked:=True;
    '2' : ye_2_loc_2.Checked:=True;
    '3' : ye_2_loc_3.Checked:=True;
  end;

  Case ye_2_loc_C[2] of
    '1' : ye_2_loc_4.Checked:=True;
    '2' : ye_2_loc_5.Checked:=True;
  end;

  ye_1_be_edit.Text:=f_main.ye_1_be.Caption;
  ye_1_af_edit.Text:=f_main.ye_1_af.Caption;
  ye_2_be_edit.Text:=f_main.ye_2_be.Caption;
  ye_2_af_edit.Text:=f_main.ye_2_af.Caption;

  //调整窗口位置、大小设置
  book_left_edit.Text:=IntToStr(f_main.Left);
  book_top_edit.Text:=IntToStr(f_main.Top);
  book_width_edit.Text:=IntToStr(f_main.Width);
  book_height_edit.Text:=IntToStr(f_main.Height);

  //调整自动翻页信息
  if Auto_Page_Move.Checked then
  begin
       info_Auto_page_Move.Caption:='允许自动翻页';
       info_AutoVal.Caption:=AutoVal.Text+'秒';
  end
  else
  begin
       info_Auto_page_Move.Caption:='不允许自动翻页';
       info_AutoVal.Caption:='';
  end;

  //调整背景音乐信息
  Info_Sound_Name.Text:='';
  if Check_Sound_D.Checked then
  begin
       info_Sound.Caption:='允许背景音乐';
       if Sound_Name.Items.Count<=0 then
          info_Sound_Name.Text:='没有选择文件'
       else
          for i:=1 to Sound_Name.Items.Count do
              Info_Sound_Name.Text:=Info_Sound_Name.Text+Sound_Name.Items[i-1]+' ';
  end
  else
  begin
       info_Sound.Caption:='不允许背景音乐';
       info_Sound_Name.Text:='';
  end;

  //初始化显示组
  setup_page_ctrl.Pages[0].Show;

  //初始化判断设置
  setup_check.Checked:=False;
  setup_Page_Check.Checked:=False;
  setup_ye_Check.Checked:=False;
  setup_Window_Check.Checked:=False;
  setup_sys_Check.Checked:=False;
  setup_sound_check.Checked:=False;
  setup_change_check.Checked:=False;
  setup_BackBmp_check.Checked:=False;
  setup_Label_check.Checked:=False;
  setup_HangD_check.Checked:=False;
  setup_UnderLine_check.Checked:=False;
  setup_Max_check.Checked:=False;
end;

procedure Tf_setup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //打开设置时钟
  if setup_check.Checked then f_main.get_setup_timer.Enabled:=True;
  f_main.Enabled:=True;
end;

procedure Tf_setup.okClick(Sender: TObject);
var window_data : integer;
begin
  if setup_check.Checked then
  begin
       //调整正式变量
       ye_1_loc.Caption:=ye_1_loc_temp.Caption;
       ye_2_loc.Caption:=ye_2_loc_temp.Caption;

       //调整页面变量
       Check_page_move.Checked:=Check_page_move_D.Checked;
       Check_ye_View.Checked:=Check_ye_View_D.Checked;

       //调整背景音乐变量
       Check_Sound.Checked:=Check_Sound_D.Checked;
       Check_Sound_Repeat.Checked:=Check_Sound_Repeat_D.Checked;
       Sound_Name.Items:=Sound_Name_D.Items;