如题
解决方案 »
- 怎么屏蔽运行程序的错误窗口?
- 怎样把一个字符串分割成字符串数组?
- 如何把表的字段的字段的内容放到tdbcombobox里去?
- 【★★★】潮流兴散分,大家帮忙接啊【★★★】
- 我现在用delphi7.0,有必要升级为delphi8.0吗?
- 一个服务程序判断启动的问题
- 我想新建一个不带表单的公共单元存储公共变量和函数,但interface到imtepmnet之间不会写请指教!谢谢!!!最好给个例子!!
- 如何变换右下角任务栏图标
- 我看不懂这段程序,谁能解释一下?
- 怎么打开.dpr文件的代码,双击.dpr文件就看到.pas的代码。
- ★请问如何将EDIT.TEXT中的内容全部转为全角?
- 一個時間過濾的問題,在線等待!謝謝!
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Bmp: TBitmap;
begin
if Column.Field = Table1IMAGE then
begin
try
Bmp := TBitmap.Create;
Bmp.Assign(Table1IMAGE);
DBGrid1.Canvas.StretchDraw(Rect,Bmp);
finally
Bmp.Free;
end;
end ;
end;