u_sys_seting.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Sys_seting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, ComCtrls, DB, ADODB, IniFiles, StdCtrls, ExtCtrls,
  Buttons, ExtDlgs;

type
  TF_Sys_seting = class(TF_Form_base)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Panel1: TPanel;
    Edit4: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Panel2: TPanel;
    Label8: TLabel;
    Panel3: TPanel;
    Label9: TLabel;
    Panel4: TPanel;
    Label10: TLabel;
    Panel5: TPanel;
    Label11: TLabel;
    Edit6: TEdit;
    Label12: TLabel;
    Edit7: TEdit;
    Label13: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Panel6: TPanel;
    BitBtn2: TBitBtn;
    Label16: TLabel;
    Panel7: TPanel;
    ColorD: TColorDialog;
    FontD: TFontDialog;
    SaveD: TSaveDialog;
    OpenD: TOpenDialog;
    Panel8: TPanel;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    OpenPic: TOpenPictureDialog;
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
    procedure Panel7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Sys_seting: TF_Sys_seting;

implementation

{$R *.dfm}

procedure TF_Sys_seting.Panel1Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel1.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.Panel2Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel2.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.Panel3Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel3.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.Panel4Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel4.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.Panel5Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel5.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.Panel6Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel6.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.Panel7Click(Sender: TObject);
begin
  inherited;
  if ColorD.Execute then
  begin
    Panel7.Color := ColorD.Color;
     // F_Main.Look.HeaderSettings.HeaderColor:=Panel1.Color;
     // F_Main.Look.Invalidate;
  end;
end;

procedure TF_Sys_seting.BitBtn1Click(Sender: TObject);
var
//  Reg: TRegistry;
  MY_INI: TINIFILE;
  PATH: string;
begin
  inherited;
  PATH := ExtractFileDir(APPLICATION.ExeName);
  MY_INI := TINIFILE.CREATE(PATH + '\INI\SyS_seting.INI');
    //////////////
  MY_INI.WriteString('Main', 'Picpath', Edit3.Text);
  MY_INI.WriteString('main', 'Mtitle', Edit4.Text);
  MY_INI.WriteString('main', 'MainFormFont', COLORTOSTRING(PANEL1.COLOR));
  MY_INI.WriteString('main', 'Size', Edit5.Text);
  MY_INI.WriteString('Child', 'ChildFormColor', COLORTOSTRING(PANEL2.COLOR));
  MY_INI.WriteString('Child', 'BGTItleCOlor', COLORTOSTRING(PANEL3.COLOR));
  MY_INI.WriteString('Child', 'TitleFontSize', Edit7.Text);
  MY_INI.WriteString('Child', 'BGOne', COLORTOSTRING(PANEL4.COLOR));
  MY_INI.WriteString('Child', 'BGSize', Edit8.Text);
  MY_INI.WriteString('COLOR', 'Bgtwo', COLORTOSTRING(PANEL5.COLOR));
  MY_INI.WriteString('Child', 'BGbottomSize', Edit9.Text);
  MY_INI.WriteString('COLOR', 'EditColor', COLORTOSTRING(PANEL6.COLOR));
  MY_INI.WriteString('COLOR', 'ChildFont', COLORTOSTRING(PANEL7.COLOR));
  MY_INI.WriteString('Child', 'ChildfontSize', Edit6.Text);


    //////////////
  MY_INI.FREE;
  //COLOR1:=PANEL1.COLOR;
 // COLOR2:=PANEL2.COLOR;
  //COLOR3:=PANEL3.COLOR;
  //COLOR4:=PANEL4.COLOR;
end;

procedure TF_Sys_seting.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if Openpic.Execute then
  begin
    Edit3.Text := openpic.FileName;
  end;
end;

initialization
  RegisterClass(TF_Sys_seting);

end.