procedure TMainFrm.GridFriendDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Picture:TPicture;
begin
TDBGrid (Sender).DefaultDrawColumnCell(Rect,3,Column,State);
if (Column.FieldName = 'F_PIC') then
try
Picture:=TPicture.Create;
Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.bmp');
TTntDbGrid(Sender).Canvas.StretchDraw(Rect,Picture.Graphic );
finally
Picture.Free;
end;
end;
State: TGridDrawState);
var
Picture:TPicture;
begin
TDBGrid (Sender).DefaultDrawColumnCell(Rect,3,Column,State);
if (Column.FieldName = 'F_PIC') then
try
Picture:=TPicture.Create;
Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.bmp');
TTntDbGrid(Sender).Canvas.StretchDraw(Rect,Picture.Graphic );
finally
Picture.Free;
end;
end;