如何listview改变columnheader颜色

2014-03-06 02:36:40 504 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PCS7日报表动态实现：LISTVIEW控件与C脚本应用工业自动化系统中，DCS系统的报表功能是生产数据可视化的核心组件。以西门子PCS7系统为例，其基于WinCC平台的数据展示能力通过控件与脚本的配合，可实现高效动态报表。LISTVIEW作为Windows标准控件，在报表模式下支持多列数据展示与交互操作，结合C脚本的高效执行特性，能够解决传统静态报表格式僵化、响应迟缓的痛点。这种技术组合特别适合处理实时变化的工艺参数（如温度、压力等）和设备状态数据，在石化、电力等行业SCADA系统中具有广泛应用价值。通过动态列初始化、归档数据加载和条件格式化等技巧，可以构建出阅读详情

...全文

A-Level CS 计算机科学考试知识点——考试介绍&第1章前言：该系列文章是本人在给学生辅导本课程的过程中结合英文教材所总结的，该系列共分为30章，主要介绍了考试的核心知识点。若需要A-Level CS 计算机科学考试辅导也可以私信我。目录关于A-Level CS 计算机科学考试考试简介考试内容考试时间评分情况第1章信息表示本章学习内容 1.01 数字系统 1.02 数字的内部编码整数编码（Coding for integers）二进制编码的十进制（Binary coded decimal——BCD） 1.03. 阅读详情

shuihan20e

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

shuihan20e 2014-03-06

打赏
举报

引用 13 楼 lght 的回复:

1 获取listview的句柄 ListView_GetHeader(); 2 用自己的窗口过程替换默认的窗口过程 setwindowlong 3 在窗口过程的里处理WM_PAINT消息。参考楼上可以参考rz的listview怎么处理的

太高深了，不会

lght 2014-03-06

打赏
举报

1 获取listview的句柄 ListView_GetHeader(); 2 用自己的窗口过程替换默认的窗口过程 setwindowlong 3 在窗口过程的里处理WM_PAINT消息。参考楼上可以参考rz的listview怎么处理的

举手无悔大丈夫 2014-03-06

打赏
举报

procedure TForm1.ADrawText(Canvas: TCanvas; AText: string; ARect: TRect);
var
  H, W, X, Y: Integer;
begin
  Canvas.Brush.Style := bsClear;
  H := Canvas.TextHeight('a');
  w := Canvas.TextWidth(AText);
  X := ARect.Left + (ARect.Right - ARect.Left - W) div 2;
  Y := ARect.Top + (ARect.Bottom - ARect.top - H) div 2;
  if X < ARect.Left then  X := ARect.Left;
  Canvas.TextOut(x, y, AText);

end;

可以用Bmp.weidth, bmp.height设置其大小，我用的是2007

shuihan20e 2014-03-06

打赏
举报

bmp.SetSize(1, Rect.Bottom - Rect.Top); bmp无此方法 ADrawText(Canvas, Str, ARect);这个方法是你自己写的？你delphi是哪个版本？

举手无悔大丈夫 2014-03-06

打赏
举报

5.2,OnDrawHeader,应该都有吧

举手无悔大丈夫 2014-03-06

打赏
举报

好像不能关联，要通过里面的事件来更改TlistView的大小，比如OnSectionResize,OnSectionTrack等.如果没有特殊要求，推荐用TRzListView来做，比较方便

shuihan20e 2014-03-06

打赏
举报

引用 6 楼 lianzhu520610 的回复:

忘了，我用的是TRzListView,你可以用THeadControl来替换就行了

你的raize是哪个版本，我的没有DrawHeader事件

shuihan20e 2014-03-06

打赏
举报

THeadControl如何和listview关联起来呢？

引用 1 楼 lianzhu520610 的回复:

1, 用THeadControl替换columnheader,OnDrawSection事件里面可以画你想要的颜色，形状。 2,ListView设置HeaderDefaultDrawing := False,在OnDrawHeader事件里面画。 2个方法都要自己完全画完头部，单单设置颜色是不行的

举手无悔大丈夫 2014-03-06

打赏
举报

忘了，我用的是TRzListView,你可以用THeadControl来替换就行了

shuihan20e 2014-03-06

打赏
举报

引用 4 楼 lianzhu520610 的回复:

procedure TForm1.RzListView1DrawHeader(Sender: TObject; Canvas: TCanvas;
  Index: Integer; Rect: TRect);
var
  bmp : TBitmap;
  Str: string;
  ARect: TRect;
begin
  bmp := TBitmap.Create;
  try
    bmp.SetSize(1, Rect.Bottom - Rect.Top);
    bmp.Canvas.Brush.Color := clBlue;
    bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
    ARect := Rect;
    if Index = RzListView1.Columns.Count - 1  then
    begin
      ARect.Right :=  ARect.Right
    end;
    Canvas.StretchDraw(ARect, bmp);
    Canvas.Pen.Color := $00838383;
    Canvas.MoveTo(ARect.Right - 1, ARect.Top + 1);
    Canvas.LineTo(ARect.Right - 1, ARect.Bottom - 1);
    if Index = 0 then
    begin
      Canvas.Pen.Color := $FF6E6E6E;
      Canvas.MoveTo(ARect.Left , ARect.Top + 1);
      Canvas.LineTo(ARect.Left , ARect.Bottom - 1);
    end;
    Str := RzListView1.Columns[Index].Caption;
    ADrawText(Canvas, Str, ARect);
  finally
    bmp.Free;
  end;
end;

可以在bmp里面装图片，效果会比较好，THeadControl也是差不多的写法

你用的是raize里的，delphi自带的listview不可以吗？

举手无悔大丈夫 2014-03-06

打赏
举报

procedure TForm1.RzListView1DrawHeader(Sender: TObject; Canvas: TCanvas;
  Index: Integer; Rect: TRect);
var
  bmp : TBitmap;
  Str: string;
  ARect: TRect;
begin
  bmp := TBitmap.Create;
  try
    bmp.SetSize(1, Rect.Bottom - Rect.Top);
    bmp.Canvas.Brush.Color := clBlue;
    bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
    ARect := Rect;
    if Index = RzListView1.Columns.Count - 1  then
    begin
      ARect.Right :=  ARect.Right
    end;
    Canvas.StretchDraw(ARect, bmp);
    Canvas.Pen.Color := $00838383;
    Canvas.MoveTo(ARect.Right - 1, ARect.Top + 1);
    Canvas.LineTo(ARect.Right - 1, ARect.Bottom - 1);
    if Index = 0 then
    begin
      Canvas.Pen.Color := $FF6E6E6E;
      Canvas.MoveTo(ARect.Left , ARect.Top + 1);
      Canvas.LineTo(ARect.Left , ARect.Bottom - 1);
    end;
    Str := RzListView1.Columns[Index].Caption;
    ADrawText(Canvas, Str, ARect);
  finally
    bmp.Free;
  end;
end;

可以在bmp里面装图片，效果会比较好，THeadControl也是差不多的写法

shuihan20e 2014-03-06

打赏
举报

HeaderDefaultDrawing这个属性没有 OnDrawHeader这个事件也没有我用的delphi7

shuihan20e 2014-03-06

打赏
举报

引用 1 楼 lianzhu520610 的回复:

1, 用THeadControl替换columnheader,OnDrawSection事件里面可以画你想要的颜色，形状。 2,ListView设置HeaderDefaultDrawing := False,在OnDrawHeader事件里面画。 2个方法都要自己完全画完头部，单单设置颜色是不行的

有代码吗？

举手无悔大丈夫 2014-03-06

打赏
举报

1, 用THeadControl替换columnheader,OnDrawSection事件里面可以画你想要的颜色，形状。 2,ListView设置HeaderDefaultDrawing := False,在OnDrawHeader事件里面画。 2个方法都要自己完全画完头部，单单设置颜色是不行的

如何listview改变columnheader颜色

相关推荐