Ok, ini sering ditanyakan di milis.
Kira2 begini:
procedure TDBGrid1.DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with dbgrid1 do begin
if column.fieldname='XXX' then begin
Canvas.Brush.Color := clRed
Canvas.font.Color := clYellow;
end
else begin
Canvas.Brush.Color := clWhite
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
----- Original Message -----
From: "Ali Gunawan" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 15, 2003 11:18 PM
Subject: RE: [Delphindo] Table.FielByName Vs DBGrid.ColumnByName
> thxs , tapi yg saya mau bukan dapet value nya / nama field nya
>
> yang saya mau misal nya di DBGrid kan
> ada column[0] ... [1] ... dst
>
> nach saya mau DBGrid column yang nama field nya 'XXX' itu color nya clGray
>
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Looking for the latest Free IT White Papers?
Visit SearchNetworking.com to access over 500 white papers.
Get instant access at SearchNetworking.com Today
http://us.click.yahoo.com/8lAzoD/OLNGAA/witMAA/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/
