Delphi TListView自绘表头标题字体颜色示例（每列不同颜色）

谁借莪１个温暖的怀抱￠ 2023-10-04 20:23 52阅读 0赞

代码如下：

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, CommCtrl, StdCtrls;
    
    type
      TGetHeaderItemFontColorEvent = procedure(Sender: TCustomListView;
        ItemIndex: Integer; var FontColor: TColor) of object;
      TListView = class(ComCtrls.TListView)
      private
        FHeaderHandle: HWND;
        FOnGetHeaderItemFontColor: TGetHeaderItemFontColorEvent;
        procedure WMNotify(var AMessage: TWMNotify); message WM_NOTIFY;
      protected
        procedure CreateWnd; override;
      published
        property OnGetHeaderItemFontColor: TGetHeaderItemFontColorEvent read
          FOnGetHeaderItemFontColor write FOnGetHeaderItemFontColor;
      end;
    
    type
      TForm1 = class(TForm)
        ListView1: TListView;
        procedure FormCreate(Sender: TObject);
      private
        procedure GetHeaderItemFontColor(Sender: TCustomListView;
          ItemIndex: Integer; var FontColor: TColor);
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    { TListView }
    
    procedure TListView.CreateWnd;
    begin
      inherited;
      FHeaderHandle := ListView_GetHeader(Handle);
    end;
    
    procedure TListView.WMNotify(var AMessage: TWMNotify);
    var
      FontColor: TColor;
      NMCustomDraw: TNMCustomDraw;
    begin
      if (AMessage.NMHdr.hwndFrom = FHeaderHandle) and
        (AMessage.NMHdr.code = NM_CUSTOMDRAW) then
      begin
        NMCustomDraw := PNMCustomDraw(TMessage(AMessage).LParam)^;
        case NMCustomDraw.dwDrawStage of
          CDDS_PREPAINT:
            AMessage.Result := CDRF_NOTIFYITEMDRAW;
          CDDS_ITEMPREPAINT:
          begin
            FontColor := Font.Color;
            if Assigned(FOnGetHeaderItemFontColor) then
              FOnGetHeaderItemFontColor(Self, NMCustomDraw.dwItemSpec, FontColor);
            SetTextColor(NMCustomDraw.hdc, ColorToRGB(FontColor));
            AMessage.Result := CDRF_NEWFONT;
          end;
        else
          AMessage.Result := CDRF_DODEFAULT;
        end;
      end
      else
        inherited;
    end;
    
    { TForm1 }
    
    procedure TForm1.FormCreate(Sender: TObject);
      var
       i,j:integer;
       item:TListItem;
      begin
       with ListView1 do
       begin
        ViewStyle := vsReport;
        GridLines:=True;
      
        for i:=0 to 6 do
        begin
           Columns.Add.Caption:='Column'+IntToStr(i);
           Columns[i].Width:=70;
           Column[I].Alignment := taCenter;
           item:=Items.Add;
           item.Caption:='Item'+IntToStr(i);
           for j:=1 to 6 do item.SubItems.Add('SubItem'+IntToStr(j)+IntToStr(i))
        end
       end;
    
      ListView1.OnGetHeaderItemFontColor := GetHeaderItemFontColor;
    end;
    
    procedure TForm1.GetHeaderItemFontColor(Sender: TCustomListView;
      ItemIndex: Integer; var FontColor: TColor);
    begin
      case ItemIndex of
        0: FontColor := clRed;
        1: FontColor := clGreen;
        2: FontColor := clBlue;
        3: FontColor := clFuchsia;
        4: FontColor := clBlack;
        5: FontColor := clLime;
        6: FontColor := clSkyBlue;    
      end;
    end;
    
    end.

效果如下截图：（7列标题分别显示不同颜色）

![e067d876006743a1b0ed1c9c709d72c3.png][]

[e067d876006743a1b0ed1c9c709d72c3.png]: https://img-blog.csdnimg.cn/e067d876006743a1b0ed1c9c709d72c3.png