标签：begin end Sender Delphi 30 TObject 40 Image1 procedure

unit R30;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TRei30 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    ScrollBar3: TScrollBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    Edit3: TEdit;
    ScrollBar4: TScrollBar;
    Edit4: TEdit;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
    procedure ScrollBar3Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ScrollBar4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Rei30: TRei30;
  St : Byte;        //按钮控制，设置状态控制指示用变量
  XR,YR : Word;
  X,Y,DX,DY,DD,CY: Integer;   //X,Y 坐标用变量，DX,DY 坐标增量(变化量)用变量，
  TR,QTR,DR : Extended;          //DR  弧度的变化量，
  Col : TColor;
  RectD : TRect;



implementation

{$R *.dfm}

procedure TRei30.FormCreate(Sender: TObject);
begin   //设置初始值，

  DD := 10;
  XR := 60;
  YR := 60;
  CY := 1;
  Col := clYellow;
  ScrollBar1.Position := DD;
  ScrollBar2.Position := XR;
  ScrollBar3.Position := YR;
  ScrollBar4.Position := CY;
end;

procedure TRei30.Timer1Timer(Sender: TObject);
begin
  case St of
    0: begin
      RectD := Rect(0,0,Image1.Width,Image1.Height);
      Image1.Canvas.Brush.Color := clBlack;
      Image1.Canvas.FillRect(RectD);   //刷黑
      Edit1.Text := ' ' + IntToStr(DD) + '°'; //显示参数
      Edit2.Text := ' ' + IntToStr(XR);
      Edit3.Text := ' ' + IntToStr(YR);
      Edit4.Text := ' ' + IntToStr(CY);

      X := Image1.Width div 2;
      Y := 0;
      TR := - Pi / 2;
      DR := DD * Pi / 180;
      St := 1;
    end;

    1: begin
      QTR := TR;
      TR := TR + DR;
      DX := Round(XR * (Cos(TR) - Cos(QTR)));   //核心计算
      DY := Round(YR * (Sin(TR) - Sin(QTR)));
      X := X + DX;
      Y := Y + DY + CY;
      Image1.Canvas.Pixels[X,Y] := clRed;         //4点显示
      Image1.Canvas.Pixels[X + 1,Y] := clYellow;
      Image1.Canvas.Pixels[X,Y + 1] := clBlue;
      Image1.Canvas.Pixels[X + 1,Y + 1] := clGreen;
      if (Y > Image1.Height  + YR * 2) or (Y < -YR * 2) then
        begin
          St := 2;
          Edit1.Text := '绘图完成';
        end;


    end;
  end;
end;

procedure TRei30.ScrollBar1Change(Sender: TObject);
begin
  DD := ScrollBar1.Position;
  Edit1.Text := ' ' + IntToStr(DD) + '°';
  DR := Pi * DD / 180;                      //应该去掉这行，否则在绘图中会即时的改变
end;                                            //似乎又不行，在状态1中，W,DY值都被在计算
                                                // 所以这里只有同步重新计算DR值
procedure TRei30.ScrollBar2Change(Sender: TObject);
begin
   XR := ScrollBar2.Position;
   Edit2.Text := ' ' + IntToStr(XR);
end;

procedure TRei30.ScrollBar3Change(Sender: TObject);
begin
  YR := ScrollBar3.Position;
  Edit3.Text := ' ' + IntToStr(YR);

end;

procedure TRei30.ScrollBar4Change(Sender: TObject);
begin
  CY := ScrollBar4.Position;
  Edit4.Text := ' ' + IntToStr(CY);

end;

procedure TRei30.Button1Click(Sender: TObject);
begin
  St := 0;
end;



end.

1，程序结构同前例

2，是对三角函数的应用，套用公式，不明白。

标签：begin,end,Sender,Delphi,30,TObject,40,Image1,procedure
来源： https://www.cnblogs.com/D7mir/p/16698137.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。