Delphi TRzListView自绘表头标题背景色示例(OnDrawHeader)

飞熊 • 2023年4月25日上午9:52 • 未分类 • 阅读 146

RzListView自带了OnDrawHeader 事件，在该事件中进行自绘即可。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,CommCtrl, ComCtrls,  ProgressBarEx, StdCtrls, URLLabel, RzListVw;

type
  TForm1 = class(TForm)
    RzListView1: TRzListView;
    procedure FormCreate(Sender: TObject);
    procedure RzListView1DrawHeader(Sender: TObject; Canvas: TCanvas;
      Index: Integer; Rect: TRect);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
  lit: TListItem;
begin
  with RzListView1 do
    for i := 0 to 5 do
    begin
      Columns.Add.Caption := 'Column' + IntToStr(i);
      Columns[i].Width := 70;
      lit := Items.Add;
      lit.Caption := 'Item' + IntToStr(i);
      for j := 1 to 5 do
        lit.SubItems.Add('SubItem' + IntToStr(j) + IntToStr(i))
    end
end;



procedure TForm1.RzListView1DrawHeader(Sender: TObject; Canvas: TCanvas; Index: Integer; Rect: TRect);

procedure ADrawText(Canvas: TCanvas; AText: string; ARect: TRect);
var
  H, W, X, Y: Integer;
begin
  Canvas.Brush.Style := bsClear;

  Canvas.Font.Color := clWhite;
  //Canvas.Font.Name := '微软雅黑';
  //Canvas.Font.Size := 18;

  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;

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;

end.

示例效果如下截图：