sguruapp@gmail.com
facebook vk instagram Одноклассники youtube

Окрашивание выделенной записи в компоненте 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;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.

обучись профессии будущего