Maik2

Hello Boki.

Thank you for implementing this useful feature in the current version 1-26.

Best regards
Maik

Hi Boki, that would be really great and would be a big help to me at work.

procedure TFormTagelohnauftraege.NextDBGrid1CustomDrawCell(Sender: TObject;
  ACol, ARow: Integer; CellRect: TRect; CellState: TCellState);
var Image : TImage;
    Foto  : string;
begin
  if ACol=28 then begin
    Image := TImage.Create(Self);
    try
      Foto := Bilderpfad + '\' + MySQL_DataModule.QueryTG.FieldByName('DATEINAME_FOTO1').AsString;
      Image.Picture.LoadFromFile(Foto);
      NextDBGrid1.Canvas.StretchDraw(CellRect, Image.Picture.Graphic);
    finally
      Image.Free;
    end;
  end;
end;

I've solved it this way now. But I don't know if this is the recommended or correct way...