Собираюсь переходить на версию 9.3 с версии 5.6.
В версии 5.6. использовал картинки в ячейках столбцов из ImageList и закрашивание выделенной ячейки нужным мне цветом. В версии 6.3 и выше предоставлена процедура "SelectionDrawParams", в которой можно выбирать цвет согласно темам Windows. Или что то в этом роде.
Мне же нужно выбирать свои цвета в строках и активных ячейках. Эти цвета пользователь может настраивать сам по своему усмотрению.
Если я изменю цвета к которым привыкли пользователи - меня порвут на ремни.
Суть вопроса: -процедура TDBGridEh(sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); замазывает картинки в ячейке, но оставляет нужные мне цвета выделения.
Если я закомментирую эту процедуру, картинки отрисовываются нормально, но мои цвета заменяются на стандартные синие из TdbGridEh.
Вопрос: - Можно ли вернуть нормальную отрисовку картинок с одновременным использованием процедуры DefaultDrawColumnCell.
Часть кода:
procedure Tfrm_LaunchProg.grProgsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
inherited;
MyGridDrawColumnCell(Sender, Rect, DataCol, Column, State, False); // В своей процедуре я устанавливаю свои цвета.
TdbGridEh(sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); // Эта процедура "замазывает" картинки
end;
Прикладываю картинку где в верней части цвета грида, а в нижней части мои цвета но с "закрытыми" картинками.
Получается, что я не могу одновременно использовать свои цвета в процедуре DrawColumnCell, с одновременным использованием картинок в ячейках.
Картинки к ячейкам привязываю здесь из ImageList:
procedure Tfrm_LaunchProg.grProgsColumns1GetCellParams(Sender: TObject;
EditMode: Boolean; Params: TColCellParamsEh);
begin
inherited;
try
Params.ImageIndex := GetShellImage(Params.Text, False, false);
Params.BlankCell := Params.ImageIndex = -1;
except
end;
end;
Проект старый и огромный. Перерабатывать всё проблематично.
Надеюсь на совет разработчиков. Это баг или фича?
Спасибо.
| Вложения: |
|
Комментарий к файлу: Формы отличаются наличием или отсутствием процедуры "DefaultDrawColumnCell(Rect, DataCol, Column, State);" Pictures.png [ 49.78 KiB | Просмотров: 1129 ] |