Люди в мире делятся на две группы: те, кто не знают Билла Гейтса и те, кто его ненавидят!
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
TRect;
Field: TField; State: TGridDrawState);
beginif gdFocused in State thenwith (Sender as TDBGrid).Canvas dobegin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end;
Статья Как выделить цветом текущую строку в TDBGrid раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.