diagonal.pas

来自「Delphi报表设计器源代码」· PAS 代码 · 共 42 行

unit diagonal;

interface

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

type
  TDiagonalForm = class(TForm)
    GroupBox2: TGroupBox;
    LeftDiagonal1: TCheckBox;
    LeftDiagonal2: TCheckBox;
    LeftDiagonal3: TCheckBox;
    RightDiagonal3: TCheckBox;
    RightDiagonal2: TCheckBox;
    RightDiagonal1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ColorDialog1: TColorDialog;
    p1: TPanel;
    Label1: TLabel;
    procedure p1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TDiagonalForm.p1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
     p1.Color:=ColorDialog1.Color;

end;

end.