otherset.pas

GPRS使用的SKD源码

unit otherset;

interface

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

type
  Tfotherset = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    Label1: TLabel;
    Label2: TLabel;
    ColorBox3: TColorBox;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fotherset: Tfotherset;

implementation

uses umain;

{$R *.dfm}

procedure Tfotherset.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tfotherset.Button1Click(Sender: TObject);
begin
  if checkbox2.Checked then
     begin
        form1.lightonoff:=1;
        close;
        exit;
     end;
  
  form1.lightonoff:=0;
  form1.oncolor:=colorbox1.Selected;
  form1.offcolor:=colorbox2.Selected;
  if checkbox1.Checked then form1.errorcolor:=form1.Panel1.Color
  else
  form1.errorcolor:=colorbox3.Selected;
  close;
end;

procedure Tfotherset.FormCreate(Sender: TObject);
begin
fotherset.ColorBox1.Selected:=form1.oncolor;
fotherset.ColorBox2.Selected:=form1.offcolor;
if form1.errorcolor=form1.Panel1.Color then
begin
    colorbox3.Enabled:=false;
    checkbox1.Checked:=true;
end
else
  fotherset.ColorBox3.Selected:=form1.errorcolor;

if form1.lightonoff>0 then
      begin
         checkbox2.Checked:=true;
         fotherset.CheckBox2Click(checkbox2);
      end;
end;

procedure Tfotherset.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked then colorbox3.Enabled:=false
     else colorbox3.Enabled:=true;
end;

procedure Tfotherset.CheckBox2Click(Sender: TObject);
begin
    colorbox1.Enabled:=not checkbox2.Checked;
    colorbox2.Enabled:=not checkbox2.Checked;
    colorbox3.Enabled:=not checkbox2.Checked;
    checkbox1.Enabled:=not checkbox2.Checked;
end;

end.