forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix projinspect empty I/J/Xtra item

This commit is contained in:
Basile Burg 2014-11-07 05:03:17 +01:00
parent 49ab746c10
commit 3637b7e41c
2 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/ce_projinspect.lfm
View File

@ -1,29 +1,29 @@
inherited CEProjectInspectWidget: TCEProjectInspectWidget inherited CEProjectInspectWidget: TCEProjectInspectWidget
Left = 1390 Left = 1390
Height = 281 Height = 241
Top = 26 Top = 26
Width = 347 Width = 341
AllowDropFiles = True AllowDropFiles = True
Caption = 'Project inspector' Caption = 'Project inspector'
ClientHeight = 281 ClientHeight = 241
ClientWidth = 347 ClientWidth = 341
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
inherited Back: TPanel inherited Back: TPanel
Height = 281 Height = 241
Width = 347 Width = 341
ClientHeight = 281 ClientHeight = 241
ClientWidth = 347 ClientWidth = 341
inherited Content: TPanel inherited Content: TPanel
Height = 281 Height = 241
Width = 347 Width = 341
ClientHeight = 281 ClientHeight = 241
ClientWidth = 347 ClientWidth = 341
PopupMenu = nil PopupMenu = nil
object Tree: TTreeView[0] object Tree: TTreeView[0]
Left = 2 Left = 2
Height = 251 Height = 211
Top = 28 Top = 28
Width = 343 Width = 337
Align = alClient Align = alClient
AutoExpand = True AutoExpand = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
@ -51,12 +51,12 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Left = 2 Left = 2
Height = 24 Height = 24
Top = 2 Top = 2
Width = 343 Width = 337
Align = alTop Align = alTop
BorderSpacing.Around = 2 BorderSpacing.Around = 2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 24 ClientHeight = 24
ClientWidth = 343 ClientWidth = 337
TabOrder = 1 TabOrder = 1
object btnAddFile: TSpeedButton object btnAddFile: TSpeedButton
Left = 0 Left = 0
@ -199,7 +199,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Left = 112 Left = 112
Height = 23 Height = 23
Top = 0 Top = 0
Width = 197 Width = 191
ButtonWidth = 28 ButtonWidth = 28
NumGlyphs = 1 NumGlyphs = 1
Align = alCustom Align = alCustom
@ -305,12 +305,12 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
end end
end end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu
left = 8 left = 128
top = 352 top = 48
end end
object imgList: TImageList[2] object imgList: TImageList[2]
left = 40 left = 160
top = 352 top = 48
Bitmap = { Bitmap = {
4C69060000001000000010000000B3B3B1EFB0B0ADFFAEAEACFFAEAEACFFAEAE 4C69060000001000000010000000B3B3B1EFB0B0ADFFAEAEACFFAEAEACFFAEAE
ACFFAFAFACFFAFAFADFFB1B1AFD5B4B4B100B5B5B300B5B5B300B5B5B300B5B5 ACFFAFAFACFFAFAFADFFB1B1AFD5B4B4B100B5B5B300B5B5B300B5B5B300B5B5

6
src/ce_projinspect.pas
View File

@ -315,6 +315,8 @@ begin
// display Imports (-J) // display Imports (-J)
for fold in FProject.currentConfiguration.pathsOptions.Imports do for fold in FProject.currentConfiguration.pathsOptions.Imports do
begin begin
if fold = '' then
continue;
itm := Tree.Items.AddChild(fImpsNode, shortenPath(fold)); itm := Tree.Items.AddChild(fImpsNode, shortenPath(fold));
itm.ImageIndex := 5; itm.ImageIndex := 5;
itm.SelectedIndex := 5; itm.SelectedIndex := 5;
@ -323,6 +325,8 @@ begin
// display Includes (-I) // display Includes (-I)
for fold in FProject.currentConfiguration.pathsOptions.Includes do for fold in FProject.currentConfiguration.pathsOptions.Includes do
begin begin
if fold = '' then
continue;
itm := Tree.Items.AddChild(fInclNode, shortenPath(fold)); itm := Tree.Items.AddChild(fInclNode, shortenPath(fold));
itm.ImageIndex := 5; itm.ImageIndex := 5;
itm.SelectedIndex := 5; itm.SelectedIndex := 5;
@ -331,6 +335,8 @@ begin
// display extra sources (external .lib, *.a, *.d) // display extra sources (external .lib, *.a, *.d)
for src in FProject.currentConfiguration.pathsOptions.Sources do for src in FProject.currentConfiguration.pathsOptions.Sources do
begin begin
if src = '' then
continue;
lst := TStringList.Create; lst := TStringList.Create;
try try
if listAsteriskPath(src, lst) then for src in lst do begin if listAsteriskPath(src, lst) then for src in lst do begin