OPERASI TEXT

Begini listing nyeeee :

unit Operasi_Text;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    GroupBox1: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    RadioButton4: TRadioButton;

    RadioButton5: TRadioButton;

    RadioButton6: TRadioButton;

    Memo1: TMemo;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    ComboBox4: TComboBox;

    Label6: TLabel;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure ComboBox3Change(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure RadioButton4Click(Sender: TObject);

    procedure RadioButton5Click(Sender: TObject);

    procedure RadioButton6Click(Sender: TObject);

    procedure ComboBox4Change(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Label1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    procedure aktif;

      procedure nonaktif;

          procedure bersih;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;

begin

  edit1.Enabled:=true;

  button1.Enabled:=true;

  button2.Enabled:=true;

  groupbox1.Enabled:=true;

  memo1.Enabled:=true;

  combobox1.Enabled:=true;

  combobox2.Enabled:=true;

  combobox3.Enabled:=true;

  combobox4.Enabled:=true;

  button4.Enabled:=true;

  edit1.SetFocus;

end;

procedure TForm1.nonaktif;

begin

  edit1.Enabled:=false;

  button1.Enabled:=false;

  button2.Enabled:=false;

  groupbox1.Enabled:=false;

  memo1.Enabled:=false;

  combobox1.Enabled:=false;

  combobox2.Enabled:=false;

  combobox3.Enabled:=false;

  combobox4.Enabled:=false;

  button4.Enabled:=false;

end;

procedure TForm1.bersih;

begin

  edit1.Text:='';

  radiobutton1.Checked:=false;

  radiobutton2.Checked:=false;

  radiobutton3.Checked:=false;

  radiobutton4.Checked:=false;

  radiobutton5.Checked:=false;

  radiobutton6.Checked:=false;

  Memo1.Text:='';

  Memo1.Color:=clwhite;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  nonaktif;

  bersih;

  combobox1.Items:=screen.Fonts;

  combobox1.Text:='-PILIH FONTS-';

  combobox2.Text:='-PILIH SIZE-';

  combobox3.Text:='-PILIH BACK COLOR-';

  combobox4.Text:='-PILIH STYLE-';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  memo1.Text:=uppercase(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  memo1.Text:=lowercase(Edit1.Text);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

  memo1.Font.Name:=combobox1.Text;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

  memo1.Font.Size:=strtoint(combobox2.Text);

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

begin

  if combobox3.Text='Merah' then

  memo1.Color:=clred

  else if combobox3.Text='Biru' then

  memo1.Color:=clblue

  else memo1.Color:=clgreen;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

  memo1.Font.Color:=clred;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

  memo1.Font.Color:=clgreen;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

  memo1.Font.Color:=clyellow;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

  memo1.Font.Color:=clpurple;

end;

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

  memo1.Font.Color:=clblack;

end;

procedure TForm1.RadioButton6Click(Sender: TObject);

begin

  memo1.Font.Color:=clblue;

end;

procedure TForm1.ComboBox4Change(Sender: TObject);

begin

  if combobox4.Text='Bold' then

  memo1.Font.Style:=memo1.Font.Style+[fsBold]

  else if combobox4.Text='Italic' then

  memo1.Font.Style:=memo1.Font.Style+[fsItalic]

  else if combobox4.Text='Underline' then

  memo1.Font.Style:=memo1.Font.Style+[fsUnderline]

  else if combobox4.Text='StrikeOut' then

  memo1.Font.Style:=memo1.Font.Style+[fsStrikeOut]

  else

  memo1.Font.Style:=memo1.Font.Style-[fsBold,fsItalic,fsUnderline,fsStrikeOut];

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

  application.Terminate;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  bersih;

  nonaktif;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  aktif;

  bersih;

end;