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






Comments

  1. Bagus banar nah blognya, artikelnya gen mantap nih.. Pake Delphi, thx..

    ReplyDelete

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Popular posts from this blog

Membuat File Resource (*.res)