![Mempercantik Tampilan Teks Warna-Warni di Delphi Mempercantik Tampilan Teks Warna-Warni di Delphi](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVXmUCJ_1VVEyk9mgvgvqsDBTwRI4sw40hwoHZovyTuN2W9BBaW85cMSiElmIZZ8YHqd_48M3Asf2KwTzNLv1ym7NxChJ-R35rIOG3yI4LA-nufDeK4SKT8oqw6dK27d_htnwSjOEhLSI/w600/Teks+Warna-Warni+di+Delphi.webp)
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.
Share This :
0 komentar