День добрый.
Delphi XE5.
Пробовал на EhLib.VCL 9.4 Build 9.4.016 и на EhLib.VCL 9.4 Build 9.4.017 включать
Код:
DBGridEhCenter.TryUseViewScroll := False;
Для теста сделал проект: форма, TDBGridEh, TMemTableEh, TDataSource.
При старте создаю поля в TMemTableEh, наполняю данными.
В событии DrawColumnCell стоит код для разрисовки колонок:
Код:
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var FN : string;
begin
with (Sender as TDBGridEh) do
begin
FN := Column.FieldName;
if (FN = 'P2') or (FN = 'P3') then
begin
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Color := clBlack;
end;
end;
TDBGridEh(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
var FN : string;
begin
with (Sender as TDBGridEh) do
begin
FN := Column.FieldName;
if (FN = 'P2') or (FN = 'P3') then
begin
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Color := clBlack;
end;
end;
TDBGridEh(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
При попытки скролировать колесом мыши вываливается ошибка:
[img]error1.jpg[/img]
Далее клацая по окну с ошибкой вываливаются другие цифры на ней.
Закоментарив код в DrawColumnCell , ошибок при прокрутке колесом мыши нет.
Поставив точку останова выяснил - ошибка происходит на строке TDBGridEh(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
Вопрос: что не так?
Проект прилагаю
| Вложения: |
TDBGridEhTest.rar [110.49 KiB]
Скачиваний: 95 |
|
error1.jpg [ 75.49 KiB | Просмотров: 1741 ] |