compiler paths editor, less confusing for GDC and LDC, since their library path does not require to have two fields

This commit is contained in:
Basile Burg 2020-01-25 04:25:41 +01:00
parent 027aa4349b
commit 3c67dba92a
1 changed files with 113 additions and 110 deletions

View File

@ -6,7 +6,6 @@ object CompilersPathsEditor: TCompilersPathsEditor
Caption = 'CompilersPathsEditor' Caption = 'CompilersPathsEditor'
ClientHeight = 900 ClientHeight = 900
ClientWidth = 460 ClientWidth = 460
LCLVersion = '2.0.6.0'
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Height = 900 Height = 900
@ -17,25 +16,25 @@ object CompilersPathsEditor: TCompilersPathsEditor
Align = alClient Align = alClient
AutoSize = True AutoSize = True
ClientHeight = 898 ClientHeight = 898
ClientWidth = 443 ClientWidth = 445
TabOrder = 0 TabOrder = 0
object grpDMD: TGroupBox object grpDMD: TGroupBox
Left = 0 Left = 0
Height = 168 Height = 186
Top = 106 Top = 116
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'DMD' Caption = 'DMD'
ClientHeight = 150 ClientHeight = 168
ClientWidth = 441 ClientWidth = 443
TabOrder = 0 TabOrder = 0
object selDMDexe: TFileNameEdit object selDMDexe: TFileNameEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 21 Top = 21
Width = 437 Width = 439
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -49,10 +48,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selDMDrt: TDirectoryEdit object selDMDrt: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 71 Top = 77
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -65,10 +64,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selDMDstd: TDirectoryEdit object selDMDstd: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 121 Top = 133
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -83,7 +82,7 @@ object CompilersPathsEditor: TCompilersPathsEditor
Left = 0 Left = 0
Height = 19 Height = 19
Top = 0 Top = 0
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -93,8 +92,8 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText2: TStaticText object StaticText2: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 50 Top = 56
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -104,8 +103,8 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText3: TStaticText object StaticText3: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 100 Top = 112
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -115,21 +114,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object grpGDC: TGroupBox object grpGDC: TGroupBox
Left = 0 Left = 0
Height = 168 Height = 186
Top = 274 Top = 302
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'GDC' Caption = 'GDC'
ClientHeight = 150 ClientHeight = 168
ClientWidth = 441 ClientWidth = 443
TabOrder = 1 TabOrder = 1
object selGDCexe: TFileNameEdit object selGDCexe: TFileNameEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 21 Top = 21
Width = 437 Width = 439
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -143,10 +142,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selGDCrt: TDirectoryEdit object selGDCrt: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 71 Top = 77
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -159,10 +158,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selGDCstd: TDirectoryEdit object selGDCstd: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 121 Top = 133
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -171,13 +170,14 @@ object CompilersPathsEditor: TCompilersPathsEditor
BorderSpacing.Around = 2 BorderSpacing.Around = 2
MaxLength = 0 MaxLength = 0
TabOrder = 2 TabOrder = 2
Visible = False
OnButtonClick = dialogOpen OnButtonClick = dialogOpen
end end
object StaticText4: TStaticText object StaticText4: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 0 Top = 0
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -187,43 +187,44 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText5: TStaticText object StaticText5: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 50 Top = 56
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
Caption = 'Runtime sources' Caption = '"Include/d" path (druntime, phobos)'
TabOrder = 4 TabOrder = 4
end end
object StaticText6: TStaticText object StaticText6: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 100 Top = 112
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
Visible = False
end end
end end
object grpLDC: TGroupBox object grpLDC: TGroupBox
Left = 0 Left = 0
Height = 168 Height = 186
Top = 442 Top = 488
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'LDC' Caption = 'LDC'
ClientHeight = 150 ClientHeight = 168
ClientWidth = 441 ClientWidth = 443
TabOrder = 2 TabOrder = 2
object selLDCexe: TFileNameEdit object selLDCexe: TFileNameEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 21 Top = 21
Width = 437 Width = 439
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -237,10 +238,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selLDCrt: TDirectoryEdit object selLDCrt: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)' Hint = 'select the root of druntime sources'
Top = 71 Top = 77
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -253,10 +254,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selLDCstd: TDirectoryEdit object selLDCstd: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of phobos sources (can be empty)' Hint = 'select the root of phobos sources (can be empty)'
Top = 121 Top = 133
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -265,13 +266,14 @@ object CompilersPathsEditor: TCompilersPathsEditor
BorderSpacing.Around = 2 BorderSpacing.Around = 2
MaxLength = 0 MaxLength = 0
TabOrder = 2 TabOrder = 2
Visible = False
OnButtonClick = dialogOpen OnButtonClick = dialogOpen
end end
object StaticText7: TStaticText object StaticText7: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 0 Top = 0
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -281,43 +283,44 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText8: TStaticText object StaticText8: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 50 Top = 56
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
Caption = 'Runtime sources' Caption = 'import path (druntime, phobos)'
TabOrder = 4 TabOrder = 4
end end
object StaticText9: TStaticText object StaticText9: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 100 Top = 112
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
Visible = False
end end
end end
object grpUSER1: TGroupBox object grpUSER1: TGroupBox
Left = 0 Left = 0
Height = 168 Height = 186
Top = 610 Top = 674
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'User 1' Caption = 'User 1'
ClientHeight = 150 ClientHeight = 168
ClientWidth = 441 ClientWidth = 443
TabOrder = 3 TabOrder = 3
object selUSER1exe: TFileNameEdit object selUSER1exe: TFileNameEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 21 Top = 21
Width = 437 Width = 439
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -331,10 +334,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER1rt: TDirectoryEdit object selUSER1rt: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources, note it might alos contain phobos (GDC or LDC style)'
Top = 71 Top = 77
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -347,10 +350,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER1std: TDirectoryEdit object selUSER1std: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 121 Top = 133
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -365,7 +368,7 @@ object CompilersPathsEditor: TCompilersPathsEditor
Left = 0 Left = 0
Height = 19 Height = 19
Top = 0 Top = 0
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -375,8 +378,8 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText11: TStaticText object StaticText11: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 50 Top = 56
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -386,8 +389,8 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText12: TStaticText object StaticText12: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 100 Top = 112
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -397,21 +400,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object grpUSER2: TGroupBox object grpUSER2: TGroupBox
Left = 0 Left = 0
Height = 168 Height = 186
Top = 778 Top = 860
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'User 2' Caption = 'User 2'
ClientHeight = 150 ClientHeight = 168
ClientWidth = 441 ClientWidth = 443
TabOrder = 4 TabOrder = 4
object selUSER2exe: TFileNameEdit object selUSER2exe: TFileNameEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 21 Top = 21
Width = 437 Width = 439
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -425,10 +428,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER2rt: TDirectoryEdit object selUSER2rt: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources, note it might alos contain phobos (GDC or LDC style)'
Top = 71 Top = 77
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -441,10 +444,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER2std: TDirectoryEdit object selUSER2std: TDirectoryEdit
Left = 2 Left = 2
Height = 27 Height = 33
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 121 Top = 133
Width = 437 Width = 439
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -459,7 +462,7 @@ object CompilersPathsEditor: TCompilersPathsEditor
Left = 0 Left = 0
Height = 19 Height = 19
Top = 0 Top = 0
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -469,8 +472,8 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText14: TStaticText object StaticText14: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 50 Top = 56
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -480,8 +483,8 @@ object CompilersPathsEditor: TCompilersPathsEditor
object StaticText15: TStaticText object StaticText15: TStaticText
Left = 0 Left = 0
Height = 19 Height = 19
Top = 100 Top = 112
Width = 441 Width = 443
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -491,21 +494,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object GroupBox6: TGroupBox object GroupBox6: TGroupBox
Left = 0 Left = 0
Height = 51 Height = 58
Top = 0 Top = 0
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'Compiler paths used for intellisense' Caption = 'Compiler paths used for intellisense'
ClientHeight = 33 ClientHeight = 40
ClientWidth = 441 ClientWidth = 443
TabOrder = 5 TabOrder = 5
object selDefault: TComboBox object selDefault: TComboBox
Left = 4 Left = 4
Height = 25 Height = 32
Hint = 'select which the compiler for which the library paths are used by the completion daemon' Hint = 'select which the compiler for which the library paths are used by the completion daemon'
Top = 4 Top = 4
Width = 433 Width = 435
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ItemHeight = 0 ItemHeight = 0
@ -515,21 +518,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object GroupBox7: TGroupBox object GroupBox7: TGroupBox
Left = 0 Left = 0
Height = 55 Height = 58
Top = 51 Top = 58
Width = 443 Width = 445
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'Compiler selected as "global"' Caption = 'Compiler selected as "global"'
ClientHeight = 37 ClientHeight = 40
ClientWidth = 441 ClientWidth = 443
TabOrder = 6 TabOrder = 6
object selGlobal: TComboBox object selGlobal: TComboBox
Left = 4 Left = 4
Height = 29 Height = 32
Hint = 'select which the compiler for which the library paths are used by the completion daemon' Hint = 'select which the compiler for which the library paths are used by the completion daemon'
Top = 4 Top = 4
Width = 433 Width = 435
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ItemHeight = 0 ItemHeight = 0