Если нужно просто подсветить строку на которой стоит курсор, то это ещё проще:
Никакого рисования на канве, никаких тонкостей с вызовом методов, просто указываем гриду свойства ячейки, передаваемые в аргументах и всё, остальное он делает сам!
End;//1.РАСКРАШИВАЕМ СТРОКУ
AFont.Style := AFont.Style + [fsBold];
if (Column.Field.Index = 1) and (Column.Field.AsString = 'Петров' ) then begin
AFont: TFont; var Background: TColor; State: TGridDrawState);
procedure TFmMain.EhGridGetCellParams(Sender: TObject; Column: TColumnEh;
Пишется обработчик события OnGetCellParams:
2. Раскрашиваем строку
edConnStr.Text := ADOC.ConnectionString;
AdoConEd.EditConnectionString(ADOC);
ADOC.ConnectionString := edConnStr.Text;
//редактирование ConnectionString
Почитать подробнее можно здесь: (из этой же статьи взята базка в MS ACCESS). Никаких проблем связка TADOConnection TADODataSet не вызывает. Интересным моментом в программе является редактирование свойства TADOConnection.ConnectionString в run-time:
Время идет, BDE официально признан мертвым, поэтому мы в качестве движка будем использовать ADO.
1. Демонстрационный проект
Рассмотрим, как их можно решить в наши дни. Воспользуемся бесплатной для exUSSR библиотекой Дмитрия Большакова. В настоящее время это лучшие компоненты в exUSSR по соотношению функциональность+качество/цена. Вся настройка грида для большей наглядности делается в исходном коде. В ваших приложениях большинство действий можно проделать визуально в дизайнере.
Почти восемь лет назад, появилась на свет Borland Delphi 1. Все эти восемь лет программисты во всем мире, связанные с базами данных, решали несколько сложнейших задач, которые (вместе с решениями) описаны здесь:
Разноцветный DBGrid. 8 лет спустя.
Разноцветный DBGrid. 8 лет спустя.
Комментариев нет:
Отправить комментарий