propdlg.pas

来自「delphi编程控件」· PAS 代码 · 共 87 行

unit PropDlg;

interface

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

type
  TPropertyForm = class(TForm)
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BottomLine: TCheckBox;
    RightLine: TCheckBox;
    TopLine: TCheckBox;
    LeftLine: TCheckBox;
    LeftLineWidth: TSpinEdit;
    TopLineWidth: TSpinEdit;
    RightLineWidth: TSpinEdit;
    BottomLineWidth: TSpinEdit;
    GroupBox2: TGroupBox;
    LeftDiagonal1: TCheckBox;
    LeftDiagonal2: TCheckBox;
    LeftDiagonal3: TCheckBox;
    RightDiagonal3: TCheckBox;
    RightDiagonal2: TCheckBox;
    RightDiagonal1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    HorzAlign: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    VertAlign: TComboBox;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ForeColor : COLORREF;
    BackColor : COLORREF;
    CellFont : TLogFont;
  end;

var
  PropertyForm: TPropertyForm;

implementation

{$R *.DFM}

procedure TPropertyForm.BitBtn3Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    Windows.GetObject(FontDialog1.Font.Handle, SizeOf(CellFont), @CellFont);
end;

procedure TPropertyForm.FormCreate(Sender: TObject);
begin
  Windows.GetObject(FontDialog1.Font.Handle, SizeOf(CellFont), @CellFont);
  ForeColor := RGB(0, 0, 0);
  BackColor := RGB(255, 255, 255);
  HorzAlign.ItemIndex := 0;
  VertAlign.ItemIndex := 1;
end;

procedure TPropertyForm.BitBtn4Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    ForeColor := ColorDialog1.Color;
end;

procedure TPropertyForm.BitBtn5Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    BackColor := ColorDialog1.Color;
end;

end.