主页 / 问题 / 1105985
Accepted
Gu.
Asked:2020-04-06 01:12:19 +0000 UTC2020-04-06 01:12:19 +0000 UTC

我们需要一个可视化的 Delphi 组件，类似于在旧版本的 Windows 中显示磁盘碎片整理

  • 772

要求

描述：我们需要一个可视化组件，在窗口中将有序数量的项目显示为彩色矩形

元素数量：最大 1024 个，从左到右线性填充到可见区域的末尾，然后换行

对于每个元素：以编程方式更改列表中的位置和颜色、工具提示、弹出菜单

作为奖励：缩放和滚动可见显示区域

查看：类似于碎片整理显示

在此处输入图像描述

问题：我不知道这样的组件，你能告诉我是否有吗？如果没有，那么请教怎么写？

= Windows 10 Ent 1607 Embarcadero Delphi 10.3

delphi

1 个回答

  1. Best Answer

    TDrawGrid + 简单存储列表中的信息

    在此处输入图像描述

    procedure TForm1.DrawGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  ar, ac: Integer;
begin
  TDrawGrid(Sender).MouseToCell(MousePos.X, MousePos.Y, ac, ar);
  PopupMenu1.Items[0].Caption := Format('%d %d', [ar, ac]);
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  c: TCanvas;
begin
  c := TDrawGrid(Sender).Canvas;
  if ARow > 3 then
    c.Brush.Color := clWindow
  else
    c.Brush.Color := Random($1000000);
  Rect.Inflate(-2, -2);
  c.FillRect(Rect);
end;
    • 1

相关问题