PRAKTIKUM BSI DELPHI 7 III

Praktikum Delphi 7 III .......
Membuat Memo Dengan BackGround,Font Colour,Size dan Pilihan Font...


Codingnya Sebagai Berikut.......>>>><<<<<


unit Latihan3;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    AboutMe1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure AboutMe1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Latihan3Form2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts;
ComboBox1.Text:='PILIH FONTS';
ComboBox2.Text:='PILIH UKURAN';
Memo1.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.RadioButton1Click(Sender: TObject);
begin
Memo1.Color:=ClRed;
RadioButton2.Enabled :=False;
RadioButton3.Enabled :=False;
RadioButton4.Enabled :=False;
RadioButton5.Enabled :=False;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Memo1.Color:=ClBlue;
RadioButton1.Enabled :=False;
RadioButton3.Enabled :=False;
RadioButton4.Enabled :=False;
RadioButton5.Enabled :=False;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
Memo1.Color:=ClYellow;
RadioButton1.Enabled :=False;
RadioButton2.Enabled :=False;
RadioButton4.Enabled :=False;
RadioButton5.Enabled :=False;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
Memo1.Color:=ClGreen;
RadioButton1.Enabled :=False;
RadioButton2.Enabled :=False;
RadioButton3.Enabled :=False;
RadioButton5.Enabled :=False;
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
Memo1.Color:=ClGray;
RadioButton1.Enabled :=False;
RadioButton2.Enabled :=False;
RadioButton3.Enabled :=False;
RadioButton4.Enabled :=False;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Checked=True then
   Begin
   Memo1.Font.Style :=Memo1.Font.Style+[FsBold];
   CheckBox1.Caption:='Un Bold';
   End
 Else
 Begin
  CheckBox1.Caption:='Bold';
  Memo1.Font.Style := Memo1.Font.Style-[FsBold];
 End

end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
If CheckBox2.Checked=True then
   Begin
   Memo1.Font.Style :=Memo1.Font.Style+[FsItalic];
   CheckBox2.Caption:='Un Italic';
   End
 Else
 Begin
  CheckBox2.Caption:='Italic';
  Memo1.Font.Style := Memo1.Font.Style-[FsItalic];
 End
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
If CheckBox3.Checked=True then
   Begin
   Memo1.Font.Style :=Memo1.Font.Style+[FsUnderline];
   CheckBox3.Caption:='Non Line';
   End
 Else
 Begin
  CheckBox3.Caption:='Underline';
  Memo1.Font.Style := Memo1.Font.Style-[FsUnderline];
 End
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
If CheckBox4.Checked=True then
   Begin
   Memo1.Font.Style :=Memo1.Font.Style+[FsStrikeOut];
   CheckBox4.Caption:='Un StrikeOut';
   End
 Else
 Begin
  CheckBox4.Caption:='StrikeOut';
  Memo1.Font.Style := Memo1.Font.Style-[FsStrikeOut];
 End
end;


procedure TForm1.CheckBox6Click(Sender: TObject);
begin
If CheckBox6.Checked=True then
   Begin
   Memo1.Font.Color:=ClRed;
   End
 Else
 Begin
  Memo1.Font.Color:= ClBlack;
 End
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
If CheckBox7.Checked=True then
   Begin
   Memo1.Font.Color:=ClBlue;
   End
 Else
 Begin
  Memo1.Font.Color:= ClBlack;
 End
end;

procedure TForm1.CheckBox8Click(Sender: TObject);
begin
If CheckBox8.Checked=True then
   Begin
   Memo1.Font.Color:=ClYellow;
   End
 Else
 Begin
  Memo1.Font.Color:= ClBlack;
 End
end;

procedure TForm1.CheckBox9Click(Sender: TObject);
begin
If CheckBox9.Checked=True then
   Begin
   Memo1.Font.Color:=ClGreen;
   End
 Else
 Begin
  Memo1.Font.Color:= ClBlack;
 End
end;

procedure TForm1.CheckBox10Click(Sender: TObject);
begin
If CheckBox10.Checked=True then
   Begin
   Memo1.Font.Color:=ClGray;
   End
 Else
 Begin
  Memo1.Font.Color:= ClBlack;
 End
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Color:=ClWindow;
RadioButton1.Enabled :=True;
RadioButton2.Enabled :=True;
RadioButton3.Enabled :=True;
RadioButton4.Enabled :=True;
RadioButton5.Enabled :=True;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.Action;
Memo1.SetFocus;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.AboutMe1Click(Sender: TObject);
begin
Form2.Show;
end;

end.

Screen Shut Pembuatan Program >>><<<<



Materi Project Silahkan DiDownload...
Silahkan....>>>>Download Project_Latihan_3

Komentar

Franklin Loukassy mengatakan…
Tolong Yach DiMaklumin

Postingan populer dari blog ini

SOURCE CODING MP3 PALYER by Lhourens

WebCam Sederhana Menggunakan Pemrograman Delphi

Membuat Aplikasi Database Delphi Berbasis Cloud Database