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.
===========
----- Original Message -----
From: "irvan_nsahabat" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, 14 August 2003 2:25 PM
Subject: [Delphindo] Re: cara memberi warna pada StringGrid Cell?
> Bisa diberi contoh listingnya? Saya sudah berusaha baca-baca
> dihelpnya tapi masih kesulitan.
>
> Tks
> Irvan
------------------------ 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/
