unit u_pert2_operasiText;
interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm2 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
edt_input: TEdit;
mmo_1: TMemo;
btn_upper: TButton;
btn_lower: TButton;
grp1: TGroupBox;
rb_red: TRadioButton;
rb_green: TRadioButton;
rb_yellow: TRadioButton;
rb_purple: TRadioButton;
rb_blue: TRadioButton;
rb_black: TRadioButton;
cbb_backColor: TComboBox;
cbb_jnsFont: TComboBox;
cbb_ukrnFont: TComboBox;
cbb_StyleFont: TComboBox;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
dlgColor1: TColorDialog;
btn_wrnform: TButton;
procedure FormCreate(Sender:
TObject);
procedure btn_upperClick(Sender:
TObject);
procedure
btn_lowerClick(Sender: TObject);
procedure
cbb_jnsFontChange(Sender: TObject);
procedure
cbb_ukrnFontChange(Sender: TObject);
procedure
cbb_backColorChange(Sender: TObject);
procedure rb_redClick(Sender:
TObject);
procedure
rb_greenClick(Sender: TObject);
procedure
rb_yellowClick(Sender: TObject);
procedure
rb_purpleClick(Sender: TObject);
procedure
rb_blueClick(Sender: TObject);
procedure
rb_blackClick(Sender: TObject);
procedure cbb_StyleFontChange(Sender:
TObject);
procedure
btn_wrnformClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.btn_lowerClick(Sender: TObject);
begin
mmo_1.Text:=LowerCase(edt_input.Text);
end;
procedure TForm2.btn_upperClick(Sender: TObject);
begin
mmo_1.Text:=UpperCase(edt_input.Text);
end;
procedure TForm2.btn_wrnformClick(Sender: TObject);
begin
if dlgColor1.Execute = True then
form2.Color:=dlgColor1.Color;
end;
procedure TForm2.cbb_backColorChange(Sender: TObject);
begin
if cbb_backColor.Text='Merah' then
mmo_1.Color:=clRed
else if cbb_backColor.Text='Biru' then
mmo_1.Color:=clBlue
else
mmo_1.Color:=clGreen;
end;
procedure TForm2.cbb_jnsFontChange(Sender: TObject);
begin
mmo_1.Font.Name:=cbb_jnsFont.Text;
end;
procedure TForm2.cbb_StyleFontChange(Sender: TObject);
begin
if cbb_StyleFont.Text='Bold' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsBold]
else if cbb_StyleFont.Text='Italic' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsItalic]
else if cbb_StyleFont.Text='Underline' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsUnderline]
else if cbb_StyleFont.Text='StrikeOut' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsStrikeOut]
else
mmo_1.Font.Style:=mmo_1.Font.Style-[fsBold,fsItalic,fsUnderline,fsStrikeOut];
end;
procedure TForm2.cbb_ukrnFontChange(Sender: TObject);
begin
mmo_1.Font.Size:=StrToInt(cbb_ukrnFont.Text);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
cbb_jnsFont.Items:=Screen.Fonts;
cbb_jnsFont.Text:='Pilih Font--->';
cbb_ukrnFont.Text:='Pilih Size--->';
cbb_backColor.Text:='Pilih Back Color--->';
cbb_StyleFont.Text:='Pilih Style Font--->';
end;
procedure TForm2.rb_blackClick(Sender: TObject);
begin
mmo_1.Font.Color:=clBlack;
end;
procedure TForm2.rb_blueClick(Sender: TObject);
begin
mmo_1.Font.Color:=clBlue;
end;
procedure TForm2.rb_greenClick(Sender: TObject);
begin
mmo_1.Font.Color:=clGreen;
end;
procedure TForm2.rb_purpleClick(Sender: TObject);
begin
mmo_1.Font.Color:=clPurple;
end;
procedure TForm2.rb_redClick(Sender: TObject);
begin
mmo_1.Font.Color:=clRed;
end;
procedure TForm2.rb_yellowClick(Sender: TObject);
begin
mmo_1.Font.Color:=clYellow;
end;
0 komentar:
Posting Komentar