Курсовой проект Задача о трёх телах / Runge / Unit2

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SkinBoxCtrls, SkinCtrls, StdCtrls, Mask, ComCtrls, SkinTabs, ExtCtrls, unit4, unit5,
  jpeg, EasyGraph, DynamicSkinForm, SkinData, spSkinShellCtrls;

type
  TForm2 = class(TForm)
    spSkinPageControl1: TspSkinPageControl;
    spSkinTabSheet1: TspSkinTabSheet;
    spSkinTabSheet4: TspSkinTabSheet;
    Image3: TImage;
    Chk2: TspSkinCheckRadioBox;
    chk3: TspSkinCheckRadioBox;
    chk4: TspSkinCheckRadioBox;
    CHk1: TspSkinCheckRadioBox;
    spSkinCheckRadioBox1: TspSkinCheckRadioBox;
    spSkinCheckRadioBox2: TspSkinCheckRadioBox;
    spSkinCheckRadioBox3: TspSkinCheckRadioBox;
    spSkinEdit12: TspSkinEdit;
    spSkinLabel17: TspSkinLabel;
    EasyGraph4: TEasyGraph;
    spSkinLabel1: TspSkinLabel;
    spSkinLabel3: TspSkinLabel;
    spSkinLabel4: TspSkinLabel;
    spSkinLabel5: TspSkinLabel;
    spSkinLabel6: TspSkinLabel;
    spSkinPanel1: TspSkinPanel;
    spSkinPanel2: TspSkinPanel;
    Image1: TImage;
    lblTime: TspSkinLabel;
    lblX: TspSkinLabel;
    lblY: TspSkinLabel;
    spSkinLabel7: TspSkinLabel;
    spDynamicSkinForm1: TspDynamicSkinForm;
    spSkinData1: TspSkinData;
    spCompressedStoredSkin1: TspCompressedStoredSkin;
    Button1: TspSkinButton;
    spSkinLabel2: TspSkinLabel;
    spSkinNumericEdit1: TspSkinNumericEdit;
    spSkinNumericEdit2: TspSkinNumericEdit;
    spSkinLabel8: TspSkinLabel;
    spSkinLabel9: TspSkinLabel;
    spSkinButton1: TspSkinButton;
    procedure FormCreate(Sender: TObject);
    procedure chk3Click(Sender: TObject);
    procedure spSkinCheckRadioBox3Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1Click(Sender: TObject);
    procedure spSkinEdit12Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
    procedure spSkinButton1Click(Sender: TObject);
    procedure spSkinPanel2MouseLeave(Sender: TObject);
  private
     t: TGraphicsRunge;
//prog: trunge;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses math, password;

{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);
var i: integer;
  p,q: double;
begin
    EasyGraph4.Series[0].Clear;
      for i := 0 to t.RightInd-1 do begin
      p:=t.GetInd(i,1);
      q:=t.GetInd(i,3);
      EasyGraph4.Series[0].Add(p,q);
    end;
end;

procedure TForm2.chk3Click(Sender: TObject);
var i: integer;
begin
  if (sender as TspSkinCheckRadioBox) = chk1 then i:=0
  else if (sender as TspSkinCheckRadioBox) = chk2 then i:=1
  else if (sender as TspSkinCheckRadioBox) = chk3 then i:=2
  else i:=3;
  t.Visible[i]:=(sender as TspSkinCheckRadioBox).Checked;
end;

procedure TForm2.FormCreate(Sender: TObject);
var prog: CRunge;
begin
  if spSkinCheckRadioBox1.Checked then
    prog:=TProg1
  else if spSkinCheckRadioBox2.Checked then
    prog:=TProg2
  else //if spSkinCheckRadioBox3.Checked then
    prog:=TProg3;
  t:=TGraphicsRunge.Assign(Prog);
  t.eps:=strtofloat(spSkinEdit12.Text);
  t.Canvas:=Image1.Canvas;
  t.Size:=Point(Image1.Width, Image1.Height);
  chk1.Checked:=t.Visible[0];
  chk2.Checked:=t.Visible[1];
  chk3.Checked:=t.Visible[2];
  chk4.Checked:=t.Visible[3];
  t.Rect:=SRect(-5,-10,5,10);
  EasyGraph4.Series.add;
  EasyGraph4.Series[0].DrawStyle:=dsPoints;
  EasyGraph4.VisRect:=rect2d(-100,-100,100,100);
end;



procedure TForm2.Image1Click(Sender: TObject);
begin
  t.MouseClick;
end;

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  t.MouseDown(Button, Shift, X, Y);
end;

procedure TForm2.Image1MouseLeave(Sender: TObject);
begin
  lblX.Caption:='-';
  lblY.Caption:='-';
  t.MouseLeave;
end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i: integer;
begin
  lblX.Caption:=floattostrf(X*t.ScaleX+t.Rect.EXa, ffGeneral,round(-Log10(t.eps))+1,round(-Log10(t.eps))+1);
  lblY.Caption:=floattostrf(-Y*t.Scaley+t.Rect.EYB,ffGeneral,round(-Log10(t.eps))+1,round(-Log10(t.eps))+1);
  t.MouseMove(Shift,X,Y);
  if spSkinCheckRadioBox2.Checked then begin
    Image1.Canvas.Pen.Color:=clLime;
    image1.Canvas.MoveTo(0,round((-sin(t.Rect.EXa) + t.rect.eYB)/t.ScaleY));
    for i := 0 to image1.Width do
      image1.Canvas.lineTo(i, round((-sin(i*t.ScaleX+t.Rect.EXa) + t.rect.eYB)/t.ScaleY));
  end else  if spSkinCheckRadioBox3.Checked then begin
    Image1.Canvas.Pen.Color:=clLime;
    image1.Canvas.MoveTo(0,round((-exp(t.Rect.EXa)-1 + t.rect.eYB)/t.ScaleY));
    for i := 0 to image1.Width do
      image1.Canvas.lineTo(i, round((-exp(i*t.ScaleX+t.Rect.EXa) - (1)+ t.rect.eYB)/t.ScaleY));
  end;

end;

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  t.MouseUp(Button, Shift, X,Y);
end;

procedure TForm2.spSkinButton1Click(Sender: TObject);
var xa, xb, ya, yb: double;
begin
  xb:=spSkinNumericEdit1.Value;
  xa:=spSkinNumericEdit2.Value;
  if xa = xb then exit;
  if xb < xa then begin
    ya:=max(xa, 0.5);
    yb:=min(xb, -0.5);
  end else begin
    ya:=min(xa, -0.5);
    yb:=max(xb, 0.5);
  end;

  t.Rect:=SRect(xa, ya, xb, yb);
end;

procedure TForm2.spSkinCheckRadioBox3Click(Sender: TObject);
begin
  if t <> nil then
    t.Free;
  FormCreate(self);
end;

procedure TForm2.spSkinEdit12Change(Sender: TObject);
begin
  try
    t.eps:= strtofloat(spSkinEdit12.Text);
    t.ReCreateArr;
    t.Redraw;
  except

  end;
end;

procedure TForm2.spSkinPanel2MouseLeave(Sender: TObject);
begin

//  Mouse.CursorPos.X
  end;

end.