zoukankan      html  css  js  c++  java
  • 画动态多边型

    type
      TPtArray = array[0..0] of TPoint;
      PPtArray = ^TPtArray;
    
    procedure DrawDynamicPolyArray(NumPoints : integer;
                                   Canvas : TCanvas);
    var
      p : PPtArray;
      i : integer;
    begin
    {$IFOPT R+}
      {$DEFINE CKRANGE}
      {$R-}
    {$ENDIF}
      GetMem(p, sizeof(TPoint) * NumPoints);
      Randomize;
      for i := 0 to (NumPoints -1) do begin
        p^[i].x := Random(Form1.Width);
        p^[i].y := Random(Form1.Height);
      end;
      Polygon(Canvas.Handle, p, NumPoints);
      FreeMem(p, sizeof(TPoint) * NumPoints);
    {$IFDEF CKRANGE}
      {$UNDEF CKRANGE}
      {$R+}
    {$ENDIF}
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Form1.Canvas.Brush.Color := clWhite;
      Form1.Canvas.FillRect(Rect(0, 0, Form1.Width, Form1.Height));
      Form1.Canvas.Brush.Color := clRed;
      DrawDynamicPolyArray(SpinEdit1.Value,
                           Form1.Canvas);
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      SpinEdit1.MinValue := 2;
      SpinEdit1.MaxValue := 1000;
      SpinEdit1.Value := 100;
    end;
    
    end.
  • 相关阅读:
    SQL中的数字格式化 (收藏)
    read about用法
    run into用法
    shoot for用法
    take off用法
    英语成语
    bring up用法
    satisfy with用法
    spend用法
    Linux环境进程间通信:共享内存
  • 原文地址:https://www.cnblogs.com/yzryc/p/6374037.html
Copyright © 2011-2022 走看看