Delphi之TDrawGrid绘制



一直都对QQ的好友列表很好奇,最先感觉用TreeView实现的,看了看TreeView的源码,发现要实现还真的不太好完成任务啊,其中最大的原因是自己的功力不足,后来觉得用ListView来做吧,结果也是失败,后来又想到ListBox,结果发现也是难成,最后发现有一个TDrawGrid,可以来绘制,但是不知道那两行文字怎么搞,有知道的望告知,谢谢。好了不再废话,就把最近对TDrawGrid的一些操作记录如下:

1.我们先设置TDrawGrid的属性:
BorderStyle:bsNone;
ColCount:1;
DefaultColWidth:200;
DefaultRowHeight:60;
RowCount:10;
GridLineWidth:2;
Options:[goFixedVertLine, goFixedHorzLine, goHorzLine, goDrawFocusSelected, goThumbTracking];
ScrollBars:ssVertical;

2.在窗体的public 域定义如下变量和函数:
  PicList: TList;
    function GetPicture(ACol, ARow:Integer): TBitMap;

3.完成相关函数和过程:

function TForm1.GetPicture(ACol, ARow: Integer): TBitMap;
var
  Index: integer;
begin
  Result := nil;
  Index := ARow * Grid.ColCount + ACol;
  if Index <= PicList.Count - 1  then
    Result := TBitmap(PicList.Items[Index]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Bmp: TBitMap;
  Index: Integer;
  AFileName: string;
begin
  PicList := TList.Create;
  for Index := 1 to 10 do
  begin
    AFileName := Format(ExtractFilePath(ParamStr(0)) + 'Icon\%d.bmp', [Index]);
    Bmp := TBitmap.Create;
    Bmp.LoadFromFile(AFileName);
    PicList.Add(Bmp);
  end;
end;

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  ACanvas: TCanvas;
  R: TRect;
  Bmp: TBitMap;
begin
  ACanvas := Grid.Canvas;
  Bmp := GetPicture(ACol, ARow);
  if Bmp <> nil then
  begin
    R := Rect;
    R.Left := R.Left + 6;
    R.Top := R.Top + 6;
    {如果使用Canvas的StretchDraw函数,必须加上
    下面两句代码,不过BMP图片还是无法透明}
    //R.Bottom := R.Bottom - 6;
    //R.Right := Bmp.Width;
    {设置BMP的Transparent为真,再用Canvas的
    Draw函数,就可以使BMP透明绘制,不过你需要
    制作透明的BMP图片}
    Bmp.Transparent := True;
    ACanvas.Draw(R.Left, R.Top, Bmp);
    {网上有人说用下面的语句可以透明,但是使用
    函数StretchDraw,还是无法透明}
    //ACanvas.Brush.Style := bsClear;
    //ACanvas.StretchDraw(R, Bmp);
  end;
end;

最后,关于透明BMP图片的制作方法,感兴趣的可以百度一下。


评论: 2 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭