Доброе время суток,
У меня есть несколько «DBGrid», которые должны окрашиваться одинаково и для придумал процедуру «COLOR_GRID(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState; AGrid: TDBGrid);» в которой выполняются действия по окраске всех «DBGrid». Данную процедуру я просто вызываю из собития «DBGridDrawColumnCell»
procedure TFRate.bvdbgrRateDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Image_Sign_Deposit: TBitmap;
begin
COLOR_GRID(Rect, DataCol, Column, State, bvdbgrRate);
…
end;
- все отлично работает.
Но мне приходится, после редактирования таблицы, программно передергивать bvdbgrRateDrawColumnCell (для корректной окраски данных), способом
procedure TFRate.Button1Click(Sender: TObject);
var
Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState;
AGrid: TDBGrid;
begin
bvdbgrRate.OnDrawColumnCell(Sender, Rect, DataCol, Column, State);
end;
но в этом случае при вызове «COLOR_GRID» валится ошибка:
«class EAccessViolation with message 'Access violation at address 004041A4 in module 'MetaTrader.exe'. Read of address 00000036'. Process stopped. Use Step or Run to continue.»
В файле «…delphi7/source/rtl/sys/system.pas», на строке
function _IsClass(Child: TObject; Parent: TClass): Boolean;
begin
Result := (Child <> nil) and Child.InheritsFrom(Parent);
end;
Что я делаю не так?
Заранее спасибо за ответ.
P.S.
- Для упрощения, я закоментировал все в процедуре «COLOR_GRID» (ошибка осталась).
- Мне всетаки кажется, что я не правильно вызываю событие:
Код:
bvdbgrRate.OnDrawColumnCell(bvdbgrRate, Rect, DataCol, Column, State);