Asmaul Husna

Asmaul Husna

Pesan

Kebahagian itu karena adanya cinta,maka jika tanpa cinta kebahagiaan akan sirna,jika kebahagian sirna akan tampaklah kegalauan hati, karena hati pengendali raga, maka jikalau sakit hati, sakitlah semua, oleh karenanya perolehlah cinta, kemanakah mencari cinta,tak perlulah mencarinya,karena cinta ada di manapun kita berada, bukanlah kiranya mencari,tetapi perkenankanlah mendekatinya, mendekat kepada penguasa cinta,pemilik alam semesta & tentulah sang Maha Agung yg bersifat tak seperti makhluk-Nya ...

Pages - Menu

Monday, May 14, 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
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






2 komentar:

  • Arif Susbati says:
    Friday, 05 July, 2013

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

  • Wahyudi Ariannor says:
    Sunday, 07 July, 2013

    Terima kasih,^_^

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Labels