GitHub-Mirror
/
G940LEDControl
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Assignment check

This commit is contained in:
Mark van Renswoude 2014-07-02 21:48:36 +00:00
parent 966184fd0a
commit 6aca2ebe1b
2 changed files with 548 additions and 545 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

698
G940LEDControl/Forms/MainFrm.dfm
View File

@ -4,7 +4,7 @@ object MainForm: TMainForm
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'G940 LED Control'
ClientHeight = 504
ClientHeight = 609
ClientWidth = 598
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@ -23,7 +23,7 @@ object MainForm: TMainForm
Left = 8
Top = 60
Width = 582
Height = 436
Height = 541
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
@ -31,100 +31,102 @@ object MainForm: TMainForm
ActivePage = tsButtons
Align = alClient
TabOrder = 0
ExplicitHeight = 436
object tsButtons: TTabSheet
Caption = ' Button assignment '
ExplicitHeight = 408
inline bafP1: TButtonAssignmentFrame
Left = 267
Top = 30
Top = 134
Width = 261
Height = 41
TabOrder = 0
ExplicitLeft = 267
ExplicitTop = 30
ExplicitTop = 134
inherited btnConfiguration: TButton
Caption = 'P&1'
end
end
inline bafP2: TButtonAssignmentFrame
Left = 267
Top = 77
Top = 181
Width = 261
Height = 41
TabOrder = 1
ExplicitLeft = 267
ExplicitTop = 77
ExplicitTop = 181
inherited btnConfiguration: TButton
Caption = 'P&2'
end
end
inline bafP3: TButtonAssignmentFrame
Left = 267
Top = 124
Top = 228
Width = 261
Height = 41
TabOrder = 2
ExplicitLeft = 267
ExplicitTop = 124
ExplicitTop = 228
inherited btnConfiguration: TButton
Caption = 'P&3'
end
end
inline bafP4: TButtonAssignmentFrame
Left = 267
Top = 171
Top = 275
Width = 261
Height = 41
TabOrder = 3
ExplicitLeft = 267
ExplicitTop = 171
ExplicitTop = 275
inherited btnConfiguration: TButton
Caption = 'P&4'
end
end
inline bafP5: TButtonAssignmentFrame
Left = 267
Top = 218
Top = 322
Width = 261
Height = 41
TabOrder = 4
ExplicitLeft = 267
ExplicitTop = 218
ExplicitTop = 322
inherited btnConfiguration: TButton
Caption = 'P&5'
end
end
inline bafP6: TButtonAssignmentFrame
Left = 267
Top = 265
Top = 369
Width = 261
Height = 41
TabOrder = 5
ExplicitLeft = 267
ExplicitTop = 265
ExplicitTop = 369
inherited btnConfiguration: TButton
Caption = 'P&6'
end
end
inline bafP7: TButtonAssignmentFrame
Left = 267
Top = 312
Top = 416
Width = 261
Height = 41
TabOrder = 6
ExplicitLeft = 267
ExplicitTop = 312
ExplicitTop = 416
inherited btnConfiguration: TButton
Caption = 'P&7'
end
end
inline bafP8: TButtonAssignmentFrame
Left = 267
Top = 359
Top = 463
Width = 261
Height = 41
TabOrder = 7
ExplicitLeft = 267
ExplicitTop = 359
ExplicitTop = 463
inherited btnConfiguration: TButton
Caption = 'P&8'
end
@ -134,7 +136,7 @@ object MainForm: TMainForm
Left = 8
Top = 8
Width = 245
Height = 392
Height = 497
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
@ -142,11 +144,12 @@ object MainForm: TMainForm
Align = alLeft
BevelOuter = bvNone
TabOrder = 8
ExplicitHeight = 392
object vstProfile: TVirtualStringTree
Left = 0
Top = 22
Width = 245
Height = 370
Height = 475
Align = alClient
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
@ -157,6 +160,7 @@ object MainForm: TMainForm
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
PopupMenu = pmnProfiles
TabOrder = 0
ExplicitHeight = 370
Columns = <
item
Position = 0
@ -224,337 +228,14 @@ object MainForm: TMainForm
end
end
end
end
object tsConfiguration: TTabSheet
Caption = ' Configuration '
ImageIndex = 2
object lblProfileSwitching: TLabel
Left = 16
Top = 16
Width = 92
Height = 13
Caption = 'Profile switching'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object bvlProfileSwitching: TBevel
Left = 229
Top = 23
Width = 337
Height = 13
Shape = bsTopLine
end
object cbProfileMenu: TCheckBox
Left = 16
Top = 41
Width = 409
Height = 17
Caption = ' Add profile selection to FSX "Add-ons" menu'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = cbProfileMenuClick
end
object cbProfileMenuCascaded: TCheckBox
Left = 36
Top = 64
Width = 389
Height = 17
Caption = ' Cascaded menu (profiles in "G940 Profile" submenu)'
TabOrder = 1
OnClick = cbProfileMenuCascadedClick
end
end
object tsAbout: TTabSheet
Caption = 'About'
ImageIndex = 1
object lblVersionCaption: TLabel
Left = 16
Top = 67
Width = 39
Height = 13
Caption = 'Version:'
end
object lblVersion: TLabel
Left = 75
Top = 67
Width = 45
Height = 13
Caption = 'lblVersion'
end
object lblProductName: TLabel
Left = 16
Top = 16
Width = 96
Height = 13
Caption = 'G940 LED Control'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblCopyright: TLabel
Left = 16
Top = 35
Width = 95
Height = 13
Caption = #169' 2011 X'#178'Software'
end
object lblWebsite: TLabel
Left = 16
Top = 112
Width = 43
Height = 13
Caption = 'Website:'
end
object lblEmail: TLabel
Left = 16
Top = 135
Width = 32
Height = 13
Caption = 'E-mail:'
end
object lblProxy: TLabel
Left = 36
Top = 368
Width = 246
Height = 13
Caption = 'This might not work if you'#39're behind a proxy, sorry!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblWebsiteLink: TLinkLabel
Left = 75
Top = 111
Width = 143
Height = 17
Caption =
'<a href="http://g940.x2software.net/">http://g940.x2software.net' +
'/</a>'
TabOrder = 0
OnLinkClick = lblLinkLinkClick
end
object lblEmailLink: TLinkLabel
Left = 75
Top = 134
Width = 126
Height = 17
Caption =
'<a href="mailto:support@x2software.net">support@x2software.net</' +
'a>'
TabOrder = 1
OnLinkClick = lblLinkLinkClick
end
object cbCheckUpdates: TCheckBox
Left = 16
Top = 344
Width = 305
Height = 17
Caption = ' Automatically check for &updates'
TabOrder = 2
OnClick = cbCheckUpdatesClick
end
object btnCheckUpdates: TButton
Left = 461
Top = 340
Width = 83
Height = 25
Caption = '&Check now'
TabOrder = 3
OnClick = btnCheckUpdatesClick
end
end
end
object pnlState: TPanel
AlignWithMargins = True
Left = 3
Top = 3
Width = 592
Height = 46
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object pnlFSX: TPanel
AlignWithMargins = True
Left = 365
Top = 3
Width = 224
Height = 40
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object imgFSXStateNotConnected: TImage
Left = 4
Top = 4
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200806000000737A7AF40000001974455874536F6674776172650041646F62
6520496D616765526561647971C9653C000005774944415478DAC597C74B6C59
10C64F9B737A9815DA8839A388115C28032266915988CE6660FE9199EDB8706F
C4D1850CA2A8288A2898338AA298033EF3336B4F7DA5E77A5B6DB5DF660E1CEE
EDDBB74FFD4ED55755A7353A9D4EFC9F4303008D46A33C282E2E76373535B536
333313262626FC9DFC5EFDDE47436E0A57CCC7C747F1F0F08079DEDCDCFC5DFD
9E02505A5AEA78727252ECECECEC636969C9CF2480BC1A33A461F5F5EAEA4A77
7676B6E2E2E2D2DAD0D070AD07909D9DFD5B4040808F56AB153E3E3EC2C2C242
D9BDDA0B3FE301CCDBDB5BB1B5B525565757C5FAFAFA7C4747C73F0A40414181
3BEDFAF798981891989868D0A8B121C0FBD8C8DDDD9DB8BFBFE7E7232323988F
E6E6E67F3535355D33406161A1D6DEDEBE22232343F8FAFAEAC55E6DD41800D2
91080B0B131452717979294647471962737353747777E39DEAC6C6C6430620E1
31406666A6F0F0F07803606C0820E0F0F070E1E4E4A400F5F7F7731876777745
5757171E57D7D7D73F0194949430404A4A8AF0F2F262B7595959899B9B1B1690
3100F86D545494A0F594671473B1B4B4C46B6D6F6F8BDEDE5EAC575D5757F704
4019C000494949C2DFDF5F242424080707074E9DF3F37341CAE5EBE9E929EFC2
50ED00747474B4B0B5B5559EEDEDED89E9E969FE0DD6DBD9D9110303031C0205
A0ACAC4C4B062BE2E3E35984212121BCD8EB5D630710D4F1F131C715D78B8B0B
7E6663632362636385B5B5B5F23EA5B5127B590B00303C3C8CCFD5B5B5B52F00
8E8E8E15701D42400A156E6E6E9C8E521386C4F69CDF1C77D40F39E0B5B1B131
0E230C030020D000A0E8D95B808888083688C5A062188627BCBDBD393BE0DAAF
68E1F0F0504C4D4D291A820D18070800262626DE07080D0D6500189710EA4A48
158C61E0194320070707627C7C9C8DBD2AC30C2135F1068052A622282848B8BB
BB2BC6E57C5D8AE10D84EB3D0800A0D8C0B09CD238E6FEFEBE989B9BC3BDBE08
01E0E7E7A700A821A406A4417C4E4F4F17E4B53700D003F25C6D5CC61F6205C0
E2E2E2FB00308E459182883DC408636A0FE01E9902B11A126667672767897AF7
00432A2373500DDF0580F26118C5048AC60484DA1B308E8605202CBEBCBC2C82
8383F53265707050ACADADB161D40D881113F7D7D7D75F07901E9061409141AE
C338DC89F28A0E87D0A5A5A529109393932C44E901BCFB2900B2002130040081
C2088C63319453C4530E9471BC8381546B6F6FFF10809EBDF482CF0002030305
1A15EE115B7433C4523D90BE3939397C0F4394624AFABD06D8D8D8600FE801A0
1463113A98700B45DC2500F21E5E4075EBE9E9E1EB7B83CE152C60ACD9DADA2A
8E8E8EBE0680662401D090D013E00DB5B0D088A4BA0D0DFC0EF501030DE739DD
18408A510D40C7B297760C0018453341083C3D3D051DD178413B3B3B313F3FCF
4DE4A381142E2A2A629D2C2C2C30C47B1E407B46257C73208107A406301182E4
E4646ECFB3B3B39F0260E4E5E5B1F720508441ED017508004047B243BD23995A
84302EBB627979B9989999114343439F024446468AD4D454365C5353C3460120
21641600808EE84F00F9F9F90CE0EAEAAAE701D9942A2B2BF9348B02F3D9C0EF
ABAAAAB8E1F4F5F5293D00531624D40E00B4B4B43C01E4E6E6B206D0EDD4BB97
15302E2E8EC5B7B2B2F22980AC0908973C0B604A4FE08A8645DFFDDDD6D6F69D
01B2B2B2BE11C01FD4EF35EA562CA7B187520CD98AD5FD40C250463D5028FEA4
7A72CB00546235B4E35F290401A09667007523FA993F261240FDEF08058E0EA6
13B4C97FE960A263003A649850A7FA4622FC853CA125A38A3575173466C0A01A
E6F9D9239D1397E850D249E23EA386F50440954F432EB1A47B7BD2803DD1E164
699CCFBFE0188AFF0F0AC5396DE69CDAF3ADDE7F432A4026746F8ACD1A1B6F23
43F340000F246A1D3EFF0712759FFDF03F71A80000000049454E44AE426082}
end
object imgFSXStateConnected: TImage
Left = 4
Top = 4
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200806000000737A7AF4000000097048597300000EC400000EC401952B0E1B
000008124944415478DAC5977B7054D51DC7BFF7B177DF9BCDE649221188840D
2492A243487C2C3E68476D29D599A2A53E3AAD5275A60FFFE91FDAD67F9CB68E
33AD558A05E91F75C4222DA2B49476B4DD100832986002C612A76D90B0E4BDBB
D9DDECEE7DF677CEEE86242E26FCD53373F7DEB97BEEF97DCEF7F738E708F83F
3761FE8B8AF61DCD922405645986284AD4837511F37761EE975691D1F83BFAB1
ACFCDD84699A300C9D2EF3D2E8F1C7078A0254DDBC73693A36F2A6ECAFDB20D8
7D648FFDC500A4FC5D2CC67B8596330C187437F8DD2220331DB5AC44E4AFAE40
CDB648C7A3B13900BEA6674F3856843634D59761ED32179C6E0982457F8B22D9
16721D8BCDBA88A656BE8F65E4402CC1443A65A277701A670646A00F75BD19ED
FDE9D61980D2F52F360B8AB7AFF9861B70FFCD15106DB9893315662BCFC558CC
FCF5DC37C40D9743443A6342CD92021AF087E363E8EDEA3414C5563E7A6C7B2C
07D0FA7248F45487BFFAC5B568A1D98B9200E67E360087B06685C16200A8BF4C
1F6F5AEF476DB9827852C7BEF7C691552DF49E4FE1E0A11390856C70F4E863E7
F890810D3B09A02AFC350268AC7390EA050001DCF382B068EFB3E650047CA9B5
04D565F63C90855D6F8F209535F1F1A7691CF8731714510B0E87BF9D0768FB6D
48745785EFDAD88CE6650E2E9BCF2B2291A6E8B5989A020B8585FD4FCD6517F1
E5363FCA4B6C33EF7A0692F86777028669E1CC600687FFCE007402F856016037
77C11DB7AC41FB6A27B6DE164065A90D9A6E612CA66124AA632CAE2132AE619A
6434CDE2243E9784CDED2528F55E367E8E667CA82B46C6019DBEEBFB4F16EFBE
F73E6C821A1CE978A400F02A01D4846F696BC44377FA70FB3A1FBC349830CFE9
CC7046353134AA6272CAC0D0988AF1B8C1DFF93D12EE0DF9E173CB33FD2F4DA8
78E31F516435529226A3190C4045E7D15390580C743C9403286DDB13927CB5E1
D61B1BD07CAD02874D44439D82B5F52EACBAC601492A1E013CB7498CA9940E85
BE713B2EA7C96854C5BE700C094A3F9DFAE99A059520CE7EAAE2FD63DD145B99
E058C7837980F6DF85244F6D78DD1756A2E95A1B6CB2489700990C7B9D228138
D052EF44C0277F469562EDBF97B278AB33CE83CE20E306D5225537B94BCF0EAA
E839D9531CA0B979255613804286D9251388C4B281152232BCAC4AC6F52B1C04
E4BC22C8274359ECEB8843D7993ACCB8C59F5523A740FF7915677A7A28B5B3C1
F18E6FCE06B8261C0CD623B89400949C028A4DE0F92C3100F1722AAE5B69C7E6
365F51884F2E66F1DABB711E2F2CEA59E06979F9558A958F2F6838D7779AFC97
094ECC075876DD0A342E5560B793719A3D73814D2A005CAEDB32A9F2E4E600AA
03B6CF004CA50CFCEC8D711EF50C4033732AB040CCE60106FB3FA4882680A3F3
00BC55CB515B21A3DA2FA1C42DC24E81C514281426BE3CD1F38377F8D0B4DC71
C5C07C6EEF3826E239FFEBCC38F93F963431126399A32139D4474B442638391F
C053B91C5E5A845831712B123C2E114E52C34EAEB0B18B201EBED38BD6602E06
D8E01D7D296CBCDE3D27535EF94B0C5D1F65C8B085695A079254D05234FB74C6
E00AA52E2E02C045000EBACBF96C60F7FBDA5DF8FAAD1E6E9C49FAAB8371F4FC
5BC54D8D763CF99512AE0E6BFB3B93D81B4E72E935EAC7EAC422006AC39E8A15
F07A8A03DCBED6C18D30E3A9B481170EC4D07F419F99F5E3777B4909177FFEE8
7C16CFFC3EFA3900BDB4541340E74C1A5221721340657D518050B3033FBCD7CF
17A768C2C0CFF74731386ACCF13DAB1F3F7E20C09FD394FFDB9E1FE52E2A0A30
F42129909D05C02A21956277E57578FA1B65A8ABB471BFB320B451656DA142C4
54189ED4F18B3FC61099348A06E0AFB797A1AA54E681F8BD9DE3383FA253F199
0540CA4D4D13C085D3D48701144AF186DD548A6BC2AE8A9578645309EEBFCD47
25D8CEA3BFD08627353CFB7A0C1309F38A1570DB4637B6B47BF8F3CBEFC4F0B7
EE3434329CD17200D304902080E9A16E52400D4E1E7BB800B02B2479ABC38EF2
551484325F8ED7D4D9716B93135B6EF2A08C4AF0E15329EC3E92F8DC125C1B90
F0D213E53C4E8E7C90C24B6FC7732EA04294CA92617241825C908E7C4031A006
A3C7F3CBB1BFF595904C1B12A5BC91528F0148947E221C548C1EBDDB87074891
432793D87D38B1E0BEF485EF04D040EA9DBB90C5F77F33CE6B000348AB24FD34
2991D6908D9C2205B460B42BBF21F1AFDF41315019B60556C3E950E0A6FCB753
39E6AB62AD823D4F55E160570ABB0EC7B150DBD2EEC6F67BFCDCF7773D13E101
99290422D5836C3A03F51201587A307A22BF25F3DFF822015485E5400364C53D
A3002B3EAC24EF7F7A098EF7A7B1F3D0C2003E82FFD34F96E0C0B1247EF9568C
AF822A03C8B2A24467032D0575F8347741ECE41339005FCBF321D9571D964B96
43905D906C0E329E5F9629FAB76EF4F2F40B9FC92C08C0DA77EFF161CF91295E
01355A14748D4168B42BCED08E39096D7C809E93ABE2DD4F0D70006FE38F1A24
F7927F89AE0A41A03DB9202AFC62FB7341620B4EFE847435DBE2FCC1C4A21311
4C95CD985E6BFC6E242EAAA63A5596E87F2EC94774D6DC2742741DB1F91B3699
6A32B7CC8A32372C08855391781507A3C2B18C00D8E9888E6630753AA0581015
0FD491D3AF0A8AE3B1F4D05E8B0F69F3B448E6F4708354B26687E45C12A2A54F
E40315CE857C672C2ED27A9E814E43B95DB48999EDB4A9EB4672E81D3D71F607
B26FD54535DE65720049AE132C7DCA473D6A04D1552B88F6001B220731F3931F
7901CBF3552A9CD30416F89951CBCA4428D022A635999CD35D14A88A5826399E
0E2D10AFE61CB27855F81656D0C8A5AA694DF092FA3F8CC8125D22B18C700000
000049454E44AE426082}
Visible = False
end
object lblFSX: TLabel
Left = 42
Top = 4
Width = 146
Height = 19
Caption = 'Flight Simulator X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblFSXState: TLabel
Left = 42
Top = 23
Width = 70
Height = 13
Caption = 'Not connected'
end
end
object pnlG940: TPanel
AlignWithMargins = True
Left = 3
Top = 3
Width = 356
Left = 267
Top = 26
Width = 205
Height = 40
Align = alClient
BevelOuter = bvNone
TabOrder = 1
TabOrder = 9
object imgStateFound: TImage
Left = 4
Top = 4
@ -907,6 +588,327 @@ object MainForm: TMainForm
Caption = 'Searching...'
end
end
object pnlFSX: TPanel
AlignWithMargins = True
Left = 267
Top = 75
Width = 221
Height = 40
BevelOuter = bvNone
TabOrder = 10
object imgFSXStateNotConnected: TImage
Left = 4
Top = 4
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200806000000737A7AF40000001974455874536F6674776172650041646F62
6520496D616765526561647971C9653C000005774944415478DAC597C74B6C59
10C64F9B737A9815DA8839A388115C28032266915988CE6660FE9199EDB8706F
C4D1850CA2A8288A2898338AA298033EF3336B4F7DA5E77A5B6DB5DF660E1CEE
EDDBB74FFD4ED55755A7353A9D4EFC9F4303008D46A33C282E2E76373535B536
333313262626FC9DFC5EFDDE47436E0A57CCC7C747F1F0F08079DEDCDCFC5DFD
9E02505A5AEA78727252ECECECEC636969C9CF2480BC1A33A461F5F5EAEA4A77
7676B6E2E2E2D2DAD0D070AD07909D9DFD5B4040808F56AB153E3E3EC2C2C242
D9BDDA0B3FE301CCDBDB5BB1B5B525565757C5FAFAFA7C4747C73F0A40414181
3BEDFAF798981891989868D0A8B121C0FBD8C8DDDD9DB8BFBFE7E7232323988F
E6E6E67F3535355D33406161A1D6DEDEBE22232343F8FAFAEAC55E6DD41800D2
91080B0B131452717979294647471962737353747777E39DEAC6C6C6430620E1
31406666A6F0F0F07803606C0820E0F0F070E1E4E4A400F5F7F7731876777745
5757171E57D7D7D73F0194949430404A4A8AF0F2F262B7595959899B9B1B1690
3100F86D545494A0F594671473B1B4B4C46B6D6F6F8BDEDE5EAC575D5757F704
4019C000494949C2DFDF5F242424080707074E9DF3F37341CAE5EBE9E929EFC2
50ED00747474B4B0B5B5559EEDEDED89E9E969FE0DD6DBD9D9110303031C0205
A0ACAC4C4B062BE2E3E35984212121BCD8EB5D630710D4F1F131C715D78B8B0B
7E6663632362636385B5B5B5F23EA5B5127B590B00303C3C8CCFD5B5B5B52F00
8E8E8E15701D42400A156E6E6E9C8E521386C4F69CDF1C77D40F39E0B5B1B131
0E230C030020D000A0E8D95B808888083688C5A062188627BCBDBD393BE0DAAF
68E1F0F0504C4D4D291A820D18070800262626DE07080D0D6500189710EA4A48
158C61E0194320070707627C7C9C8DBD2AC30C2135F1068052A622282848B8BB
BB2BC6E57C5D8AE10D84EB3D0800A0D8C0B09CD238E6FEFEBE989B9BC3BDBE08
01E0E7E7A700A821A406A4417C4E4F4F17E4B53700D003F25C6D5CC61F6205C0
E2E2E2FB00308E459182883DC408636A0FE01E9902B11A126667672767897AF7
00432A2373500DDF0580F26118C5048AC60484DA1B308E8605202CBEBCBC2C82
8383F53265707050ACADADB161D40D881113F7D7D7D75F07901E9061409141AE
C338DC89F28A0E87D0A5A5A529109393932C44E901BCFB2900B2002130040081
C2088C63319453C4530E9471BC8381546B6F6FFF10809EBDF482CF0002030305
1A15EE115B7433C4523D90BE3939397C0F4394624AFABD06D8D8D8600FE801A0
1463113A98700B45DC2500F21E5E4075EBE9E9E1EB7B83CE152C60ACD9DADA2A
8E8E8EBE0680662401D090D013E00DB5B0D088A4BA0D0DFC0EF501030DE739DD
18408A510D40C7B297760C0018453341083C3D3D051DD178413B3B3B313F3FCF
4DE4A381142E2A2A629D2C2C2C30C47B1E407B46257C73208107A406301182E4
E4646ECFB3B3B39F0260E4E5E5B1F720508441ED017508004047B243BD23995A
84302EBB627979B9989999114343439F024446468AD4D454365C5353C3460120
21641600808EE84F00F9F9F90CE0EAEAAAE701D9942A2B2BF9348B02F3D9C0EF
ABAAAAB8E1F4F5F5293D00531624D40E00B4B4B43C01E4E6E6B206D0EDD4BB97
15302E2E8EC5B7B2B2F22980AC0908973C0B604A4FE08A8645DFFDDDD6D6F69D
01B2B2B2BE11C01FD4EF35EA562CA7B187520CD98AD5FD40C250463D5028FEA4
7A72CB00546235B4E35F290401A09667007523FA993F261240FDEF08058E0EA6
13B4C97FE960A263003A649850A7FA4622FC853CA125A38A3575173466C0A01A
E6F9D9239D1397E850D249E23EA386F50440954F432EB1A47B7BD2803DD1E164
699CCFBFE0188AFF0F0AC5396DE69CDAF3ADDE7F432A4026746F8ACD1A1B6F23
43F340000F246A1D3EFF0712759FFDF03F71A80000000049454E44AE426082}
end
object imgFSXStateConnected: TImage
Left = 4
Top = 4
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200806000000737A7AF4000000097048597300000EC400000EC401952B0E1B
000008124944415478DAC5977B7054D51DC7BFF7B177DF9BCDE649221188840D
2492A243487C2C3E68476D29D599A2A53E3AAD5275A60FFFE91FDAD67F9CB68E
33AD558A05E91F75C4222DA2B49476B4DD100832986002C612A76D90B0E4BDBB
D9DDECEE7DF677CEEE86242E26FCD53373F7DEB97BEEF97DCEF7F738E708F83F
3761FE8B8AF61DCD922405645986284AD4837511F37761EE975691D1F83BFAB1
ACFCDD84699A300C9D2EF3D2E8F1C7078A0254DDBC73693A36F2A6ECAFDB20D8
7D648FFDC500A4FC5D2CC67B8596330C187437F8DD2220331DB5AC44E4AFAE40
CDB648C7A3B13900BEA6674F3856843634D59761ED32179C6E0982457F8B22D9
16721D8BCDBA88A656BE8F65E4402CC1443A65A277701A670646A00F75BD19ED
FDE9D61980D2F52F360B8AB7AFF9861B70FFCD15106DB9893315662BCFC558CC
FCF5DC37C40D9743443A6342CD92021AF087E363E8EDEA3414C5563E7A6C7B2C
07D0FA7248F45487BFFAC5B568A1D98B9200E67E360087B06685C16200A8BF4C
1F6F5AEF476DB9827852C7BEF7C691552DF49E4FE1E0A11390856C70F4E863E7
F890810D3B09A02AFC350268AC7390EA050001DCF382B068EFB3E650047CA9B5
04D565F63C90855D6F8F209535F1F1A7691CF8731714510B0E87BF9D0768FB6D
48745785EFDAD88CE6650E2E9BCF2B2291A6E8B5989A020B8585FD4FCD6517F1
E5363FCA4B6C33EF7A0692F86777028669E1CC600687FFCE007402F856016037
77C11DB7AC41FB6A27B6DE164065A90D9A6E612CA66124AA632CAE2132AE619A
6434CDE2243E9784CDED2528F55E367E8E667CA82B46C6019DBEEBFB4F16EFBE
F73E6C821A1CE978A400F02A01D4846F696BC44377FA70FB3A1FBC349830CFE9
CC7046353134AA6272CAC0D0988AF1B8C1DFF93D12EE0DF9E173CB33FD2F4DA8
78E31F516435529226A3190C4045E7D15390580C743C9403286DDB13927CB5E1
D61B1BD07CAD02874D44439D82B5F52EACBAC601492A1E013CB7498CA9940E85
BE713B2EA7C96854C5BE700C094A3F9DFAE99A059520CE7EAAE2FD63DD145B99
E058C7837980F6DF85244F6D78DD1756A2E95A1B6CB2489700990C7B9D228138
D052EF44C0277F469562EDBF97B278AB33CE83CE20E306D5225537B94BCF0EAA
E839D9531CA0B979255613804286D9251388C4B281152232BCAC4AC6F52B1C04
E4BC22C8274359ECEB8843D7993ACCB8C59F5523A740FF7915677A7A28B5B3C1
F18E6FCE06B8261C0CD623B89400949C028A4DE0F92C3100F1722AAE5B69C7E6
365F51884F2E66F1DABB711E2F2CEA59E06979F9558A958F2F6838D7779AFC97
094ECC075876DD0A342E5560B793719A3D73814D2A005CAEDB32A9F2E4E600AA
03B6CF004CA50CFCEC8D711EF50C4033732AB040CCE60106FB3FA4882680A3F3
00BC55CB515B21A3DA2FA1C42DC24E81C514281426BE3CD1F38377F8D0B4DC71
C5C07C6EEF3826E239FFEBCC38F93F963431126399A32139D4474B442638391F
C053B91C5E5A845831712B123C2E114E52C34EAEB0B18B201EBED38BD6602E06
D8E01D7D296CBCDE3D27535EF94B0C5D1F65C8B085695A079254D05234FB74C6
E00AA52E2E02C045000EBACBF96C60F7FBDA5DF8FAAD1E6E9C49FAAB8371F4FC
5BC54D8D763CF99512AE0E6BFB3B93D81B4E72E935EAC7EAC422006AC39E8A15
F07A8A03DCBED6C18D30E3A9B481170EC4D07F419F99F5E3777B4909177FFEE8
7C16CFFC3EFA3900BDB4541340E74C1A5221721340657D518050B3033FBCD7CF
17A768C2C0CFF74731386ACCF13DAB1F3F7E20C09FD394FFDB9E1FE52E2A0A30
F42129909D05C02A21956277E57578FA1B65A8ABB471BFB320B451656DA142C4
54189ED4F18B3FC61099348A06E0AFB797A1AA54E681F8BD9DE3383FA253F199
0540CA4D4D13C085D3D48701144AF186DD548A6BC2AE8A9578645309EEBFCD47
25D8CEA3BFD08627353CFB7A0C1309F38A1570DB4637B6B47BF8F3CBEFC4F0B7
EE3434329CD17200D304902080E9A16E52400D4E1E7BB800B02B2479ABC38EF2
551484325F8ED7D4D9716B93135B6EF2A08C4AF0E15329EC3E92F8DC125C1B90
F0D213E53C4E8E7C90C24B6FC7732EA04294CA92617241825C908E7C4031A006
A3C7F3CBB1BFF595904C1B12A5BC91528F0148947E221C548C1EBDDB87074891
432793D87D38B1E0BEF485EF04D040EA9DBB90C5F77F33CE6B000348AB24FD34
2991D6908D9C2205B460B42BBF21F1AFDF41315019B60556C3E950E0A6FCB753
39E6AB62AD823D4F55E160570ABB0EC7B150DBD2EEC6F67BFCDCF7773D13E101
99290422D5836C3A03F51201587A307A22BF25F3DFF822015485E5400364C53D
A3002B3EAC24EF7F7A098EF7A7B1F3D0C2003E82FFD34F96E0C0B1247EF9568C
AF822A03C8B2A24467032D0575F8347741ECE41339005FCBF321D9571D964B96
43905D906C0E329E5F9629FAB76EF4F2F40B9FC92C08C0DA77EFF161CF91295E
01355A14748D4168B42BCED08E39096D7C809E93ABE2DD4F0D70006FE38F1A24
F7927F89AE0A41A03DB9202AFC62FB7341620B4EFE847435DBE2FCC1C4A21311
4C95CD985E6BFC6E242EAAA63A5596E87F2EC94774D6DC2742741DB1F91B3699
6A32B7CC8A32372C08855391781507A3C2B18C00D8E9888E6630753AA0581015
0FD491D3AF0A8AE3B1F4D05E8B0F69F3B448E6F4708354B26687E45C12A2A54F
E40315CE857C672C2ED27A9E814E43B95DB48999EDB4A9EB4672E81D3D71F607
B26FD54535DE65720049AE132C7DCA473D6A04D1552B88F6001B220731F3931F
7901CBF3552A9CD30416F89951CBCA4428D022A635999CD35D14A88A5826399E
0E2D10AFE61CB27855F81656D0C8A5AA694DF092FA3F8CC8125D22B18C700000
000049454E44AE426082}
Visible = False
end
object lblFSX: TLabel
Left = 42
Top = 4
Width = 146
Height = 19
Caption = 'Flight Simulator X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblFSXState: TLabel
Left = 42
Top = 23
Width = 70
Height = 13
Caption = 'Not connected'
end
end
end
object tsConfiguration: TTabSheet
Caption = ' Configuration '
ImageIndex = 2
object lblProfileSwitching: TLabel
Left = 16
Top = 16
Width = 92
Height = 13
Caption = 'Profile switching'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object bvlProfileSwitching: TBevel
Left = 229
Top = 23
Width = 337
Height = 13
Shape = bsTopLine
end
object cbProfileMenu: TCheckBox
Left = 16
Top = 41
Width = 409
Height = 17
Caption = ' Add profile selection to FSX "Add-ons" menu'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = cbProfileMenuClick
end
object cbProfileMenuCascaded: TCheckBox
Left = 36
Top = 64
Width = 389
Height = 17
Caption = ' Cascaded menu (profiles in "G940 Profile" submenu)'
TabOrder = 1
OnClick = cbProfileMenuCascadedClick
end
end
object tsAbout: TTabSheet
Caption = 'About'
ImageIndex = 1
object lblVersionCaption: TLabel
Left = 16
Top = 67
Width = 39
Height = 13
Caption = 'Version:'
end
object lblVersion: TLabel
Left = 75
Top = 67
Width = 45
Height = 13
Caption = 'lblVersion'
end
object lblProductName: TLabel
Left = 16
Top = 16
Width = 96
Height = 13
Caption = 'G940 LED Control'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblCopyright: TLabel
Left = 16
Top = 35
Width = 95
Height = 13
Caption = #169' 2011 X'#178'Software'
end
object lblWebsite: TLabel
Left = 16
Top = 112
Width = 43
Height = 13
Caption = 'Website:'
end
object lblEmail: TLabel
Left = 16
Top = 135
Width = 32
Height = 13
Caption = 'E-mail:'
end
object lblProxy: TLabel
Left = 36
Top = 368
Width = 246
Height = 13
Caption = 'This might not work if you'#39're behind a proxy, sorry!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblWebsiteLink: TLinkLabel
Left = 75
Top = 111
Width = 143
Height = 17
Caption =
'<a href="http://g940.x2software.net/">http://g940.x2software.net' +
'/</a>'
TabOrder = 0
OnLinkClick = lblLinkLinkClick
end
object lblEmailLink: TLinkLabel
Left = 75
Top = 134
Width = 126
Height = 17
Caption =
'<a href="mailto:support@x2software.net">support@x2software.net</' +
'a>'
TabOrder = 1
OnLinkClick = lblLinkLinkClick
end
object cbCheckUpdates: TCheckBox
Left = 16
Top = 344
Width = 305
Height = 17
Caption = ' Automatically check for &updates'
TabOrder = 2
OnClick = cbCheckUpdatesClick
end
object btnCheckUpdates: TButton
Left = 461
Top = 340
Width = 83
Height = 25
Caption = '&Check now'
TabOrder = 3
OnClick = btnCheckUpdatesClick
end
end
end
object pnlState: TPanel
AlignWithMargins = True
Left = 3
Top = 3
Width = 592
Height = 46
Align = alTop
BevelOuter = bvNone
TabOrder = 1
end
object TrayIcon: TTrayIcon
Left = 120
@ -963,7 +965,7 @@ object MainForm: TMainForm
Left = 192
Top = 400
Bitmap = {
494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
494C0101060009000C0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000002000000001002000000000000020
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000

1
G940LEDControl/Forms/MainFrm.pas
View File

@ -559,6 +559,7 @@ begin
if Settings.ActiveProfile[1] <> '{' then
begin
profile := Profiles.FindByName(Settings.ActiveProfile);
if Assigned(profile) then
Settings.ActiveProfile := profile.UID;
end else
profile := Profiles.FindByUID(Settings.ActiveProfile);