如何在delphi 中画带箭头的直线（改自网上一位论坛版主的vb代码）

最新推荐文章于 2022-11-24 10:23:12 发布
最新推荐文章于 2022-11-24 10:23:12 发布
阅读量2.6k 收藏 1
点赞数
分类专栏： delphi 文章标签： delphi vb integer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/itecwwj/article/details/202869
版权
该博客介绍了一个在Delphi中使用TCanvas绘制带箭头直线的代码实现，详细解释了箭头的生成原理，包括箭头的两个特点：两翼端点连线与直线垂直、等腰三角形，并提供了焦点矩形的选中效果。
摘要由CSDN通过智能技术生成

procedure TLineItem.Draw(aCanvas: TCanvas);

var

  Xa, Ya, Xb, Yb: real;

  D: real;

  X1, Y1, X0, Y0: Integer;

begin

  aCanvas.Pen.Style := PsSolid;

  aCanvas.Pen.Color := clWhite;

//画直线

  aCanvas.MoveTo(PtStart.X, PtStart.Y);

  aCanvas.LineTo(PtEnd.X, PtEnd.Y);

  //

最低0.47元/天 解锁文章
itecwwj
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
关于利用canvas画带箭头的直线旋转
逍遥的博客
08-02 608
代码】关于利用canvas画带箭头的直线旋转。
delphi 窗体上画任意方向带箭头的直线全套源码
10-01
delphi 窗体上画任意方向带箭头的直线全套源码，程序启动后在主窗体直接用鼠标左键拖动可画出任意方向的带箭头的直线。
delphi 画 带箭头的线
weixin_33742618的博客
12-12 477
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const Penwidth = 1;//画笔的粗细 Len = 2...
Delphi 画箭头
weixin_30572613的博客
04-22 449
procedure TForm1.Line(x, y, x2, y2: integer); begin canvas.MoveTo(x, y); canvas.LineTo(x2, y2); end; procedure TForm1.Button1Click(Sender: TObject); var x, y, len: integer; r: TR...
画带箭头的线段和圆弧
08-19
VC++.net 2003下画带箭头的线段和圆弧，主要实现在CArrowLineView里，我做了简单函数说明。用法，在视图里鼠标左键点两下确定两个点，就画一个带箭头的线段和带箭头的圆弧，并在线段中间标注线段长度。是标注线和标注角度的画法。曾经在网上找这么一个实现方法费老老劲了，希望能给大家带来些便利。
Delphi下的GDI+编程[3] 绘制直线-线帽
weixin_30881367的博客
10-10 190
本例效果图： //线帽 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p:= TGPPen.Create(aclBlue, 5); p.SetStartCap(LineCapArrowAnchor); {起点线帽，这里是箭头状锚头帽} p...
delphi lineto划直线
hutao1101175783的专栏
08-16 438
procedureTForm1.DrawLine(x,y:Integer); begin Self.Canvas.MoveTo(20,20); Self.Canvas.LineTo(x,y); end;
[转载]完全掌控PageControl中的右上方的左右箭头事件！
gencheng的专栏
05-12 1404
   单击PageControl中的右上方的左右箭头时，PageControl的执行结果让人很不满意，我想让它执行我的自定义过程！   下面是ANiDelphi大侠写的组件：unit Unit1;interfaceuses  Windows, Messages, Classes, ComCtrls;type  TLRClickingEvent = procedure(Sender: T
Canvas学习：绘制箭头
热门推荐
chelen_jak的专栏
05-29 1万+
原文出处：https://www.w3cplus.com/canvas/drawing-arrow.html （博主有一系列实用Canvas教程)在这篇文章中主要来聊在Canvas中怎么绘制箭头。在Canvas的CanvasRenderingContext2D对象中是没有提供绘制箭头的方法，言外之意，在Canvas中要绘制箭头是需要自己封装函数来处理。那今天的主题就是来看怎么封装绘制箭头的函数。了...
Canvas画图之直线带箭头封装
最新发布
qq_40942568的博客
11-24 1122
我是用的是批量画线的方法，当然你也可以画单个线，如果画单个线，只需要把drawLine的for循环里面的代码提出来，改下参数就行。color 整体颜色 （如果需要箭头和直线颜色分离的话，再加一个参数）其实原理很简单，只不过要我们回归一下下学生时代学习的三角函数。arrows 是否需要箭头 true代表需要。原理后面再补充，我先上代码。x1,y1 第一个点的坐标。x2,y2 第二个点的坐标。type 箭头的方向。
QML之控制小车运动并绘制路径
画茧自缚
10-31 3663
效果知识点 绘图，使用Canvas进行绘图 图层叠加，小车运动和路径的绘制为两个图层，所以两者互不干扰 画布旋转，小车转向并非是将图标进行旋转而是将画布进行旋转 绘制图片，初始点标定是将图标绘制在图层上 绘制路径，将小车每次移动的轨迹用线段连接 源码绘制小车/*********************实时刷新小车位置图层************************/ Canvas{
php画虚线代码,HTML5 canvas画带箭头的虚线
weixin_36286774的博客
03-29 312
本案例注意事项：1、当你拖动箭头时 canvas里面线条绘制自动重新计算点。2、canvas没有画虚线的api，因为对api不是很熟悉，所以就不献丑了，在网上找的。3、箭头出来后 点击画布里面的任意点 箭头将延伸到该处，至于具体的应用 修改canvas的lineTo属性就能实现了。4、具体的代码解释我写的比较清楚，修改箭头样式只需写过lineTo即可，非常简单。效果如下：代码如下：HTML Can...
【关于Path的史诗级总结】画箭头、直线，监听箭头、直线的触摸事件，以及平移
欢迎进入JesseAndroid的博客
05-07 1762
没图我说个球： 1.箭头 2.折线 3.直线 以上只能看到画出来的部分，平移的部分我没移植到这个demo下面（因为遇到了一些bug，懒得搞了）， 但是下面会讲到平移部分。 简介： 该文章将涉及以下知识点： 1.path的绘制与平移（直线、箭头、可弯折直线）； 2.path上每个点坐标的获取； 3.使用region获取填充型path（圆、椭圆、实心矩形等）...
qml学习---------------利用Canvas绘制文本
南的专栏
09-23 3320
在利用Canvas绘制文本的时候，可以指定文本不同的风格。 Context2D中和文本相关的方法有3个： fillText() , strokeText() , text();使用方法就下面两种： ctx.beginPath(); ctx.text(“stroken text” ,100 , 100); ctx.stroke();或者是另外的一种使用方法： ctx.strokeText(“
qml实现路径绘制且可编辑
qq_26611129的博客
06-27 1006
本文章示例要实现的功能是qml工程中实现圆形、矩形、多边形和直尺的绘制，并且可以通过控制点来改变路径，效果如图： qml工程中进行绘制除了使用Canvas，还有一种方法就是继承QQuickPaintedItem了，然后重写其虚函数paint(),调用update()来触发绘制。对于该类更详细的描述我就不介绍了，大家可以自己查阅。定义Annotation类，然后继承自QQuickPaintedItem 然后重写其paint()虚函数，实现绘制功能 其中BaseDraw是绘图的基类，ellipseDraw、me
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值