procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:TBitmap;
x,y:integer;
begin
x:=0;
y:=0;
bitmap:=TBitmap.Create;
bitmap.LoadFromFile('c:\aa.bmp');
self.DBGrid1.Canvas.Draw(x,y,bitmap);
end;
var
bitmap:TBitmap;
x,y:integer;
begin
x:=0;
y:=0;
bitmap:=TBitmap.Create;
bitmap.LoadFromFile('c:\aa.bmp');
self.DBGrid1.Canvas.Draw(x,y,bitmap);
end;
解决方案 »
- 【急呀】Fastreport4.9.31变量传递问题
- 感谢wellnj 帮忙 追加40分,请进来拿分
- 求复杂SQL语句一条!
- delphi7建立一个空的工程,就占用内存10M,真晕,有什么解决办法吗?我的程序就两个窗体,占用20M??
- 利用UDP发XML形式数据包的问题
- Twordapplication.Documents.Add(template,newtemplate);
- 我用delphi写了一个小www服务器,想支持PHP
- 象金山毒霸一样的从网络上更新程序的功能
- 请问:为何我的程序重新编译,老是要提示"无法编译project1.exe",而且它的确仍然驻留在内存里.请指教
- access数据库之间复制记录
- 帮忙!Blob字段的问题
- 如何重启动FTP服务器?
beginend
else
begin
stringgrid1.Canvas.Brush.Style:=bsclear;
stringgrid1.canvas.copyrect(rect, bmp.canvas, rect);//bmp为所要加载的背景
stringgrid1.canvas.textrect(rect, rect.left+2 , rect.top+2, stringgrid1.cells[acol, arow]);
end;DBgrid也是同样的
Rect: TRect; State: TGridDrawState);
begin
if state <>[] then
begin
end
else
begin
stringgrid1.Canvas.Brush.Style:=bsclear;
stringgrid1.canvas.copyrect(rect, bmp.canvas, rect);//bmp为所要加载的背景
stringgrid1.canvas.textrect(rect, rect.left+2 , rect.top+2, stringgrid1.cells[acol, arow]);
end;
end;
DBgrid也是同样的
忘记告诉你在什么地方写了(onDrawCell)事件中写
DEFAULTDRAW=FALSE;
2、在OnDrawColumecell事件中拷贝一块小矩形图到格子
但是DBGrid就是DBGrid,用来处理数据就行了嘛,何必搞得很花哨呢。