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;
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;
ShellExecute(Handle,pchar('open'),pchar('mailto:[email protected]'),nil,nil,SW_SHOW);