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;
解决方案 »
- 怎么用IdUDPServer控件进行(p2p)穿透NAT(打洞),各位高手帮忙啊!
- 动态数组的收和发,英雄贴(****系列之三****)
- DBgrid 的查询统计-------------在线等等
- 使用xmldoc.LoadFromXML(xml),为什么为空?
- 请问,如何在DELPHI里打开WORD,EXCEL的文档??
- 请做过物业管理的兄弟进来一看....能处理不同的分摊方式和收费管理的.项目外包.
- 关于传递信息的问题?
- 傻瓜问题,不要笑
- delphi如何控制一个程序的启动
- 小弟想向您请教一个初级问题,是关于delphi的控件问题。
- 怎样使用资源文件
- 怎么样才能做出像资源管理器那样的窗口?
ShellExecute(Handle,pchar('open'),pchar('mailto:[email protected]'),nil,nil,SW_SHOW);