Всё, разобрался сам.
| Код |
procedure TMainForm.InDocsDBGridEhDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
bmp: TBitmap;
begin
if Column.Field is TBlobField then
begin
with InDocsDBGridEh.Canvas do
begin
FillRect(Rect);
bmp := TBitmap.Create;
bmp.Assign((IODocsDataModule.INDOCSIBTable.fieldbyname('IMAGE') as TBlobField));
Draw(Rect.Left, Rect.Top, bmp);
end;
end;
end;
|
Но теперь появился другой вопрос - Можно ли сделать, что-бы если изображение больше ячейки, оно помещалось там целиком, а не только его левый верхний угол? |
