Tks Squid... --- In [EMAIL PROTECTED], "Squid" <[EMAIL PROTECTED]> wrote: > Contoh yang di bawah ini cuma untuk beda kolom beda warna. Kalo agar setiap > cell bisa beda warna ya ... silakan diutak-atik sendiri berdasarkan kriteria > penggantian warna yang diinginkan. > > procedure TfrmBrowseBarang.grdBrowseBarangDrawCell(Sender: TObject; ACol, > ARow: Longint; Rect: TRect; State: TGridDrawState); > begin > case (ACol) of > 1 : begin > grdBrowseBarang.Canvas.Brush.Color := clAqua; > end; > 2 : begin > grdBrowseBarang.Canvas.Brush.Color := clRed; > end; > end; > grdBrowseBarang.Canvas.TextRect(Rect, Rect.Left, Rect.Top + 2, > grdBrowseBarang.Cells[ACol,ARow]); > > HTH, > Sintar.
------------------------ Yahoo! Groups Sponsor ---------------------~--> Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
