Cobalah trik berikut ini untuk membuat background form Anda dengan efek gradasi warna, sehingga tampilan warna form Anda nampak lain daripada yang lain dan tentunya lebih menarik. Untuk pembuatannya sendiri Anda hanya perlu menambahkan listing programnya pada kejadian onPaint milik form tersebut.
procedure TForm1.FormPaint(Sender: TObject); var Raw, Ht: Word; begin Ht:=(ClientHeight+255)div 256; for Row:=0 to 255 do with Canvas do begin Brush.Color:=RGB(Row,0,0); FillRect(Rect(0,Row*Ht,ClientWidth,(Row+1)*Ht)); end; end;
Selamat Mencoba..
semua rumusnya oke oke
Terima Kasih..
Kapan hari akan saya posting rumus yang lebih oke.