ورود

View Full Version : نمایش سطرها در DBGrid به صورت یکی در میان رنگی



m_reza
سه شنبه 17 شهریور 1383, 21:43 عصر
با سلام
چگونه می توان سطرهای یک DBGrid را به طور رنگی مثلا سفید و خاکستری به طور یک در میان نشان داد ؟


با تشکر
_______________

_alish_
چهارشنبه 18 شهریور 1383, 07:07 صبح
procedure TLRecFrm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
iValue:Byte;
begin
iValue :=DBGrid1.DataSource.DataSet.RecNo mod 2;
If (gdFocused in State) or (gdSelected in State) then
dbgrid1.canvas.brush.color :=ClBlue
else
case iValue of
1: DBGrid1.Canvas.Brush.Color := $00D1D9DC;
0: DBGrid1.Canvas.Brush.Color := clWhite;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;


کامپوننت فکس نداری .
یکی هم به داد ما برسه بد نیست

m_reza
چهارشنبه 18 شهریور 1383, 14:31 عصر
با تشکر از پاسخ شما
در مورد کامپوننت فکس هم باید بگم شرمنده ، اما در مجموعه Golden Box 4 فکر می کنم یک چیزایی در این زمینه باشه.

shadi2211
پنج شنبه 16 مهر 1383, 12:08 عصر
استفاده از ‍componentTurbo Power با مراجعه به این سایت

فرزاد دلفی باز
جمعه 01 آبان 1383, 03:35 صبح
دوست عزیز alish :
من هم این مشکل رو دارم ولی کد شما جواب نداد . لطفا در صورت امکان توضیح بیشتری بدهید . متشکرم