• WinAPI: MoveToEx 与 LineTo 绘制直线


    //声明:
    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.
    //效果图:

  • 相关阅读:
    分析 ajax 请求并抓取 “今日头条的街拍图”
    requests + 正则表达式 获取 ‘猫眼电影top100’。
    爬虫基础(暂缓更新)
    Git 操作笔记:分布式版本控制系统
    python补充
    python基础
    8.最佳电影聚类分析
    文本分析 笔记
    7.文档聚类
    5.词项相似度分析
  • 原文地址:https://www.cnblogs.com/del/p/1066300.html
Copyright © 2020-2023  润新知