Tweet
hi,<br>
<br>
ich möchte grafiken in einem dbgrid anzeigen, und überschreibe das <br>
"DrawColumnCell-event" des grids. bei einer paradoxdatenbank geht auch <br>
alles hervoragend. in access gibt es den typ "grafik" aber nicht.<br>
wie muss ich folgenden code abändern, um bilder aus access im grid an-<br>
zeigen zu können???<br>
if Column.Field.ClassNameIs('TGraphicField') then<br>
begin<br>
FPic.Assign(Column.Field);<br>
NRect.Left := Rect.Left;<br>
NRect.Top := Rect.Top;<br>
NRect.Right := Rect.Left + 20;<br>
NRect.Bottom := Rect.Bottom;<br>
Canvas.FillRect(Rect);<br>
Canvas.StretchDraw(NRect, FPic.Bitmap);<br>
end;<br>
wobei fpic vom typ "TPicture" ist. da es in access den typ "ole-object" <br>
gibt habe ich bereits versucht die if in Column.Field.ClassNameIs<br>('TOleField') abzuändern was allerdings nix gebracht hat.<br>
für hilfe und tips bin ich sehr dankbar.<br>
mfg<br>
andik
<br>
ich möchte grafiken in einem dbgrid anzeigen, und überschreibe das <br>
"DrawColumnCell-event" des grids. bei einer paradoxdatenbank geht auch <br>
alles hervoragend. in access gibt es den typ "grafik" aber nicht.<br>
wie muss ich folgenden code abändern, um bilder aus access im grid an-<br>
zeigen zu können???<br>
if Column.Field.ClassNameIs('TGraphicField') then<br>
begin<br>
FPic.Assign(Column.Field);<br>
NRect.Left := Rect.Left;<br>
NRect.Top := Rect.Top;<br>
NRect.Right := Rect.Left + 20;<br>
NRect.Bottom := Rect.Bottom;<br>
Canvas.FillRect(Rect);<br>
Canvas.StretchDraw(NRect, FPic.Bitmap);<br>
end;<br>
wobei fpic vom typ "TPicture" ist. da es in access den typ "ole-object" <br>
gibt habe ich bereits versucht die if in Column.Field.ClassNameIs<br>('TOleField') abzuändern was allerdings nix gebracht hat.<br>
für hilfe und tips bin ich sehr dankbar.<br>
mfg<br>
andik
Comment