3

graphics32 是一个非常好的库，但我无法弄清楚如何正确使用它。例如 LAYERS，它们是一个很棒的功能。

  • 我可以将图层添加到 ImageView、选择它们、移动它们、调整它们的大小，但是，如果我想删除它们，我不知道该怎么做。

  • 图层也被选中，但我无法捕获它们上的任何关键事件。我的意思是我想使用键盘上的箭头将图层移动一个像素，但我不能。

有谁知道如何解决这些问题？

请帮忙谢谢

4

1 回答 1

1

捕获箭头键的关键是允许这样做。为此，您需要调整底层 TCustomPaintBox32 类的公共（但未发布）属性。

就像是

ImgView.Options := ImgView.Options + [pboWantArrowKeys];

应该允许 TImgView32 类（此处命名为 ImgView）来捕获箭头键。

启用后，您可以编写键盘处理程序，例如：

procedure TMainForm.ImgViewKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Location: TFloatRect;
begin
  if Assigned(FSelection) then
    case Key of
      VK_LEFT:
        FSelection.Location := OffsetRect(FSelection.Location, -1, 0);
...

其中 OffsetRect 通过将增量（第二和第三个参数）添加到左/右和上/下来调整 TFloatRect。

在上面的例子中，FSelection 是当前选中的层。选择图层后（单击鼠标）已将其存储。此外，您可能还需要调整橡皮筋的位置，以防您使用 TRubberBandLayer 作为选择器。

附录：

OffsetRect 的实现：

function OffsetRect(const Rct: TFloatRect; const DeltaX, DeltaY: TFloat): TFloatRect;
begin
  Result.TopLeft := OffsetPoint(Rct.TopLeft, DeltaX, DeltaY);
  Result.BottomRight := OffsetPoint(Rct.BottomRight, DeltaX, DeltaY);
end;

或者，您可以直接使用这样的代码：

procedure TMainForm.ImgViewKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Location: TFloatRect;
begin
  if Assigned(FSelection) then
    case Key of
      VK_LEFT:
        FSelection.Location := FloatRect(FSelection.Location.Left - 1, FSelection.Location.Top, FSelection.Location.Right - 1, FSelection.Location.Bottom);
...

但这看起来有点难看。

附录 2：

对于旧版本的库（例如 1.9.x），也可能缺少 OffsetPoint 函数。这被实现为：

function OffsetPoint(const Pt: TFloatPoint; DeltaX, DeltaY: TFloat): TFloatPoint;
begin
  Result.X := Pt.X + DeltaX;
  Result.Y := Pt.Y + DeltaY;
end;
于 2015-01-18T10:08:50.050 回答