Home/ Questions/Q 6368759
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-25T00:42:59+00:00

I draw list view items with OwnerDraw , but I have bugs: please resize

  • 0

I draw list view items with OwnerDraw, but I have bugs: please resize a column -> you will have a horizontal bar, scroll it -> items are drawn on a visible area 🙁

Please help me to edit a code below. Thanks for your attention and help!!!

Added:

I checked, Rect.Right and Rect.Left increase/decrease while scrolling. E.g. we scroll 50 px right, Rect.Right will be Rect.Right+50, Rect.Left will be -50 (0-50)

A normal view:

enter image description here

Bugs:

enter image description here
enter image description here

procedure TDownloadFrame.DownloadListDrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
  i: integer;
  x1, x2: integer;
  R: TRect;
  s: string;
const
  DT_ALIGN: array [TAlignment] of integer = (DT_LEFT, DT_RIGHT, DT_CENTER);
begin
  if odSelected in State then
  begin
    Sender.Canvas.Font.Color := clWhite;
    Sender.Canvas.Brush.Color := $00FF8000;
  end
  else
  begin
    Sender.Canvas.Font.Color := clBlack;
    Sender.Canvas.Brush.Color := clWhite;
  end;
  Sender.Canvas.Brush.Style := bsSolid;
  Sender.Canvas.FillRect(Rect);

  x1 := 0;
  x2 := 0;
  R := Rect;
  Sender.Canvas.Brush.Style := bsClear;
  MainForm.Icons_16x16.Draw(DownloadList.Canvas, 3, R.Top + (R.Bottom - R.Top - 16) div 2, 1, true);
  for i := 0 to DownloadList.Columns.Count - 1 do
  begin
    Inc(x2, ListView_GetColumnWidth(DownloadList.Handle,
      DownloadList.Columns[i].Index));
    R.Left := x1;
    R.Right := x2;
    if i = 0 then
    begin
      s := Item.Caption;
      R.Left := 16 + 6;
    end
    else
      s := Item.SubItems[i - 1];
    if i <> 3 then
    DrawText(Sender.Canvas.Handle, s, length(s), R, DT_SINGLELINE or
      DT_ALIGN[DownloadList.Columns[i].Alignment] or DT_VCENTER or
      DT_END_ELLIPSIS);
    x1 := x2;
  end;
end;
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Change:

    1)

      x1 := 0;
  x2 := 0;

    to

      x1 := Rect.Left;
  x2 := Rect.Left;

    2)

    MainForm.Icons_16x16.Draw(DownloadList.Canvas, 3, R.Top + (R.Bottom - R.Top - 16) div 2, 1, true);

    to

    MainForm.Icons_16x16.Draw(DownloadList.Canvas, R.Left+3, R.Top + (R.Bottom - R.Top - 16) div 2, ImgIndex, true);

    3)

    if i = 0 then
begin
  s := Item.Caption;
  R.Left := 16 + 6;
end

    to

     if i = 0 then
    begin
      s := Item.Caption;
      R.Left := R.Left + 16 + 6;
    end
    • 0