diff --git a/src/ce_projinspect.lfm b/src/ce_projinspect.lfm index b44a130b..086e6e51 100644 --- a/src/ce_projinspect.lfm +++ b/src/ce_projinspect.lfm @@ -1,29 +1,29 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget Left = 1390 - Height = 281 + Height = 241 Top = 26 - Width = 347 + Width = 341 AllowDropFiles = True Caption = 'Project inspector' - ClientHeight = 281 - ClientWidth = 347 + ClientHeight = 241 + ClientWidth = 341 OnDropFiles = FormDropFiles inherited Back: TPanel - Height = 281 - Width = 347 - ClientHeight = 281 - ClientWidth = 347 + Height = 241 + Width = 341 + ClientHeight = 241 + ClientWidth = 341 inherited Content: TPanel - Height = 281 - Width = 347 - ClientHeight = 281 - ClientWidth = 347 + Height = 241 + Width = 341 + ClientHeight = 241 + ClientWidth = 341 PopupMenu = nil object Tree: TTreeView[0] Left = 2 - Height = 251 + Height = 211 Top = 28 - Width = 343 + Width = 337 Align = alClient AutoExpand = True BorderSpacing.Around = 2 @@ -51,12 +51,12 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget Left = 2 Height = 24 Top = 2 - Width = 343 + Width = 337 Align = alTop BorderSpacing.Around = 2 BevelOuter = bvNone ClientHeight = 24 - ClientWidth = 343 + ClientWidth = 337 TabOrder = 1 object btnAddFile: TSpeedButton Left = 0 @@ -199,7 +199,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget Left = 112 Height = 23 Top = 0 - Width = 197 + Width = 191 ButtonWidth = 28 NumGlyphs = 1 Align = alCustom @@ -305,12 +305,12 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget end end inherited contextMenu: TPopupMenu - left = 8 - top = 352 + left = 128 + top = 48 end object imgList: TImageList[2] - left = 40 - top = 352 + left = 160 + top = 48 Bitmap = { 4C69060000001000000010000000B3B3B1EFB0B0ADFFAEAEACFFAEAEACFFAEAE ACFFAFAFACFFAFAFADFFB1B1AFD5B4B4B100B5B5B300B5B5B300B5B5B300B5B5 diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas index a66578e0..cfc2652b 100644 --- a/src/ce_projinspect.pas +++ b/src/ce_projinspect.pas @@ -315,6 +315,8 @@ begin // display Imports (-J) for fold in FProject.currentConfiguration.pathsOptions.Imports do begin + if fold = '' then + continue; itm := Tree.Items.AddChild(fImpsNode, shortenPath(fold)); itm.ImageIndex := 5; itm.SelectedIndex := 5; @@ -323,6 +325,8 @@ begin // display Includes (-I) for fold in FProject.currentConfiguration.pathsOptions.Includes do begin + if fold = '' then + continue; itm := Tree.Items.AddChild(fInclNode, shortenPath(fold)); itm.ImageIndex := 5; itm.SelectedIndex := 5; @@ -331,6 +335,8 @@ begin // display extra sources (external .lib, *.a, *.d) for src in FProject.currentConfiguration.pathsOptions.Sources do begin + if src = '' then + continue; lst := TStringList.Create; try if listAsteriskPath(src, lst) then for src in lst do begin