var
MyEffect:TGraphicsDrawEffect; // units ImgList, GraphType
begin
if Sender is TDBGrid then
begin
with TDBGrid(Sender) do
begin
MyEffect:=gdeShadowed;
if gdRowHighlight in State then
begin
MyEffect:=gdeHighlighted;
end;
if Column.Index=0 then // foto na coluna 0
begin
Canvas.FillRect(Rect); // limpando a celula com rect vazio
i:=dmPrincipal.Colaboradores_Pics.IndexOf(Datasource.Dataset.Fieldbyname('nome_completo').AsString);
if (i>=0) and (i<=Pred(dmPrincipal.imgList_Colaboradores.Count)) then
begin
dmPrincipal.imgList_Colaboradores.Draw(
Canvas,
Rect.CenterPoint.x-(dmPrincipal.imgList_EP.Width div 2),
Rect.CenterPoint.y-(dmPrincipal.imgList_EP.Height div 2),
i, // imageindex
MyEffect); // gdeHighlighted ou gdeShadowed
end;
end;
(...)