رنگ آمیزی سطرها در DbGrid از EhLib

[Mojgan110]

سلام

من یادمه که چند روز قبل ، با یکی از پراپرتی های DbGrid از کامپوننتهای EhLib ، توانستم که سطرها را بصورت یک درمیان ، رنگ کنم و اینکه روی هرسطری که میرفت ، با رنگ جدیدی هایلایت میشد و اینها.

حالا هرچقدر میگردم و بهش ور میرم ، پیدا نمیکنم که کجاش چنین خاصیتهایی را تعریف میکردیم

اگه شما میدونید ، راهنمایی کنید لطفا.

[MNosouhi]

کافیه OddRowColor و EvenRowColor رو با رنگ مورد نظرتون تنظیم کنید : البته :

It works only if sequence numbers are available for DataSet(DataSet.IsSequenced = True) and DataSet.RecNo return valid info

[rezvani]

سلام
من این کارو با کدزنی انجام میدم.

unit columnCellColor;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Canvas.Font.Color:=clBlack;
if((DBGrid1.DataSource.DataSet.RecNo mod 2)=0)Then
DBGrid1.Canvas.Brush.Color:=clInfoBK;
if(gdSelected in State)Then
DBGrid1.Canvas.Brush.Color:=clBlue;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);
//ÈÑÇ? ÓÊæä ÑÏíÝ

if(DataCol=0)Then
begin
DBGrid1.Canvas.Brush.Color:=clred;
DBGrid1.Canvas.Font.Color:=clYellow;
DBGrid1.DefaultDrawColumnCell(Rect,0,Column,State) ;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.
امیدوارم مشکلتو حل کنه.