سال نو مبارک
مشکل من هنوز حل نشده انتخاب سطر رو همه بلدن (کاری سختی نیست) اما انتخاب ستون را با کد زیر که نوشتم سطر ها پشت سر هم انتخاب میشن یه کد واسه رفرش گرید کم داره میشه کمک کنید
type
TCustomDBGridCracker = class(TCustomDBGrid);
در event DrawColumnCell کد زیر را نوشتم
with TCustomDBGridCracker(Sender) do
begin
if Column.Index=SelectedIndex then
begin
Columns.Items[SelectedIndex].Color:=clRed;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
if gdFocused in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clNavy;
FillRect(Rect);
DBGrid1.Canvas.Font.Color := clHighlightText;
DBGrid1.Canvas.Font.Color := clYellow;
end;
DBGrid1.Canvas.TextRect (Rect, Rect.Left, Rect.Top, Column.Field.AsString);