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圖片的制作方法，感興趣的可以百度一下。

http://www.lsworks.net/article/45.html