Selasa, 25 Desember 2012

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




Tidak ada komentar:

Posting Komentar