好象不行,用StringGrid试一试,比较麻烦!
解决方案 »
- FastReport 问题,会的请帮忙。
- 在打开的word中替换对象。拜求高手相救。
- 模拟鼠标点击操作的问题??
- Webbrowser getAdjacentText 应该怎么使用?(难,高手进)
- 异常"invalid variant operation",请求解答!
- 怎样对mapinfo进行二次开发阿?
- 明天就22岁了,散分记念一下...
- dbexpress问题!?
- 简单问题:如何跳出一个在所有窗口前面的窗口?
- 不知道大家是否能够让combobox右边的小箭头按钮不可见 ,但是在点击后才能可见 ,并且功能照旧
- 请众位高手指点迷津,如何实现数据库的过滤,用RadioGroup 与 Edit 作为查找字段
- 老問題, 如何求 DBGrid 中數值列的和? 急﹗
最好给出原代码!!!http://www.csdn.net/expert/topic/129/129995.shtm
procedure TForm1.ListView1AdvancedCustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
if Item = Sender.Selected then
begin
Sender.Canvas.Font.Color := clWhite;
Sender.Canvas.Brush.Color := clBlack;
end;
end;
begin
If Item.Index mod 2 <> 0 then
Sender.Canvas.Font.Color := clBlue
else
Sender.Canvas.Font.Color := clBlack;
end;