Aplikasi Operasi Teks

 

LIST IS AS FOLLOWS :

 

unit u_pert2;

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;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Button3: TButton;
    Button4: TButton;
    ColorDialog1: TColorDialog;
    Button5: TButton;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(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 Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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.Button3Click(Sender: TObject);
begin
if application.MessageBox('Apakah Anda Ingin Keluar?','Warning',36)=idyes then
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
colordialog1.Execute();
form1.Color:=colordialog1.Color;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
colordialog1.Execute();
memo1.Font.Color:=colordialog1.Color;
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.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.ComboBox5Change(Sender: TObject);
begin
if combobox5.Text='Tengah' then
memo1.Alignment:=tacenter
else if combobox5.Text='Rata Kanan' then
memo1.Alignment:=taRightJustify
else
memo1.Alignment:=taLeftJustify;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items:=screen.Fonts;
combobox1.Text:='-PILIH FONTS-';
combobox2.Text:='-PILIH SIZE-';
combobox3.Text:='-PILIH BACK COLOR-';
combobox4.Text:='-PILIH STYLE FONT-';
combobox5.Text:='-PILIH POSITION TEXT-';
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;

end.