systemunit.pas

基于高速铁路周边电动势计算的关键

unit SystemUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,IniFiles, ExtDlgs;

type
  TSystemSetForm = class(TForm)
    btn1: TBitBtn;
    btn2: TBitBtn;
    grp1: TGroupBox;
    edt1: TEdit;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    CheckBox1: TCheckBox;
    chk1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SystemSetForm: TSystemSetForm;

implementation

uses Main;

{$R *.dfm}

procedure TSystemSetForm.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
  FileName:string;
begin
  Ini := TIniFile.Create(ChangeFileExt( Application.ExeName, '.INI' ));
  FileName:=ChangeFileExt( Application.ExeName, '.INI' );
    try
    Edt1.Text:=Ini.ReadString( 'SysSet', 'scrollStr'  ,  '中铁第四勘察设计院集团有限公司电化处电磁兼容室' );
    Edit2.Text:=Ini.ReadString( 'SysSet', 'MainLogo'  ,  'c:/xxx.jpg' );
    Edit1.Text:=Ini.ReadString( 'SysSet', 'FlashLogo' ,  'c:/xxx.jpg' );
    chk1.Checked     := Ini.ReadBool('SysSet', 'MainLogoBool', True );
    CheckBox1.Checked:= Ini.ReadBool('SysSet', 'FlashLogoBool', True );
  finally
    Ini.Free;
  end;
end;

procedure TSystemSetForm.btn1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
   if Application.MessageBox('设置将被修改，确认要修改？', '提示',
    MB_OKCANCEL + MB_ICONINFORMATION) = IDCANCEL then
  begin
    Exit;
  end;

  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Ini.WriteString('SysSet', 'scrollStr'    , Edt1.Text);
    Ini.WriteString('SysSet', 'FlashLogo'    , Edit1.Text);
    Ini.WriteString('SysSet', 'MainLogo'     , Edit2.Text);
    Ini.WriteBool('SysSet', 'MainLogoBool'   , chk1.Checked);
    Ini.WriteBool('SysSet', 'FlashLogoBool'  , CheckBox1.Checked);

    if CheckBox1.Checked = False then
       begin
        if FileExists(Trim(Edit2.Text)) then
           MainForm.Image7.Picture.LoadFromFile(Edit2.Text);
        end ;



  finally
    Ini.Free;
  end;
  Close;
end;


procedure TSystemSetForm.btn2Click(Sender: TObject);
begin
 Close;
end;

procedure TSystemSetForm.SpeedButton1Click(Sender: TObject);
begin
if  OpenPictureDialog1.Execute then
    begin
       Edit1.Text:=OpenPictureDialog1.FileName;
      end;
end;

procedure TSystemSetForm.SpeedButton2Click(Sender: TObject);
begin
 if  OpenPictureDialog1.Execute then
    begin
       Edit2.Text:=OpenPictureDialog1.FileName;
      end;
end;

end.