4

我希望能够在 ImgView32 的透明层上绘制一个空的椭圆。知道怎么做吗？到目前为止，我能想到的只有：

 BL := TBitmapLayer.Create(ImgView.Layers);
    BL.Bitmap.DrawMode := dmTransparent;
    BL.Bitmap.SetSize(imwidth,imheight);
    BL.Bitmap.Canvas.Pen.Width := penwidth;
    BL.Bitmap.Canvas.Pen.Color := pencolor;
    BL.Location := GR32.FloatRect(0, 0, imwidth, imheight);
    BL.Scaled := False;
    BL.OnMouseDown := LayerMouseDown;
    BL.OnMouseUp := LayerMouseUp;
    BL.OnMouseMove := LayerMouseMove;
    BL.OnPaint := LayerOnPaint;

...
BL.Bitmap.Canvas.Pen.Color := clBlue;
BL.Bitmap.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
BL.Bitmap.Canvas.Ellipse(FStartPoint.X, FStartPoint.Y,FEndPoint.X, FEndPoint.Y);

起点和终点在鼠标事件中获得。

我实际上正在尝试绘制一个动态椭圆（在鼠标事件上）。所以涉及到onMouseDown(LayerMouseDown)、onMouseUp(LayerMouseUp)和OnMouseMove(LayerMouseMove)事件。作为参考，请检查这个问题，它处理动态绘制一条线。我想做同样的事情，但用椭圆而不是线条。

所以我有 AddCircleToLayer 过程而不是 AddLineToLayer 事件现在看起来像这样：

procedure TForm5.SwapBuffers32;
begin
    TransparentBlt(
      BL.Bitmap.Canvas.Handle, 0, 0, BL.Bitmap.Width, BL.Bitmap.Height,
      bm32.Canvas.Handle, 0, 0, bm32.Width, bm32.Height, clWhite);
end;

procedure TForm5.ImgViewResize(Sender: TObject);
begin
  OffsX := (ImgView.ClientWidth - imwidth) div 2;
  OffsY := (ImgView.ClientHeight - imheight) div 2;
  BL.Location := GR32.FloatRect(OffsX, OffsY, imwidth+OffsX, imheight+OffsY);
end;

procedure TForm5.LayerMouseDown(Sender: TObject; Buttons: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FStartPoint := Point(X-OffsX, Y-OffsY);
  FDrawingLine := true;
end;

procedure TForm5.LayerMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  if FDrawingLine then
  begin
    SwapBuffers32;
      if RadioGroup1.ItemIndex=0 then
      begin
        BL.Bitmap.Canvas.Pen.Color := pencolor;
        BL.Bitmap.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
        BL.Bitmap.Canvas.LineTo(X-OffsX, Y-OffsY);
      end
      else
      begin
        BL.Bitmap.Canvas.Pen.Color := pencolor;
        BL.Bitmap.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
        SwapBuffers32;
        BL.Bitmap.Canvas.Ellipse(FStartPoint.X, FStartPoint.Y,X-OffsX, Y-OffsY);
      end;
  end;
end;

procedure TForm5.LayerMouseUp(Sender: TObject; Buttons: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
      if RadioGroup1.ItemIndex=0 then
      begin
        FDrawingLine := false;
        FEndPoint := Point(X-OffsX, Y-OffsY);
        AddLineToLayer;
        SwapBuffers32;
      end
      else
      begin
        FDrawingLine := false;
        FEndPoint := Point(X-OffsX, Y-OffsY);
        AddCircleToLayer;
        SwapBuffers32;
      end
end;

procedure TForm5.LayerOnPaint(Sender: TObject; Buffer: TBitmap32);
begin
  SwapBuffers32;
end;

procedure TForm5.AddLineToLayer;
begin
  bm32.Canvas.Pen.Color := pencolor;
  bm32.Canvas.Pen.Width := penwidth;
  bm32.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
  bm32.Canvas.LineTo(FEndPoint.X, FEndPoint.Y);
end;

procedure TForm5.AddCircleToLayer;
begin
  bm32.Canvas.Pen.Color := pencolor;
  bm32.Canvas.Pen.Width := penwidth;
  bm32.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
  bm32.Canvas.Ellipse(FStartPoint.X, FStartPoint.Y,FEndPoint.X, FEndPoint.Y);
  SwapBuffers32;
end;

但是当我使用这段代码时，圆圈（椭圆）被白色填充（就像在这张图片中一样） 在此处输入图像描述 ，直到我开始绘制下一个椭圆（所以 onMouseMove 和 onMouseUp 椭圆被填充）。只有当我再做一次 onMouseDown 时，前一个圆圈才会被清空，但新的椭圆也被白色填充（就像这张图片一样） 在此处输入图像描述

此外，如果您尝试一个接一个地做更多的椭圆，并且在旧的顶部，您会注意到会有 onMouseMove 椭圆的痕迹，如下图所示：

在此处输入图像描述

所以这段代码一定有我遗漏的东西。

请帮我解决这个问题。

4

2 回答 2

4

如果您正在使用来自主干的最新 GR32 代码，您还可以使用此代码片段来定义椭圆

Points := Ellipse(Center.X, Center.Y, Radius.X, Radius.Y);

甚至更简单

Points := Ellipse(Center, Radius);

其中Points定义为

Points: TArrayOfFloatPoint;

这将生成一个椭圆的多边形，其中心为Center，独立的 x 和 y 相关半径由 定义Radius。

获得多边形后，您可以使用任何矢量渲染器对其进行渲染。例如，您可以使用内置的 VPR 渲染器

PolygonFS(Bitmap, Points, SomeColor32);

渲染一个填充的椭圆。

但是，如果您只想渲染帧，您可以使用它

PolylineFS(Bitmap, Points, AnotherColor32, True, PenWidth);

为此的参数是

  1. Bitmap = TBitmap32 实例渲染到
  2. 点 = 多边形点（如上定义）
  3. AnotherColor32 = 颜色，用于渲染
  4. True =关闭多边形（否则您的椭圆将在起点和终点之间有间隙
  5. PenWidth = 框架的宽度

如果你喜欢，你也可以在一个电话中呈现这个，比如

PolylineFS(Bitmap, Ellipse(Center, Radius), AnotherColor32, True, PenWidth);

为了获得任意（旋转的）椭圆，您需要在渲染之前转换多边形。您可以使用

TransformPolygon(Points, Transformation);

为此，它获取一个TTransformation实例作为第二个参数。这可以包括所有常见的操作，如旋转、倾斜、缩放和平移。

如果您使用它，您还可以从一个更简单的圆形开始作为多边形输入，然后缩放圆形以生成椭圆。

上面的代码需要将单元 GR32_VectorUtils、GR32_Polygons 包含到您的项目中，例如

uses
  GR32_VectorUtils, GR32_Polygons;

优点是您不依赖 GDI 进行渲染，因此您可以从 GR32 的可用渲染器中选择渲染器。有些包括类似 ClearType 的效果，并提高了 LCD 屏幕的可见性。更不用说抗锯齿质量和控制渲染伽玛的能力了。

于 2015-02-18T14:04:24.077 回答
1

So when drawing the circle/ellipse set the brush color to 0 like:

procedure TForm5.AddCircleToLayer;
begin
  bm32.Canvas.Pen.Color := pencolor;
  bm32.Canvas.Pen.Width := penwidth;
  bm32.Canvas.Brush.Color := 0; // this here does the magic
  bm32.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
  bm32.Canvas.Ellipse(FStartPoint.X, FStartPoint.Y,FEndPoint.X, FEndPoint.Y);
  SwapBuffers32;
end;

Also do the same in the LayerMouseMove event

于 2015-02-17T22:39:22.893 回答