delphi - 水平或垂直滚动​​ TImage

Question

我正在为我的学校项目在 Lazarus 写 2-3 Trees 应用程序。

一切都完成了，现在开始玩 GUI(我得到的好 GUI 的分数与我得到的好等的分数相同。插入功能，这很奇怪，但 nvm)。

当我在树中有 10 多个节点时，我的 300*200 图像大小就不够大了。

我想在 TForm 上有一个像 300*200 的 TImage 组件，但实际上它会像 10000 * 10000 并且您可以在其中滚动。

甚至可能吗？

谢谢

编辑使问题更清楚

2-3 树是一种数据结构。在纸上绘制以查看其工作原理时，它看起来像 http://www.cosc.canterbury.ac.nz/research/RG/alg/tree23.gif

作为 lazarus/delphi 中的真正菜鸟(必须在 lazarus 中进行)使用此代码来绘制它(即使我怀疑你需要它来回答我的问题):

procedure TStrom.Paint(Image: TImage);

变量
C:TCanvas；

程序 Paint1(V:TNode；宽度，X，Y:整数)；
开始

if V.L <> nil then    //left child
begin
  C.MoveTo(X, Y);
  C.LineTo(X - Width div 3, Y + 50);
  Paint1(V.L, Width div 3, X - Width div 3, Y + 50);
end;

if V.S <> nil then    //middle child 
begin
  C.MoveTo(X, Y);
  C.LineTo(X + Width div 3, Y + 50);
  Paint1(V.S, Width div 3, X + Width div 3, Y + 50);
end;

if V.P <> nil then     //right child
begin
  C.MoveTo(X, Y);
  C.LineTo(X + Width div 3 + Width div 3, Y + 50);
  Paint1(V.P, Width div 3, X + Width div 3 + Sirka div 3, Y + 50);
end;

if V.isLeaf then
begin
  C.Ellipse(X - 15, Y - 15, X + 15, Y + 15);
  C.TextOut(X - 3, Y - 8, IntToStr(V.Info1));
end
else
begin
  C.Rectangle(X - 15, Y - 15, X + 15, Y + 15);
  C.TextOut(X - 7, Y - 8, IntToStr(V.Info1));
  C.Rectangle(X + 15, Y - 15, X + 50, Y + 15);
  if V.Info2 <> 0 then
    C.TextOut(X + 27, Y - 8, IntToStr(V.Info2));
end;

draw 函数效果很好，但是一些(大部分)高度为 3+ 的节点被绘制在其他节点上，所以看起来很糟糕。该节点位于另一个节点上，并且在它旁边不是 20 像素。

我想我会让树被画得很大的图像，但它会在一个小“面板”中。像这样:TImage 实际上是 1000*1000，但在表格中你只能看到它的一小部分。在这部分中会有水平和垂直滚动条，因此您可以滚动图像并查看部分中绘制的内容。 (就像你在浏览器中滚动查看页面底部时一样:))

我们不允许使用任何其他代码，只是内置在 lazarus 组件中。 (我们也不允许创建新组件 -> 不知道为什么)

虽然我仍然对如何做到这一点感到好奇，但我的应用程序不再需要它(安装了第二台监视器以查看它是否有帮助，但它不会，所以我想我会深入研究我的绘画方法位 :-) )

Answer 1

您的编辑更清楚地表明您想要绘制类似于 example you link to 中最后一棵树的示意图。 .

从您的代码中，我了解到您正在将所有节点、子节点和叶子绘制到单个 Canvas 上，从而生成一个大图像/位图。现在，如何只显示大图像的一部分，旁边有滚动条？

显而易见的选择是放置 TPaintBox在 TScrollBox .我不知道 Lazarus 中的默认组件套件，但我希望它们都存在。给画框一个与你的视觉树的边界相等的大小，你就设置好了:滚动条将自动显示。

油漆盒有 OnPaint您通过向 PaintBox.Canvas 绘画来完成绘画工作的事件.为了优化这一点，您可以将绘图限制为 PaintBox.Canvas.ClipRect (在滚动框中可见的油漆框部分)，但我怀疑这很困难，因为您已经难以计算相邻节点之间的正确距离。 (关于那个:我希望总树的最大宽度和高度是总深度的函数，但我很容易弄错。)

如果 Lazarus 没有 TPaintBox ，然后使用 TImage其中还有一个 Canvas属性(property)。缺点是 TImage将所有绘图操作“存储”在一个大的内部位图中，当您的树扩展过多时，这可能会引发内存或资源问题。