procedure TForm1.fdgdfg1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
  j:Integer;
begin
  if Selected then
  begin
    Acanvas.Font.Color := ClRed;
    Acanvas.Fillrect(ARect);
    Acanvas.Brush.Color := $00EDD8C6;
  end
  else begin
    Acanvas.Brush.color := $00B9ECE8;
    Acanvas.Fillrect(ARect);
    Acanvas.Font.color := ClBlack;
  end;
  Acanvas.brush.Style:=bsclear;
  Acanvas.textout(Arect.Left,Arect.Top,'文件');
end;