procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);var index: integer; begin index := Row * DrawGrid1.ColCount + Col; with Sender as TDrawGrid do begin Canvas.Brush.Color := clBackGround; Canvas.FillRect(Rect); ImageList1.Draw(Canvas,Rect.Left,Rect.Top,index); if gdFocused in State then Canvas.DrawFocusRect(Rect); end;end;
用STRINGGRID.CANVAS.DRAW(RECT,IMAGE.PICTURE....)
就可以了,
http://www.delphibbs.com
index: integer;
begin
index := Row * DrawGrid1.ColCount + Col;
with Sender as TDrawGrid do
begin
Canvas.Brush.Color := clBackGround;
Canvas.FillRect(Rect);
ImageList1.Draw(Canvas,Rect.Left,Rect.Top,index);
if gdFocused in State then
Canvas.DrawFocusRect(Rect);
end;end;