Thanks guys and Traci. Its working fine.
Steven
Traci Sumpter wrote:
> procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
>
>
> var
> holdColor: TColor;
> begin
> holdColor := DBGrid1.Canvas.Brush.Color; {store the original color}
>
> if DBGrid1.Fields[4].Value = 1 then {only do for the row with a
> condition}
> Begin
> // DBGrid1.Canvas.Brush.Color := clSilver;
> DBGrid1.Canvas.Font.Style := [fsBold];
> DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
> DBGrid1.Canvas.Brush.Color := holdColor;
> DBGrid1.Canvas.Font.Style := [];
> end
> else
> begin
> DBGrid1.Canvas.Font.Style := [];
> DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
> DBGrid1.Canvas.Brush.Color := holdColor;
> DBGrid1.Canvas.Font.Style := [];
> end;
> end;
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Steven Knight
> Sent: Wednesday, 30 March 2005 5:05 p.m.
> To: '[email protected]'
> Subject: [DUG] Change appearance of grid rows
>
> Hi everyone,
>
> I there a way to change the appearance of rows in the standard Delphi
> 6 DBGrid dependent on data in the row?
>
> For example: make the text in the grid row bold if a particular field
> value is true.
>
> What I am trying to do is build an In/Out board and I want to make it
> more obvious when the item is out.
>
>
> Steven Knight
> DBA / Software Developer
> Environment Canterbury
> PO Box 345, Christchurch
> phone: 00 64 3 365-3828 x 7129
> email: [EMAIL PROTECTED]
>
> **********************************************************************
> This email and any files transmitted with it are confidential and
> intended solely for the use of the individual or entity to whom they
> are addressed. If you have received this email in error please notify
> the system manager.
>
> This footnote also confirms that this email message has been swept by
> MIMEsweeper for the presence of computer viruses.
>
> www.ecan.govt.nz
> **********************************************************************
>
>
> _______________________________________________
> Delphi mailing list
> [email protected]
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
> _______________________________________________
> Delphi mailing list
> [email protected]
> http://ns3.123.co.nz/mailman/listinfo/delphi
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
