unit1.pas

delphi课程设计的内容,包括源代码,文本的设计,菜单的设计等.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    RadioGroup1: TRadioGroup;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    ListBox1: TListBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.checked then
       edit1.Font.Style:=edit1.font.style+[fsbold]
    else
       edit1.font.style:=edit1.font.style-[fsbold];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    listbox1.items:=Screen.Fonts;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   if checkbox2.checked then
       edit1.Font.Style:=edit1.font.style+[fsitalic]
    else
       edit1.font.style:=edit1.font.style-[fsitalic];
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
   if checkbox3.checked then
       edit1.Font.Style:=edit1.font.style+[fsunderline]
    else
       edit1.font.style:=edit1.font.style-[fsunderline];
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   case radiogroup1.ItemIndex of
     0:edit1.color:=rgb(255,0,0);
     1:edit1.color:=rgb(0,255,0);
     2:edit1.color:=rgb(0,0,255);
   end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    edit1.font.name:=listbox1.Items[listbox1.itemindex];
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   begin
     if combobox1.text<>'' then
        edit1.Font.Size:=strtoint(combobox1.text);

   end;
end;

end.