zoukankan      html  css  js  c++  java
  • WinAPI: PolylineTo 绘制一组连续线段(更新当前位置)

    //声明:
    PolylineTo(
      DC: HDC;       {设备环境句柄}
      var Points;    {点数组}
      Count: Integer {数组元素个数}
    ): BOOL;
    
    //如果不给 PolylineTo 指定起点, 将默认 0 点位起点 procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..5] of TPoint; begin ps[0].X := 50; ps[0].Y := 50; ps[1].X := 100; ps[1].Y := 50; ps[2].X := 125; ps[2].Y := 75; ps[3].X := 100; ps[3].Y := 100; ps[4].X := 50; ps[4].Y := 100; ps[5].X := 25; ps[5].Y := 75; PolylineTo(Canvas.Handle, ps, 6); end;
    //效果图:

    //给 PolylineTo 指定起点
    procedure TForm1.FormPaint(Sender: TObject);
    var
      ps: array[0..4] of TPoint;
    begin
      MoveToEx(Canvas.Handle, 50,50, nil);
      
      ps[0].X := 100;
      ps[0].Y := 50;
      ps[1].X := 125;
      ps[1].Y := 75;
      ps[2].X := 100;
      ps[2].Y := 100;
      ps[3].X := 50;
      ps[3].Y := 100;
      ps[4].X := 25;
      ps[4].Y := 75;
    
      PolylineTo(Canvas.Handle, ps, 5);
    end; 
    
    //效果图:
    //PolylineTo 更新当前位置
    procedure TForm1.FormPaint(Sender: TObject);
    var
      ps: array[0..4] of TPoint;
    begin
      MoveToEx(Canvas.Handle, 50,50, nil);
      
      ps[0].X := 100;
      ps[0].Y := 50;
      ps[1].X := 125;
      ps[1].Y := 75;
      ps[2].X := 100;
      ps[2].Y := 100;
      ps[3].X := 50;
      ps[3].Y := 100;
      ps[4].X := 25;
      ps[4].Y := 75;
    
      PolylineTo(Canvas.Handle, ps, 5);
    
      {PolylineTo 更新当前位置, 继续画}
      LineTo(Canvas.Handle, 50,50);
    end;
    
    //效果图:

  • 相关阅读:
    bzoj 1208: [HNOI2004]宠物收养所 (Treap)
    Bzoj 2431: [HAOI2009]逆序对数列 (DP)
    Bzoj 1055: [HAOI2008]玩具取名 (区间DP)
    线段树入门详解
    Bzoj 1087: [SCOI2005]互不侵犯King
    Bzoj 2748: [HAOI2012]音量调节 (DP)
    Bzoj 2752 高速公路 (期望,线段树)
    惨淡的模拟赛
    GSS4
    Bzoj 近期题目一句话题解
  • 原文地址:https://www.cnblogs.com/del/p/1066377.html
Copyright © 2011-2022 走看看