Class TfrmBoids (unit ufrmBoids)

Inherits from

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 TfrmBoids.

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


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