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 recognition lights (just in time for release 0.6)

Browse Source
This commit is contained in:
Mark van Renswoude 2013-01-28 22:37:27 +00:00
parent 0e53ac0cf8
commit cf1183a6ff
4 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
G940LEDControl/Forms/MainFrm.dfm
View File

@ -442,6 +442,10 @@ object MainForm: TMainForm
object tsAbout: TTabSheet object tsAbout: TTabSheet
Caption = 'About' Caption = 'About'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lblVersionCaption: TLabel object lblVersionCaption: TLabel
Left = 16 Left = 16
Top = 67 Top = 67

4
G940LEDControl/G940LEDControl.dproj
View File

@ -81,8 +81,8 @@
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_MinorVer>5</VerInfo_MinorVer> <VerInfo_MinorVer>6</VerInfo_MinorVer>
<VerInfo_Keys>CompanyName=X²Software;FileDescription=G940 LED Control;FileVersion=0.5.0.0;InternalName=;LegalCopyright=© 2011 X²Software;LegalTrademarks=;OriginalFilename=G940LEDControl.exe;ProductName=G940 LED Control;ProductVersion=0.5;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=X²Software;FileDescription=G940 LED Control;FileVersion=0.6.0.0;InternalName=;LegalCopyright=© 2011 X²Software;LegalTrademarks=;OriginalFilename=G940LEDControl.exe;ProductName=G940 LED Control;ProductVersion=0.6;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
</PropertyGroup> </PropertyGroup>

BIN
G940LEDControl/G940LEDControl.res
View File

Binary file not shown.

7
G940LEDControl/Units/FSXLEDStateProvider.pas
View File

@ -46,6 +46,7 @@ const
FUNCTION_FSX_AUTOPILOT_NAV = FUNCTION_PROVIDER_OFFSET + 24; FUNCTION_FSX_AUTOPILOT_NAV = FUNCTION_PROVIDER_OFFSET + 24;
FUNCTION_FSX_TAXILIGHTS = FUNCTION_PROVIDER_OFFSET + 25; FUNCTION_FSX_TAXILIGHTS = FUNCTION_PROVIDER_OFFSET + 25;
FUNCTION_FSX_RECOGNITIONLIGHTS = FUNCTION_PROVIDER_OFFSET + 26;
type type
@ -124,6 +125,7 @@ const
FSX_LIGHTON_TAXI = $0008; FSX_LIGHTON_TAXI = $0008;
FSX_LIGHTON_STROBE = $0010; FSX_LIGHTON_STROBE = $0010;
FSX_LIGHTON_PANEL = $0020; FSX_LIGHTON_PANEL = $0020;
FSX_LIGHTON_RECOGNITION = $0040;
FSX_LIGHTON_CABIN = $0200; FSX_LIGHTON_CABIN = $0200;
@ -163,6 +165,7 @@ begin
AConsumer.AddFunction(FUNCTION_FSX_NAVLIGHTS, 'Nav lights'); AConsumer.AddFunction(FUNCTION_FSX_NAVLIGHTS, 'Nav lights');
AConsumer.AddFunction(FUNCTION_FSX_PARKINGBRAKE, 'Parking brake'); AConsumer.AddFunction(FUNCTION_FSX_PARKINGBRAKE, 'Parking brake');
AConsumer.AddFunction(FUNCTION_FSX_PRESSURIZATIONDUMPSWITCH, 'Pressurization dump switch'); AConsumer.AddFunction(FUNCTION_FSX_PRESSURIZATIONDUMPSWITCH, 'Pressurization dump switch');
AConsumer.AddFunction(FUNCTION_FSX_RECOGNITIONLIGHTS, 'Recognition lights');
AConsumer.AddFunction(FUNCTION_FSX_SPOILERS, 'Spoilers (air brake)'); AConsumer.AddFunction(FUNCTION_FSX_SPOILERS, 'Spoilers (air brake)');
AConsumer.AddFunction(FUNCTION_FSX_STROBELIGHTS, 'Strobe lights'); AConsumer.AddFunction(FUNCTION_FSX_STROBELIGHTS, 'Strobe lights');
AConsumer.AddFunction(FUNCTION_FSX_TAILHOOK, 'Tail hook'); AConsumer.AddFunction(FUNCTION_FSX_TAILHOOK, 'Tail hook');
@ -267,7 +270,8 @@ begin
{ Lights } { Lights }
if Consumer.FunctionMap.HasFunction([FUNCTION_FSX_LANDINGLIGHTS, FUNCTION_FSX_INSTRUMENTLIGHTS, if Consumer.FunctionMap.HasFunction([FUNCTION_FSX_LANDINGLIGHTS, FUNCTION_FSX_INSTRUMENTLIGHTS,
FUNCTION_FSX_STROBELIGHTS, FUNCTION_FSX_NAVLIGHTS, FUNCTION_FSX_STROBELIGHTS, FUNCTION_FSX_NAVLIGHTS,
FUNCTION_FSX_BEACONLIGHTS, FUNCTION_FSX_TAXILIGHTS]) then FUNCTION_FSX_BEACONLIGHTS, FUNCTION_FSX_TAXILIGHTS,
FUNCTION_FSX_RECOGNITIONLIGHTS]) then
begin begin
AddVariable(DEFINITION_LIGHTS, 'LIGHT ON STATES', FSX_UNIT_MASK, SIMCONNECT_DATATYPE_INT32); AddVariable(DEFINITION_LIGHTS, 'LIGHT ON STATES', FSX_UNIT_MASK, SIMCONNECT_DATATYPE_INT32);
AddDefinition(DEFINITION_LIGHTS); AddDefinition(DEFINITION_LIGHTS);
@ -458,6 +462,7 @@ begin
SetFSXLightState(state, FSX_LIGHTON_NAV, FUNCTION_FSX_NAVLIGHTS); SetFSXLightState(state, FSX_LIGHTON_NAV, FUNCTION_FSX_NAVLIGHTS);
SetFSXLightState(state, FSX_LIGHTON_STROBE, FUNCTION_FSX_STROBELIGHTS); SetFSXLightState(state, FSX_LIGHTON_STROBE, FUNCTION_FSX_STROBELIGHTS);
SetFSXLightState(state, FSX_LIGHTON_TAXI, FUNCTION_FSX_TAXILIGHTS); SetFSXLightState(state, FSX_LIGHTON_TAXI, FUNCTION_FSX_TAXILIGHTS);
SetFSXLightState(state, FSX_LIGHTON_RECOGNITION, FUNCTION_FSX_RECOGNITIONLIGHTS);
end; end;