diagonal.pas

delphi编程控件

unit diagonal;

interface

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

type
  TDiagonalForm = class(TForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    LeftDiagonal1: TCheckBox;
    LeftDiagonal2: TCheckBox;
    LeftDiagonal3: TCheckBox;
    RightDiagonal3: TCheckBox;
    RightDiagonal2: TCheckBox;
    RightDiagonal1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DiagonalForm: TDiagonalForm;

implementation

{$R *.DFM}

procedure TDiagonalForm.SpeedButton1Click(Sender: TObject);
begin
   LeftDiagonal1.Checked:=True;
   LeftDiagonal2.Checked:=True;
   LeftDiagonal3.Checked:=True;
   RightDiagonal1.Checked:=True;
   RightDiagonal2.Checked:=True;
   RightDiagonal3.Checked:=True;
end;

procedure TDiagonalForm.SpeedButton2Click(Sender: TObject);
begin
   LeftDiagonal1.Checked:=False;
   LeftDiagonal2.Checked:=False;
   LeftDiagonal3.Checked:=False;
   RightDiagonal1.Checked:=False;
   RightDiagonal2.Checked:=False;
   RightDiagonal3.Checked:=False;
end;

end.