68 lines
1.0 KiB
ObjectPascal
68 lines
1.0 KiB
ObjectPascal
|
unit Simulator.Manual;
|
||
|
|
|
||
|
|
// #ToDo1 -oMvR: 2-9-2017: configurable speed for full fan power
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
System.Classes,
|
||
|
|
Vcl.Controls,
|
||
|
|
Vcl.ExtCtrls,
|
||
|
|
Vcl.Forms,
|
||
|
|
Vcl.StdCtrls,
|
||
|
|
|
||
|
|
Simulator.Base,
|
||
|
|
Simulator.Registry, Vcl.Samples.Spin, Vcl.ComCtrls;
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TManualFrame = class(TSimulatorBaseFrame)
|
||
|
|
UpdateTimer: TTimer;
|
||
|
|
ValueTrackBar: TTrackBar;
|
||
|
|
|
||
|
|
procedure UpdateTimerTimer(Sender: TObject);
|
||
|
|
public
|
||
|
|
procedure Start; override;
|
||
|
|
procedure Stop; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
uses
|
||
|
|
System.SysUtils;
|
||
|
|
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
|
||
|
|
{ TManualFrame }
|
||
|
|
procedure TManualFrame.UpdateTimerTimer(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Fans.SetAll(ValueTrackBar.Position);
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TManualFrame.Start;
|
||
|
|
begin
|
||
|
|
inherited Start;
|
||
|
|
|
||
|
|
UpdateTimer.Enabled := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TManualFrame.Stop;
|
||
|
|
begin
|
||
|
|
UpdateTimer.Enabled := False;
|
||
|
|
|
||
|
|
inherited Stop;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
initialization
|
||
|
|
RegisterSimulator('Manual', 'Manual fan control',
|
||
|
|
function(AFans: ISimulatorFans): ISimulator
|
||
|
|
begin
|
||
|
|
Result := TSimulatorFrame<TManualFrame>.Create(AFans);
|
||
|
|
end);
|
||
|
|
|
||
|
|
end.
|