GitHub-Mirror/G940LEDControl
1
0
Fork 0
mirror of synced 2024-11-22 10:03:51 +00:00
Code Issues Projects Releases Wiki Activity

Added taxi lights

Browse Source
This commit is contained in:
Mark van Renswoude 2013-01-27 15:15:07 +00:00
parent 3dd944e41b
commit 0e53ac0cf8
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
G940LEDControl/Units/FSXLEDStateProvider.pas
View File

@ -45,6 +45,8 @@ const
FUNCTION_FSX_AUTOPILOT_ALTITUDE = FUNCTION_PROVIDER_OFFSET + 23;
FUNCTION_FSX_AUTOPILOT_NAV = FUNCTION_PROVIDER_OFFSET + 24;
FUNCTION_FSX_TAXILIGHTS = FUNCTION_PROVIDER_OFFSET + 25;
type
TFSXLEDStateProvider = class(TLEDStateProvider)
@ -119,6 +121,7 @@ const
FSX_LIGHTON_NAV = $0001;
FSX_LIGHTON_BEACON = $0002;
FSX_LIGHTON_LANDING = $0004;
FSX_LIGHTON_TAXI = $0008;
FSX_LIGHTON_STROBE = $0010;
FSX_LIGHTON_PANEL = $0020;
FSX_LIGHTON_CABIN = $0200;
@ -163,6 +166,7 @@ begin
AConsumer.AddFunction(FUNCTION_FSX_SPOILERS, 'Spoilers (air brake)');
AConsumer.AddFunction(FUNCTION_FSX_STROBELIGHTS, 'Strobe lights');
AConsumer.AddFunction(FUNCTION_FSX_TAILHOOK, 'Tail hook');
AConsumer.AddFunction(FUNCTION_FSX_TAXILIGHTS, 'Taxi lights');
end;
@ -263,7 +267,7 @@ begin
{ Lights }
if Consumer.FunctionMap.HasFunction([FUNCTION_FSX_LANDINGLIGHTS, FUNCTION_FSX_INSTRUMENTLIGHTS,
FUNCTION_FSX_STROBELIGHTS, FUNCTION_FSX_NAVLIGHTS,
FUNCTION_FSX_BEACONLIGHTS]) then
FUNCTION_FSX_BEACONLIGHTS, FUNCTION_FSX_TAXILIGHTS]) then
begin
AddVariable(DEFINITION_LIGHTS, 'LIGHT ON STATES', FSX_UNIT_MASK, SIMCONNECT_DATATYPE_INT32);
AddDefinition(DEFINITION_LIGHTS);
@ -453,6 +457,7 @@ begin
SetFSXLightState(state, FSX_LIGHTON_BEACON, FUNCTION_FSX_BEACONLIGHTS);
SetFSXLightState(state, FSX_LIGHTON_NAV, FUNCTION_FSX_NAVLIGHTS);
SetFSXLightState(state, FSX_LIGHTON_STROBE, FUNCTION_FSX_STROBELIGHTS);
SetFSXLightState(state, FSX_LIGHTON_TAXI, FUNCTION_FSX_TAXILIGHTS);
end;