| Class TfrmBoids (unit ufrmBoids) |
TForm
| Constructors |
| Functions |
procedure About1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Causesometurmoil1Click(Sender: TObject);
procedure cboBoidStylesChange(Sender: TObject);
procedure chkBlankingClick(Sender: TObject);
procedure chkDrawClick(Sender: TObject);
procedure chkObstacleClick(Sender: TObject);
procedure Clearallobstacles1Click(Sender: TObject);
procedure cmdAdjustBoidCountClick(Sender: TObject);
procedure cmdEraseStyleClick(Sender: TObject);
procedure cmdSaveSettingsClick(Sender: TObject);
procedure cmdSettingsClick(Sender: TObject);
procedure cmdStartClick(Sender: TObject);
procedure cmdStopClick(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormShow(Sender: TObject);
procedure Hideobstacles1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Panel1Click(Sender: TObject);
procedure tbLineLengthChange(Sender: TObject);
procedure tbMaxSpeedChange(Sender: TObject);
procedure tbOptimalDistanceChange(Sender: TObject);
procedure tbSensorRangeChange(Sender: TObject);
procedure tbSpeedChangeChange(Sender: TObject);
procedure tbStayInCenterChange(Sender: TObject);
procedure tbTooCloseChange(Sender: TObject);
procedure tbTurnRateChange(Sender: TObject);
procedure tmrBoidCountTimer(Sender: TObject);
procedure ReadSettingsFromIniToTrackBars;
procedure ReadSettingsFromTrackBars;
procedure SaveSettingsFromTrackBarsToIni;
procedure StartBoidEngine(bDirect : boolean);| Properties |
| Events |
| Variables |
About1 : TMenuItem;
Causesometurmoil1 : TMenuItem;
cboBoidStyles : TComboBox;
chkBlanking : TCheckBox;
chkDraw : TCheckBox;
chkObstacle : TCheckBox;
Clearallobstacles1 : TMenuItem;
cmdAdjustBoidCount : TButton;
cmdEraseStyle : TButton;
cmdSaveSettings : TButton;
cmdSettings : TButton;
cmdTurmoil : TButton;
Exit1 : TMenuItem;
File1 : TMenuItem;
Help1 : TMenuItem;
Hideobstacles1 : TMenuItem;
Image1 : TImage;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
lblBoidsPerSecond : TLabel;
lblFrameCount : TLabel;
MainMenu1 : TMainMenu;
N2 : TMenuItem;
Obstacles1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Startboids1 : TMenuItem;
Stopboids1 : TMenuItem;
tbLineLength : TTrackBar;
tbMaxSpeed : TTrackBar;
tbOptimalDistance : TTrackBar;
tbSensorRange : TTrackBar;
tbSpeedChange : TTrackBar;
tbStayInCenter : TTrackBar;
tbTooClose : TTrackBar;
tbTurnRate : TTrackBar;
tmrBoidCount : TTimer;
txtNumberOfBoids : TEdit;
BoidEngine : TBoidEngine;
bRun : boolean;| Constructors |
| Functions |
procedure About1Click(Sender: TObject);******************************************************************************
procedure Button1Click(Sender: TObject);
procedure Causesometurmoil1Click(Sender: TObject);******************************************************************************
procedure cboBoidStylesChange(Sender: TObject);******************************************************************************
procedure chkBlankingClick(Sender: TObject);******************************************************************************
procedure chkDrawClick(Sender: TObject);******************************************************************************
procedure chkObstacleClick(Sender: TObject);******************************************************************************
procedure Clearallobstacles1Click(Sender: TObject);******************************************************************************
procedure cmdAdjustBoidCountClick(Sender: TObject);******************************************************************************
procedure cmdEraseStyleClick(Sender: TObject);******************************************************************************
procedure cmdSaveSettingsClick(Sender: TObject);******************************************************************************
procedure cmdSettingsClick(Sender: TObject);******************************************************************************
procedure cmdStartClick(Sender: TObject);******************************************************************************
procedure cmdStopClick(Sender: TObject);******************************************************************************
procedure Exit1Click(Sender: TObject);******************************************************************************
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);******************************************************************************
procedure FormShow(Sender: TObject);******************************************************************************
procedure Hideobstacles1Click(Sender: TObject);******************************************************************************
procedure Image1Click(Sender: TObject);******************************************************************************
procedure Image1DblClick(Sender: TObject);******************************************************************************
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);******************************************************************************
procedure Panel1Click(Sender: TObject);
procedure tbLineLengthChange(Sender: TObject);******************************************************************************
procedure tbMaxSpeedChange(Sender: TObject);******************************************************************************
procedure tbOptimalDistanceChange(Sender: TObject);******************************************************************************
procedure tbSensorRangeChange(Sender: TObject);******************************************************************************
procedure tbSpeedChangeChange(Sender: TObject);******************************************************************************
procedure tbStayInCenterChange(Sender: TObject);
procedure tbTooCloseChange(Sender: TObject);******************************************************************************
procedure tbTurnRateChange(Sender: TObject);procedure TfrmBoids.tbReallyCloseChange(Sender: TObject); begin if BoidEngine = nil then exit; BoidEngine.ReallyClose := tbReallyClose.Position; BoidEngine.CopySettingsToAllBoids; end;} //
procedure tmrBoidCountTimer(Sender: TObject);******************************************************************************
procedure ReadSettingsFromIniToTrackBars;******************************************************************************
procedure ReadSettingsFromTrackBars;******************************************************************************
procedure SaveSettingsFromTrackBarsToIni;******************************************************************************
procedure StartBoidEngine(bDirect : boolean);******************************************************************************
| Properties |
| Events |
| Variables |
About1 : TMenuItem;
Causesometurmoil1 : TMenuItem;
cboBoidStyles : TComboBox;
chkBlanking : TCheckBox;
chkDraw : TCheckBox;
chkObstacle : TCheckBox;
Clearallobstacles1 : TMenuItem;
cmdAdjustBoidCount : TButton;
cmdEraseStyle : TButton;
cmdSaveSettings : TButton;
cmdSettings : TButton;
cmdTurmoil : TButton;
Exit1 : TMenuItem;
File1 : TMenuItem;
Help1 : TMenuItem;
Hideobstacles1 : TMenuItem;
Image1 : TImage;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
lblBoidsPerSecond : TLabel;
lblFrameCount : TLabel;
MainMenu1 : TMainMenu;
N2 : TMenuItem;
Obstacles1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Startboids1 : TMenuItem;
Stopboids1 : TMenuItem;
tbLineLength : TTrackBar;
tbMaxSpeed : TTrackBar;
tbOptimalDistance : TTrackBar;
tbSensorRange : TTrackBar;
tbSpeedChange : TTrackBar;
tbStayInCenter : TTrackBar;
tbTooClose : TTrackBar;
tbTurnRate : TTrackBar;
tmrBoidCount : TTimer;
txtNumberOfBoids : TEdit;
BoidEngine : TBoidEngine;
bRun : boolean;Public declarations