frm_textattr.pas

来自「delphi语言开发的矢量图形处理对象」· PAS 代码 · 共 37 行

unit frm_TextAttr;

interface

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

type
  TfrmTextAtrr = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label1: TLabel;
    ColorBox1: TColorBox;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTextAtrr: TfrmTextAtrr;

implementation

{$R *.dfm}

end.