Mempercantik Tampilan Teks Warna-Warni di Delphi

Posted by Admin

Mempercantik tampilan aplikasi yang kita buat adalah suatu kesenangan tersendiri bagi sebagian orang, dikarnakan selain aplikasi yang kita buat menarik bagi kita dan juga menarik di lihat oleh orang lain,

Kali ini saya akan membagikan bagaimana cara mudah membuat tampilan animasi Teks menjadi Warna-Warni di Judul aplikasi kita yang kita buat menggunakan delphi.

Komponen yang digunakan Yaitu:

RichEdit

Timer

Langsung saja tambahkan komponen di atas pada form dan kemudian Atur Properties nya seperti di bawah ini:

-Klik RichEdit

-Alignment (taCenter)

-BorderStyle (bsNone)

-Color (Black)

-Name (REJudul)

-ScrollBars (ssHorizontal)

Setelah Selesai diatur Propertiesnya klik Timer ketikan coding seperti di bawah ini.

var
  Form1: TForm1;
  charKe : integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  REJudul.SelStart := charKe +6;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := clRed;
  REJudul.SelStart := charKe +5;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := $000080FF;
  REJudul.SelStart := charKe +4;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := clYellow;
  REJudul.SelStart := charKe +3;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := clGreen;
  REJudul.SelStart := charKe +2;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := clBlue;
  REJudul.SelStart := charKe +1;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := $00FFFF80;
  REJudul.SelStart := charKe;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := clPurple;
  REJudul.SelStart := charKe -1;
  REJudul.SelLength := 1;
  REJudul.SelAttributes.Color := clWhite;
  charKe := charKe +1;
  if charKe > Length(REJudul.Text) then charKe := 0;
end;

Hasilnya akan seperti ini.

Bagi yang mau silahkan download di bawah ini.

DOWNLOAD Now

Tutorial Pemrograman Delphi

Mempercantik Tampilan Teks Warna-Warni di Delphi

0 komentar