Hello,
use this:
DefineEventAdapter(TypeInfo(TDrawColumnCellEvent), TMyDBGridsDispatcher, @TMyDBGridsDispatcher.__TDBGridDrawColumnCell);
type
TMyDBGridsDispatcher = class(TatEventDispatcher)
private
procedure __TDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
end;
uses ap_Types
procedure TMyDBGridsDispatcher.__TDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
StateTempSet: TGridDrawState;
StateTemp: variant;
RectW: TRectWrapper;
begin
if Assigned(Scripter) and (RoutineName > '') then
begin
StateTempSet := State;
StateTemp := IntFromSet(StateTempSet, SizeOf(TGridDrawState));
RectW := TRectWrapper.Create(Rect);
Scripter.ExecuteSubroutine(RoutineName, [Sender, RectW, DataCol, Column, StateTemp]);
RectW.Free;
end;
end;