های لایت کردن یک سطر از DBGrid

[Babak-Aghili]

سلام بروبکس !
جهت " های لایت " کردن یک سطر از DBGrid بطوری که هم رنگ کل سطر عوض شود و هم فونت نمایشی آن سطر از کد زیر استفاده کردم ... از لحاظ دلفیایی به نظر نمیاد که مشکلی داشته باشه ولی بهرحال جواب نمیده !

شما هم یک بررسی بکنید .... ببینید چشه ؟ :sad2:



type THackDBGrid = class(TDBGrid);
procedure TForm1.DBGrid1DrawColumnCell
(Sender: TObject; const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
if (THackDBGrid(DBGrid1).DataLink.ActiveRecord + 1 =
THackDBGrid(DBGrid1).Row)
or (gdFocused in State) or (gdSelected in State) then
begin
DBGrid1.Canvas.Brush.Color := clSkyBlue;
DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
DBGrid1.Canvas.Font.Color := clRed;
end;
end;

[arshia_]

گمون کنم اینجا هم باید اضافه شه
DefaultDrawColumnCell(Rect, DataCol, Column, State);
یه نگاهی به این پست کن
http://www.barnamenevis.org/forum/viewtopic.php?t=20845
http://www.delphi3000.com/articles/article_604.asp?SK=
:flower:

[Babak-Aghili]

با تشکر .

مورد کاربرد اینهایی که گفتی فرق داره ! ( ولی مفید بودند .. ممنون .)

اینجا میخوایم همین که روی یک سطر کلیک کرد ... رنگ و فونتش عوض بشه ....

[jirjirakk]

سلام بابک جان :)
اگه از EhLib استفاده کنی تو قسمت OptionEH واسه هایلایت یک گزینه داره :)

[Babak-Aghili]

ممنون رفیق شفیق :sunglass:

[Delphi Skyline]

بابا ایول