Окрашивание выделенной записи в компоненте DBGrid - Delphi
procedure TFindCompany.
sDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol:
Integer; Column: TColumn;
State: TGridDrawState);
begin
if ((
State = [gdSelected] )
or (
State = [gdSelected, gdFocused]))
then
begin
TDBGrid(Sender).Canvas.Brush.Color :=RGB(198, 243,245);
// нажатии на ячейку
TDBGrid(Sender).Canvas.Font.Color:=ClRed;
with sDBGrid1.
Canvas do
begin
Font.
Color := clBlack;
FillRect(Rect);
TextOut(
Rect.Left + 2,
Rect.Top + 2,
Column.
Field.Text);
end;
Возврат к списку
