Class TfrmBoids (unit ufrmBoids) |
Inherits from
TForm
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);
******************************************************************************
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
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);
******************************************************************************
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