高手请进,DRAWGRID问题,急等!!!!!!

高手请进,DRAWGRID问题,急等!!!!!! Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061003171403270.html
有一个drawgrid控件,设置为5行5列,要在每个单元格中写入不同的数据(文本,要可以换行,每行文本可自定义,自定义颜色),如何实现?  
   
  谢谢!!!!

procedure   TForm1.DrawGrid1DrawCell(Sender:   TObject;   ACol,   ARow:   Integer;  
  Rect:   TRect;   State:   TGridDrawState);  
  var  
  bmp:   TBitmap;  
  begin  
   
  if   (ARow<>0)   then  
  begin  
  if   ACol=1   then//第一列画图  
  begin  
    bmp:=   TBitmap.Create;  
    bmp.LoadFromFile('c:\11.bmp');  
    DrawGrid1.Canvas.FillRect(Rect);  
    DrawGrid1.Canvas.CopyRect(Rect,bmp.Canvas,bmp.Canvas.ClipRect);  
    bmp.Free;  
  end;  
  if   acol=2   then   //第二列换行字符串  
  begin  
    DrawGrid1.Canvas.FillRect(Rect);  
    DrawText(DrawGrid1.Canvas.Handle,  
  pchar('字符串字符串字符串字符串字符串字符串字符串字符串'),  
  Length('字符串字符串字符串字符串字符串字符串字符串字符串'),  
  Rect,  
  DT_WORDBREAK   or   DT_CENTER);  
  end;  
  end;  
  end;

从delphi里拷贝过来怎么这个样子了?  
  ft,楼主在字符串换行的地方需要设置一下rowwidth

转载于:https://www.cnblogs.com/delphi2007/archive/2009/03/13/1410292.html

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 扫一扫,分享海报

参与评论
请先登录 后发表评论~
©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值