delphi memo

Created with Delphi 7 by Avid/Kira

memo

Sintak:

unit Unit11;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    RadioGroup1: TRadioGroup;

    Memo1: TMemo;

    Label2: TLabel;

    ComboBox1: TComboBox;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 memo1.lines.add(edit1.text);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 application.Terminate;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

 if (radiogroup1.ItemIndex=0) then

      form1.Color:=clnavy;

   if (radiogroup1.ItemIndex=1) then

      form1.Color:=clmoneygreen;

   if (radiogroup1.ItemIndex=2) then

      form1.Color:=clred;

   if (radiogroup1.ItemIndex=3) then

      form1.Color:=clgreen;

   if (radiogroup1.itemindex=4) then

      form1.Color:=clyellow;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

 case combobox1.ItemIndex of

      0 : form1.Font.Color:=clwhite;

      1 : form1.Font.Color:=clblue;

      2 : form1.Font.Color:=clblack;

      3 : form1.Font.Color:=clyellow;

      4 : form1.Font.Color:=clred;

   end;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

 if CheckBox1.Checked then

      if CheckBox2.Checked then

         form1.Font.Style:=[fsitalic,fsbold]

      else

         form1.Font.Style:=[fsitalic]

   else

      if CheckBox2.Checked then

         form1.Font.Style:=[fsbold]

      else

         form1.Font.Style:=[];

end;

end.