文档章节

WinAPI: MoveToEx 与 LineTo - 绘制直线

涂孟超
 涂孟超
发布于 2014/09/26 15:30
字数 181
阅读 6
收藏 0
//声明:
MoveToEx(
  DC: HDC;         {设备环境句柄}
  p2, p3: Integer; {坐标}
  p4: PPoint       {用于保存 p2、p3 值的 TPoint 结构的指针}
): BOOL;

LineTo(
  DC: HDC;      {设备环境句柄}
  X, Y: Integer {直线终点坐标}
): BOOL;

 
 
 
 
 

 

 

  
//举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); end; var Form1: TForm1; implementation {$R *.dfm} var flag: Boolean; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MoveToEx(Canvas.Handle, X, Y, nil); flag := True; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if flag then LineTo(Canvas.Handle, X, Y); end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin flag := False; end; end.
//效果图:

本文转载自:http://www.cnblogs.com/del/archive/2008/02/09/1066300.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
第二章 2绘制线条简单图形

线条和形状 同Windows其它版本相比,Windows CE提供相当少的功能的领域之一就是基本线条绘制和形状绘制功能。用来创建复杂环形的Chord, Arc, 和Pie函数被去掉了。大部分使用"当前点[current ...

技术小胖子
2017/11/08
0
0
C语言编程新手基础入门学习,用C语言来教大家撩妹子啦,速度来!

C语言经典小程序 用vs,vc都可以正常运行 #include #include #include // 获取控制台窗口句柄 HWND GetConsoleHwnd(void) { #define MY_BUFSIZE 1024 // Buffer size for console window ti......

小辰GG
2017/12/20
0
0
C语言经典小程序,用C语言来教大家撩妹子啦,速度来!

C语言经典小程序 用vs,vc都可以正常运行 #include #include #include // 获取控制台窗口句柄 HWND GetConsoleHwnd(void) { #define MY_BUFSIZE 1024 // Buffer size for console window ti......

小辰带你看世界
2018/01/04
0
0
HTML5新特性总结

一、HTML5 中的一些有趣的新特性: 用于绘画的 canvas 元素 用于媒介回放的 video 和 audio 元素 对本地离线存储的更好的支持 新的特殊内容元素,比如 article、footer、header、nav、secti...

黄金林
2016/12/21
16
0
一个绘制虚线的非常规函数(常规方法,打印机上绘制不出虚线)

昨天碰到一个灰常的,郁闷之极的问题!在打印机上,竟然使用Delphi的常规方式绘制虚线的时候,竟然显示的始终是实线。 我们常规绘制虚线的方法很简单的,就是指定Canvas的PenStyle为虚线模式...

技术小美
2017/11/19
0
0

没有更多内容

加载失败,请刷新页面

加载更多

MySQL左连接问题,右表做筛选,左表列依然在

两张表,一张user表,一张user_log表 CREATE TABLE `user` ( `id` int(11) NOT NULL AUTO_INCREMENT, `name` varchar(20) DEFAULT NULL, PRIMARY KEY (`id`)) ENGINE=InnoDB DEFA......

bengozhong
5分钟前
0
0
重新开始学Java——多线程基础

多线程 进程 主流计算机操作系统都支持同时运行多个任务 , 每个任务通常就是一个程序 , 每个运行中的程序就是一个进程或者多个进程 。 进程的特点 独立性 进程是系统中独立存在的实体 可以...

大家都是低调来的
6分钟前
1
0
注解在Java中是如何工作的?

> 来一点咖啡,准备好进入注解的世界。 注解一直是 Java 的一个非常重要的部分,它从 J2SE 5.0 开始就已经存在了。在我们的应用程序代码中,经常看到 @Override 和 @Deprecated 这样的注解。...

liululee
8分钟前
3
0
Docker 容器连接

Docker 容器连接 容器间的链接有两种方法,你选择其一即可 网络端口映射 docker run -d -P docker run -d -p-P :是容器内部端口随机映射到主机的高端口。-p : 是容器内部端口绑定到指定...

测者陈磊
11分钟前
2
0
车载导航应用中基于Sketch UI主题定制方案的实现

1.导读 关于应用的主题定制,相信大家或多或少都有接触,基本上,实现思路可以分为两类: 内置主题(应用内自定义style) 外部加载方式(资源apk形式、压缩资源、插件等) 其实,针对不同的主题...

阿里云官方博客
16分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部