unitqcprojectoptions.~pas

此代码是关于mapgis的在

unit UnitQCProjectOptions;

interface

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

type
  TForm_QCProjectOptions = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel_Power_On: TPanel;
    Panel_Power_Off: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Panel_Line_On: TPanel;
    Panel_Line_Off: TPanel;
    Panel_BgColor: TPanel;
    ColorDialog1: TColorDialog;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Panel_BgColorClick(Sender: TObject);
    procedure Panel_Power_OnClick(Sender: TObject);
    procedure Panel_Power_OffClick(Sender: TObject);
    procedure Panel_Line_OnClick(Sender: TObject);
    procedure Panel_Line_OffClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FIsOk: Boolean;
    { Private declarations }
    procedure ModifyColor(APanel:TPanel);
    procedure DisplayConfig;
    procedure ApplyConfig;
  public
    { Public declarations }
    property IsOk:Boolean read FIsOk;
  end;

var
  Form_QCProjectOptions: TForm_QCProjectOptions;

function ConfigQCProjectOptions:Boolean;

implementation

uses UnitGISShell, IniFiles, WinFileSystem;

function ConfigQCProjectOptions:Boolean;
begin
  with TForm_QCProjectOptions.Create(nil) do
  begin
    try
      ShowModal;
      Result:=IsOk;
    finally
      Free;
    end;
  end;
end;

{$R *.dfm}

procedure TForm_QCProjectOptions.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm_QCProjectOptions.BitBtn1Click(Sender: TObject);
begin
  ApplyConfig;
  FIsOk:=True;
  Close;
end;

procedure TForm_QCProjectOptions.FormCreate(Sender: TObject);
begin
  FIsOk:=False;
end;

procedure TForm_QCProjectOptions.ModifyColor(APanel: TPanel);
begin
  ColorDialog1.Color:=APanel.Color;
  if ColorDialog1.Execute then
    APanel.Color:=ColorDialog1.Color;  
end;

procedure TForm_QCProjectOptions.Panel_BgColorClick(Sender: TObject);
begin
  ModifyColor(Panel_BgColor);
end;

procedure TForm_QCProjectOptions.Panel_Power_OnClick(Sender: TObject);
begin
  ModifyColor(Panel_Power_On);
end;

procedure TForm_QCProjectOptions.Panel_Power_OffClick(Sender: TObject);
begin
  ModifyColor(Panel_Power_Off);
end;

procedure TForm_QCProjectOptions.Panel_Line_OnClick(Sender: TObject);
begin
  ModifyColor(Panel_Line_On);
end;

procedure TForm_QCProjectOptions.Panel_Line_OffClick(Sender: TObject);
begin
  ModifyColor(Panel_Line_Off);
end;

procedure TForm_QCProjectOptions.FormShow(Sender: TObject);
begin
  DisplayConfig;
end;

procedure TForm_QCProjectOptions.ApplyConfig;
var
  INIF:TIniFile;
begin
  INIF:=TIniFile.Create(CheckPath(AppPath)+'AppInstConfig.ini');
  try
    INIF.WriteInteger('Color', 'ViewColor', Panel_BgColor.Color);
    INIF.WriteInteger('Color', 'Power_On', Panel_Power_On.Color);
    INIF.WriteInteger('Color', 'Power_Off', Panel_Power_Off.Color);
    INIF.WriteInteger('Color', 'Line_On', Panel_Line_On.Color);
    INIF.WriteInteger('Color', 'Line_Off', Panel_Line_Off.Color);
  finally
    INIF.Free;
  end;
end;

procedure TForm_QCProjectOptions.DisplayConfig;
var
  INIF:TIniFile;
begin
  INIF:=TIniFile.Create(CheckPath(AppPath)+'AppInstConfig.ini');
  try
    Panel_BgColor.Color:=INIF.ReadInteger('Color', 'ViewColor', clWhite);
    Panel_Power_On.Color:=INIF.ReadInteger('Color', 'Power_On', clRed);
    Panel_Power_Off.Color:=INIF.ReadInteger('Color', 'Power_Off', clBlack);
    Panel_Line_On.Color:=INIF.ReadInteger('Color', 'Line_On', clRed);
    Panel_Line_Off.Color:=INIF.ReadInteger('Color', 'Line_Off', clBlack);
  finally
    INIF.Free;
  end;
end;

end.