graphics32相关内容

缩放TRotLayer

我正在处理graphics32.我正在使用示例中的给定组件TRotLayer.根据示例(Examples/Layers/RotLayer_Ex),创建的RotLayer仅与ImgView一起缩放.如果未分配ImgView.Bitmap,则RotLayer不会缩放.因此,我修改了源代码,更改了它的行为.我更改了TRotLayer.AdjustTransformation过程.这就是我所做的. ..
发布时间:2020-07-23 03:59:11 其他开发

Delphi Graphics32结合了普通层和工程图层

“画图层"是指用户可以在其中手动绘制线,圆或其他形状的层.普通层是指graphics32层示例中描述的层(可以在运行时使用鼠标事件来移动或调整大小的层) 因此,我在组合这两种类型的图层时遇到了困难.现在,在我的测试项目中,我将假设我只有一个绘图层和多个PNG层. 因此,在我的项目中,我在OnFormCreate中为ImgView32设置了属性,例如: procedure TForm1.For ..
发布时间:2020-07-23 03:58:08 其他开发

Graphics32-将透明图形图层保存为png

我在ImgView32的一层上画了一条虚线.以后,我想将每个图层另存为透明的PNG. 对于我拥有的任何其他层,保存工作都很好.但是对于绘图层,不是. 为了使问题更易于理解,请使用gr32库中的示例代码,尤其是Layers示例.其主菜单中的选项之一是添加自定义绘图层(“新建自定义层->简单绘图层"). 然后尝试将该层另存为透明的PNG图像,最终将得到一个损坏的PNG文件(您无法使用任何其他图片 ..
发布时间:2020-07-23 03:57:04 其他开发

Delphi Graphics32如何在层上用鼠标画一条线

有人可以帮我转换这种动态绘制线条的好方法吗? (带有delphi的Photoshop样式绘制线)到Graphics32? 我的意思是,我想拥有一个ImgView,在其中添加一个新层,然后在该层而不是窗体的画布上执行这些方法. 所以我认为,我的代码应如下所示: private FStartPoint, FEndPoint: TPoint; FDrawingLine ..
发布时间:2020-07-23 03:57:00 其他开发

如何在图像中沿弧线渲染文本?

我在Delphi 7中使用以下代码来沿DVD的弯曲边缘绘制版权文本.我们使用的是旧版本的Graphics32. 我们正在使用来自Graphics32的最新代码切换到Delphi XE5,并且该代码不再编译;特别是LoadArcCurve和drawingBuffer.RenderFittedText不再作为方法存在. procedure TCDLabel.DrawCopyrightTex ..
发布时间:2020-07-23 03:56:57 其他开发

Delphi TImage32-如果未加载图片,如何使组件不可见?

如果将正常的TImage组件放置在窗体或面板上的其他组件>>上,则在运行时它将不可见,只要不加载图片即可.所以它下面的其他东西都是可见的. 但是 TImage32 默认情况下会绘制一个灰色框. 如何在保留设置的同时使其不可见:.Visible:= True;是否未加载图片? (我仍然需要在组件上运行事件,例如OnClick ...) 是的,这是一个重复的问题,但是解决方案上一个 ..
发布时间:2020-07-23 03:56:53 其他开发

Delphi-Graphics32,绘制抗锯齿圆角矩形

如何使用Graphics32绘制抗锯齿的圆角矩形? 我设法用TPolygon在bitmap32画布上制作了一个普通矩形,但找不到任何参考来绘制圆角.会喜欢一些代码. 解决方案 function GetRoundedFixedRectanglePoints(const Rect: TFloatRect; dx, dy: single): TArrayOfFixedPoint; var ..
发布时间:2020-07-23 03:56:45 其他开发

透明Png到TBitmap32

我有一个png,我想加载一个TBitmap32。 加载位图后,我打电话: Bitmap.DrawMode:= dmTransparent; Bitmap.OuterColor:= Bitmap.PixelS [0,0]; 但是所有的白色像素都是透明的。我该怎么做只是为了png图像的透明部分?这是我的图像,以标准方式指示图像边缘的Alpha透明度。 ..
发布时间:2017-04-24 01:19:41 Delphi

Delphi Graphics32相对鼠标位置(到图层)

我有一个ImgView32,它固定在所有的窗体边距上。表单最大化。 ImgView的位图不是固定的(可以是不同的大小) 我试图在透明层上画一条线,使用这个问题的其他代码:绘制线在层上 现在的问题是,使用这个确切的代码,我只能绘制在左上角,就像在这个图像中: 您可以观察到,线条只能在左上角绘制。 如果我尝试为开始和结束点添加一些值,整个事情变得疯狂。所以我必须找到一种方式, ..
发布时间:2017-04-23 23:28:45 Delphi

Delphi Graphics32透明层画线

我正在尝试向ImgView32添加图层,而在该图层上,我想绘制一条线。但是,我希望该层是透明的,所以它不会覆盖以前添加的所有图层。 所以我想获得: 第1层 - > image layer 2 - >另一个图像 第3层 - >画一条线 第4层 - >另一个图像 这是一个以下问题: Delphi Graphics32如何用图层上的鼠标画一条线 您将找到我用于绘制行的代码 ..
发布时间:2017-04-23 13:08:13 Delphi