Teks Berjalan Warna Pelangi Menggunakan Delphi

بسم الله الرحمن الرحيم

Alhamdulillah, sekarang al-Fakir ingin kembali berbagi ilmu dengan teman-teman, akhi wa ukhti semua. Di kesempatan ini, ana akan berbagi ilmu tentang trik pemrograman delphi, yaitu membuat "Teks Berjalan Warna Pelangi". Biar kita paham, ana perlihatkan dulu nih preview-nya

 Bagaimana teman-teman, lumayan bagus tidak ? Langsung saja kita kupas tuntas bagaimana cara membuatnya.

1. Tambahkan komponen TRichEdit pada tab Win32

Atur property nya sebagai berikut :
Lines : 'SEKOLAH DASAR'
Enabled : False
Color : clBlack
BorderStyle : bsNone
Alignment : taCenter
Name : REJudul
Font-Name : Courier
Font-Size : 25
Font-Style : fsBold
ScrollBars : ssHorizontal


2. Kemudian tambahkan komponen TTimer pada tab System

Atur property interval menurut keinginan anda.

3. Tambahkan variabel global dengan type integer = charKe : integer

4. Klik 2 kali pada komponen TTimer, isikan koding berikut :

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 := -6;

Setelah itu, simpan aplikasi dan jalankan. Mudah saja bukan ? silakan akhi wa ukhti unduh Source Code-nya pada link di bawah ini
Teks Pelangi
Alhamdulillah, semua ilmu berasal dari Allah SWT, Allah Maha Mengetahui.
Terima kasih atas kunjungan teman-teman, akhi wa ukhti,. Mohon saran dan kritik buat ana al-Fakir, agar kita dapat memperbaiki yang masih kurang dan  menjadi lebih baik lagi.
Wassaalamu 'alaikum warohmatullahi wabarakatuh