Hola.
Nunca he usado los componentes TMS, pero de acuerdo a esta guía,
TMS TAdvStringGrid DEVELOPERS GUIDE, el evento
OnGetCellColor está declarado así:
Código Delphi
[-]
TGridColorEvent = procedure (Sender:TObject; ARow, ACol:Integer; AState:TGridDrawState;
ABrush:TBrush; AFont:TFont) of object;
Entonces creo que para asignarle tu propio procedimiento, bastaría con hacer algo similar a esto:
Código Delphi
[-]
...
type
TForm1 = class(TForm)
AdvStringGrid1 : TAdvStringGrid;
procedure FormCreate(Sender: TObject);
...
private
procedure MyGetCell(Sender:TObject; ARow, ACol:Integer; AState:TGridDrawState; ABrush:TBrush; AFont:TFont);
...
public
...
end;
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
AdvStringGrid1.OnGetCellCol := MyGetCell;
end;
procedure TForm1.MyGetCell(Sender:TObject;ARow, ACol:Integer; AState:TGridDrawState; ABrush:TBrush; AFont:TFont);
var
sg: TAdvStringGrid;
begin
sg := AdvStringGrid1;
... end;
...
Aunque, en base, sería lo mismo usar la declaración original...
Saludos