unit2.pas

3d台球源码

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin,pool;

type
  Tsettings = class(TForm)
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    SpinEdit5: TSpinEdit;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure SpinEdit5Change(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure SpinEdit3Change(Sender: TObject);
    procedure SpinEdit4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  settings: Tsettings;

implementation

uses Main;

{$R *.DFM}

procedure Tsettings.Button2Click(Sender: TObject);
begin
 mainform.dxtimer.enabled:=true;
 close;
end;

procedure Tsettings.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 mainform.dxtimer.enabled:=true;
end;

procedure Tsettings.FormActivate(Sender: TObject);
begin
 mainform.dxtimer.enabled:=false;
 spinedit5.maxvalue:=mainform.mtab.balllist.count;
 spinedit5.value:=1;
 spinedit5change(self);
 mainform.DXTimerTimer(self,0);
end;

procedure Tsettings.SpinEdit5Change(Sender: TObject);
 var z:tball;
begin
  if spinedit5.value>0 then begin
  z:=(mainform.mtab.balllist[spinedit5.Value-1]);
  spinedit1.value:=round(z.xpos);
  spinedit2.value:=round(z.ypos);
  spinedit3.value:=round(z.xv*100);
  spinedit4.value:=round(z.yv*100);
   end;
  end;

procedure Tsettings.SpinEdit1Change(Sender: TObject);
var z:tball;
begin

  z:=(mainform.mtab.balllist[spinedit5.Value-1]);
  z.xpos:=spinedit1.value;
 
  mainform.DXTimerTimer(self,0);
  end;

procedure Tsettings.SpinEdit2Change(Sender: TObject);
var z:tball;
begin

  z:=(mainform.mtab.balllist[spinedit5.Value-1]);

  z.ypos:=spinedit2.value;

  mainform.DXTimerTimer(self,0);
  end;

procedure Tsettings.SpinEdit3Change(Sender: TObject);
var z:tball;
begin

  z:=(mainform.mtab.balllist[spinedit5.Value-1]);

  z.xv:=spinedit3.value/100;

  mainform.DXTimerTimer(self,0);
end;

procedure Tsettings.SpinEdit4Change(Sender: TObject);
var z:tball;
begin

  z:=(mainform.mtab.balllist[spinedit5.Value-1]);
  z.yv:=spinedit4.value/100;
  mainform.DXTimerTimer(self,0);
end;
procedure Tsettings.Button1Click(Sender: TObject);
begin
 mainform.mtab.addball;
// mainform.mtab.repaint;
// spinedit5.maxvalue:=spinedit5.maxvalue+1;
 //spinedit5.value:=spinedit5.maxvalue;
 formactivate(self);
end;

procedure Tsettings.Button3Click(Sender: TObject);
begin

 if  mainform.mtab.balllist.count>1 then
  mainform.mtab.deleteball(spinedit5.value-1);
  formactivate(self); 
end;

end.