border.pas

Delphi报表设计器源代码

unit Border;

interface

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

type
  TBorderForm = class(TForm)
    GroupBox1: TGroupBox;
    BottomLine: TCheckBox;
    RightLine: TCheckBox;
    TopLine: TCheckBox;
    LeftLine: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    LeftLineWidth: TSpinEdit;
    TopLineWidth: TSpinEdit;
    RightLineWidth: TSpinEdit;
    BottomLineWidth: TSpinEdit;
    ColorDialog1: TColorDialog;
    p1: TPanel;
    p2: TPanel;
    p3: TPanel;
    p4: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure p1Click(Sender: TObject);
    procedure p2Click(Sender: TObject);
    procedure p3Click(Sender: TObject);
    procedure p4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BorderForm: TBorderForm;

implementation

{$R *.DFM}

procedure TBorderForm.Button1Click(Sender: TObject);
begin
   leftline.Checked:=false;
   topline.Checked:=false;
   rightline.Checked:=false;
   bottomline.Checked:=false;
end;

procedure TBorderForm.Button2Click(Sender: TObject);
begin
   leftline.Checked:=true;
   topline.Checked:=true;
   rightline.Checked:=true;
   bottomline.Checked:=true;
end;

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

end;

procedure TBorderForm.p2Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  p2.Color:=ColorDialog1.Color;

end;

procedure TBorderForm.p3Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  p3.Color:=ColorDialog1.Color;

end;

procedure TBorderForm.p4Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  p4.Color:=ColorDialog1.Color;

end;

end.