From f07bb4f62a98889cd0f77ca453c1461292a494ce Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 12 Dec 2009 19:10:14 +0000
Subject: [PATCH] IDE: add to package dlg removed add file page

git-svn-id: trunk@23113 -
---
 packager/addtopackagedlg.lfm | 180 +--------------------------------
 packager/addtopackagedlg.lrs | 188 ++++++-----------------------------
 packager/addtopackagedlg.pas | 162 ------------------------------
 3 files changed, 30 insertions(+), 500 deletions(-)

diff --git a/packager/addtopackagedlg.lfm b/packager/addtopackagedlg.lfm
index 2f11b7e04c..fb3fceb23d 100644
--- a/packager/addtopackagedlg.lfm
+++ b/packager/addtopackagedlg.lfm
@@ -20,7 +20,7 @@ object AddToPackageDlg: TAddToPackageDlg
     Top = 0
     Width = 658
     Align = alClient
-    PageIndex = 1
+    PageIndex = 3
     TabOrder = 0
     object NewFilePage: TPage
       Caption = 'New File'
@@ -677,184 +677,6 @@ object AddToPackageDlg: TAddToPackageDlg
         end
       end
     end
-    object AddFilePage: TPage
-      Caption = 'Add File'
-      ClientWidth = 656
-      ClientHeight = 295
-      object AddFilenameLabel: TLabel
-        AnchorSideTop.Control = AddFilenameEdit
-        AnchorSideTop.Side = asrCenter
-        Left = 5
-        Height = 18
-        Top = 9
-        Width = 117
-        Caption = 'AddFilenameLabel'
-        ParentColor = False
-      end
-      object AddFilenameEdit: TEdit
-        AnchorSideLeft.Control = AddFilenameLabel
-        AnchorSideLeft.Side = asrBottom
-        AnchorSideRight.Control = AddFileBrowseButton
-        Left = 122
-        Height = 27
-        Top = 5
-        Width = 476
-        Anchors = [akTop, akLeft, akRight]
-        TabOrder = 0
-        Text = 'AddFilenameEdit'
-      end
-      object AddFileBrowseButton: TButton
-        AnchorSideRight.Control = AddFileShortenButton
-        Left = 598
-        Height = 29
-        Top = 5
-        Width = 24
-        Anchors = [akTop, akRight]
-        AutoSize = True
-        Caption = '...'
-        OnClick = AddFileBrowseButtonClick
-        TabOrder = 1
-      end
-      object AddFileShortenButton: TButton
-        AnchorSideRight.Control = AddFilePage
-        AnchorSideRight.Side = asrBottom
-        Left = 622
-        Height = 29
-        Top = 5
-        Width = 34
-        Anchors = [akTop, akRight]
-        AutoSize = True
-        Caption = '<>'
-        OnClick = AddFileShortenButtonClick
-        TabOrder = 2
-      end
-      object AddFileTypeRadioGroup: TRadioGroup
-        AnchorSideTop.Control = AddFilenameEdit
-        AnchorSideTop.Side = asrBottom
-        Left = 5
-        Height = 30
-        Top = 38
-        Width = 100
-        AutoFill = True
-        AutoSize = True
-        BorderSpacing.Top = 6
-        Caption = 'AddFileTypeRadioGroup'
-        ChildSizing.LeftRightSpacing = 6
-        ChildSizing.TopBottomSpacing = 6
-        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
-        ChildSizing.EnlargeVertical = crsHomogenousChildResize
-        ChildSizing.ShrinkHorizontal = crsScaleChilds
-        ChildSizing.ShrinkVertical = crsScaleChilds
-        ChildSizing.Layout = cclLeftToRightThenTopToBottom
-        ChildSizing.ControlsPerLine = 2
-        Columns = 2
-        Constraints.MinHeight = 30
-        Constraints.MinWidth = 100
-        TabOrder = 3
-      end
-      object AddFileButton: TBitBtn
-        AnchorSideLeft.Control = AddFilenameLabel
-        AnchorSideTop.Control = AddFileTypeRadioGroup
-        AnchorSideTop.Side = asrBottom
-        Left = 5
-        Height = 29
-        Top = 93
-        Width = 119
-        AutoSize = True
-        BorderSpacing.Top = 25
-        Caption = 'AddFileButton'
-        Glyph.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00317A360A2D753207FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF003985400A37833DFF317B37FB2E763307FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF004292490A408E47FF54A35CFF4F9F57FF327C38FE2E773408FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF004B9E530A499A51FF5BAC64FF77CA82FF74C87EFF51A059FF337D39FE2F78
-          3508FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0053A9
-          5C0A51A65AFF63B56DFF7ECE89FF7BCC87FF76CA81FF76C981FF52A25AFF347E
-          3AFE30793508FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005AB4650959B0
-          63FF6BBD76FF84D290FF7AC985FF60B26AFF63B46DFF78C983FF78CB82FF53A3
-          5CFF347F3AFD317A3608FFFFFF00FFFFFF00FFFFFF00FFFFFF005EB969465BB5
-          66E479C986FF80CE8DFF51A65AFC4DA1566F499C518B5CAD67FF7CCC86FF79CB
-          85FF54A45DFF35803BFC317B3708FFFFFF00FFFFFF00FFFFFF00FFFFFF005FBA
-          6A3C5CB666E66DC079FF55AC5F6FFFFFFF00FFFFFF004A9D52915EAE68FF7DCD
-          89FF7CCD87FF56A55FFF36813CFC327C3808FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF005FBB6A435CB76765FFFFFF00FFFFFF00FFFFFF00FFFFFF004B9E53915FAF
-          69FF7FCE8AFF7ECE89FF57A660FF37823DFC337D3908FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004B9F
-          549160B06AFF81CF8DFF7FCF8BFF58A761FF398540FF347E3A08FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF004CA0559162B26CFF82D18FFF7AC885FF57A660FF38843F7BFFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF004DA1569163B36DFF5FAF69FF41914979FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF004EA257914A9D527FFFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
-        }
-        NumGlyphs = 0
-        OnClick = AddFileButtonClick
-        TabOrder = 4
-      end
-      object CancelAddFileButton: TBitBtn
-        AnchorSideLeft.Control = AddFileButton
-        AnchorSideLeft.Side = asrBottom
-        AnchorSideTop.Control = AddFileButton
-        Left = 130
-        Height = 29
-        Top = 93
-        Width = 162
-        AutoSize = True
-        BorderSpacing.Left = 6
-        Caption = 'CancelAddFileButton'
-        Glyph.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF003F3DED413B38EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00211FE3081E1CE241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF004A47F0414F4CF2FF403EEDFD3C39EB08FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF002725E5082422E4FC312FEAFF1F1DE241FFFFFF00FFFFFF00FFFFFF005451
-          F3415856F5FF6361FAFF5855F6FF413FEDFC3D3AEC08FFFFFF00FFFFFF00302D
-          E7082C2AE6FC413FF1FF4C4AF6FF312FEAFF1F1DE241FFFFFF00FFFFFF005956
-          F52B5B58F6FF6562FAFF7170FFFF5956F6FF4240EEFC3E3BEC083937EB083532
-          E9FC4745F2FF6362FFFF4A48F4FF2F2DE9FF2220E32BFFFFFF00FFFFFF00FFFF
-          FF005A57F52B5B59F6FF6663FAFF7471FFFF5A58F6FF4341EEFC3E3CECFD504D
-          F4FF6867FFFF504EF5FF3634EBFF2A27E52BFFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF005B58F62B5C5AF6FF6764FAFF7472FFFF7370FFFF706EFFFF6E6C
-          FFFF5755F7FF3F3DEEFF3230E82BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF005C59F62B5D5BF7FF7976FFFF5956FFFF5754FFFF7270
-          FFFF4846F0FF3C39EB2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00615EF8085D5AF6FD7D79FFFF5E5BFFFF5B58FFFF7674
-          FFFF4643EFFD413FED08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF006967FB086663F9FC706DFBFF807EFFFF7E7BFFFF7C79FFFF7977
-          FFFF5E5CF7FF4744EFFC4240EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00716EFD086E6BFCFC7774FDFF8682FFFF7673FCFF6462F8FF605DF7FF6D6A
-          FAFF7B79FFFF605DF7FF4845EFFC4341EE08FFFFFF00FFFFFF00FFFFFF007673
-          FF087471FEFD7D7AFEFF8A87FFFF7C79FDFF6C69FBFF6361F92B5F5CF72B615E
-          F8FF6E6CFAFF7D7AFFFF615FF7FF4946F0FC4441EE05FFFFFF00FFFFFF007774
-          FF1F7A77FFFF817EFFFF817EFEFF7471FDFF6C69FB2BFFFFFF00FFFFFF00605D
-          F72B625FF8FF6F6DFBFF7E7CFFFF625FF8FF4A47F06F4542EE02FFFFFF00FFFF
-          FF007774FF1F7A77FFFF7976FEFF726FFD2BFFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00615EF82B6461F8FF6A68F9FF5451F3A84F4DF229FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF007774FF1F7774FF2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00625FF82B5D5BF76F5956F53EFFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF006360F80AFFFFFF00FFFFFF00FFFFFF00
-        }
-        NumGlyphs = 0
-        OnClick = CancelAddFileButtonClick
-        TabOrder = 5
-      end
-    end
     object AddFilesPage: TPage
       Caption = 'Add Files'
       ClientWidth = 656
diff --git a/packager/addtopackagedlg.lrs b/packager/addtopackagedlg.lrs
index b1251181d5..66ec378478 100644
--- a/packager/addtopackagedlg.lrs
+++ b/packager/addtopackagedlg.lrs
@@ -8,7 +8,7 @@ LazarusResources.Add('TAddToPackageDlg','FORMDATA',[
   +'e'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#22'AddToPackageDlgKeyDown'
   +#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.29'#0#9'TNotebook'#8
   +'NoteBook'#4'Left'#2#0#6'Height'#3'B'#1#3'Top'#2#0#5'Width'#3#146#2#5'Align'
-  +#7#8'alClient'#9'PageIndex'#2#1#8'TabOrder'#2#0#0#5'TPage'#11'NewFilePage'#7
+  +#7#8'alClient'#9'PageIndex'#2#3#8'TabOrder'#2#0#0#5'TPage'#11'NewFilePage'#7
   +'Caption'#6#8'New File'#11'ClientWidth'#3#144#2#12'ClientHeight'#3''''#1#8'O'
   +'nResize'#7#17'NewFilePageResize'#0#9'TTreeView'#15'NewFileTreeView'#4'Left'
   +#2#0#6'Height'#3#249#0#3'Top'#2#0#5'Width'#3#249#0#5'Align'#7#6'alLeft'#20'B'
@@ -432,162 +432,32 @@ LazarusResources.Add('TAddToPackageDlg','FORMDATA',[
   +'ionLabel'#11'ParentColor'#8#0#0#5'TEdit'#20'DependMaxVersionEdit'#19'Anchor'
   +'SideLeft.Side'#7#9'asrBottom'#4'Left'#3#170#0#6'Height'#2#25#3'Top'#2'F'#5
   +'Width'#3#200#0#17'BorderSpacing.Top'#2#6#8'TabOrder'#2#2#4'Text'#6#20'Depen'
-  +'dMaxVersionEdit'#0#0#0#0#5'TPage'#11'AddFilePage'#7'Caption'#6#8'Add File'
-  +#11'ClientWidth'#3#144#2#12'ClientHeight'#3''''#1#0#6'TLabel'#16'AddFilename'
-  +'Label'#21'AnchorSideTop.Control'#7#15'AddFilenameEdit'#18'AnchorSideTop.Sid'
-  +'e'#7#9'asrCenter'#4'Left'#2#5#6'Height'#2#18#3'Top'#2#9#5'Width'#2'u'#7'Cap'
-  +'tion'#6#16'AddFilenameLabel'#11'ParentColor'#8#0#0#5'TEdit'#15'AddFilenameE'
-  +'dit'#22'AnchorSideLeft.Control'#7#16'AddFilenameLabel'#19'AnchorSideLeft.Si'
-  +'de'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#19'AddFileBrowseButton'#4
-  +'Left'#2'z'#6'Height'#2#27#3'Top'#2#5#5'Width'#3#220#1#7'Anchors'#11#5'akTop'
-  +#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#15'AddFilenameEdit'#0#0#7
-  +'TButton'#19'AddFileBrowseButton'#23'AnchorSideRight.Control'#7#20'AddFileSh'
-  +'ortenButton'#4'Left'#3'V'#2#6'Height'#2#29#3'Top'#2#5#5'Width'#2#24#7'Ancho'
-  +'rs'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#3'...'#7'OnClick'#7
-  +#24'AddFileBrowseButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#20'AddFileShort'
-  +'enButton'#23'AnchorSideRight.Control'#7#11'AddFilePage'#20'AnchorSideRight.'
-  +'Side'#7#9'asrBottom'#4'Left'#3'n'#2#6'Height'#2#29#3'Top'#2#5#5'Width'#2'"'
-  +#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#2'<>'#7'OnCl'
-  +'ick'#7#25'AddFileShortenButtonClick'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#21
-  ,'AddFileTypeRadioGroup'#21'AnchorSideTop.Control'#7#15'AddFilenameEdit'#18'A'
-  +'nchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#30#3'Top'#2'&'#5
-  +'Width'#2'd'#8'AutoFill'#9#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Caption'
-  +#6#21'AddFileTypeRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSi'
-  +'zing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomoge'
-  +'nousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildRes'
-  +'ize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.S'
-  +'hrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRi'
-  +'ghtThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#21'C'
-  +'onstraints.MinHeight'#2#30#20'Constraints.MinWidth'#2'd'#8'TabOrder'#2#3#0#0
-  +#7'TBitBtn'#13'AddFileButton'#22'AnchorSideLeft.Control'#7#16'AddFilenameLab'
-  +'el'#21'AnchorSideTop.Control'#7#21'AddFileTypeRadioGroup'#18'AnchorSideTop.'
-  +'Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#29#3'Top'#2']'#5'Width'#2'w'#8
-  +'AutoSize'#9#17'BorderSpacing.Top'#2#25#7'Caption'#6#13'AddFileButton'#10'Gl'
-  +'yph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
-  +#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'1z6'#10'-u2'#7
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0'9'#133'@'#10'7'#131'='#255'1{7'#251'.v3'#7
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0'B'#146'I'#10'@'#142'G'#255'T'#163'\'#255'O'#159'W'#255'2|8'#254'.w4'#8
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'K'#158'S'#10'I'#154'Q'
-  +#255'['#172'd'#255'w'#202#130#255't'#200'~'#255'Q'#160'Y'#255'3}9'#254'/x5'#8
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0'S'#169'\'#10'Q'#166'Z'#255'c'#181'm'#255'~'#206#137
-  +#255'{'#204#135#255'v'#202#129#255'v'#201#129#255'R'#162'Z'#255'4~:'#254'0y5'
-  +#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'Z'
-  +#180'e'#9'Y'#176'c'#255'k'#189'v'#255#132#210#144#255'z'#201#133#255'`'#178
-  +'j'#255'c'#180'm'#255'x'#201#131#255'x'#203#130#255'S'#163'\'#255'4'#127':'
-  +#253'1z6'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'^'#185'i'
-  +'F['#181'f'#228'y'#201#134#255#128#206#141#255'Q'#166'Z'#252'M'#161'VoI'#156
-  +'Q'#139'\'#173'g'#255'|'#204#134#255'y'#203#133#255'T'#164']'#255'5'#128';'
-  +#252'1{7'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'_'#186'j'
-  +'<\'#182'f'#230'm'#192'y'#255'U'#172'_o'#255#255#255#0#255#255#255#0'J'#157
-  +'R'#145'^'#174'h'#255'}'#205#137#255'|'#205#135#255'V'#165'_'#255'6'#129'<'
-  +#252'2|8'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'_'#187'j'
-  +'C\'#183'ge'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'K'#158
-  +'S'#145'_'#175'i'#255#127#206#138#255'~'#206#137#255'W'#166'`'#255'7'#130'='
-  +#252'3}9'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +'K'#159'T'#145'`'#176'j'#255#129#207#141#255#127#207#139#255'X'#167'a'#255'9'
-  +#133'@'#255'4~:'#8#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0'L'#160'U'#145'b'#178'l'#255#130#209#143#255'z'#200#133#255'W'#166
-  +'`'#255'8'#132'?{'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0'M'#161'V'#145'c'#179'm'#255'_'#175'i'#255'A'#145'Iy'
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0'N'#162'W'#145'J'#157'R'#127#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'AddFileButtonClick'#8'TabOrd'
-  +'er'#2#4#0#0#7'TBitBtn'#19'CancelAddFileButton'#22'AnchorSideLeft.Control'#7
-  ,#13'AddFileButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.C'
-  +'ontrol'#7#13'AddFileButton'#4'Left'#3#130#0#6'Height'#2#29#3'Top'#2']'#5'Wi'
-  +'dth'#3#162#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#7'Caption'#6#19'Cance'
-  +'lAddFileButton'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0
-  +#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0
-  +#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'?='#237'A;8'#235#8
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0'!'#31#227#8#30#28#226'A'#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0'JG'#240'AOL'#242#255'@>'#237#253'<9'#235#8#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'''%'#229#8'$"'#228#252
-  +'1/'#234#255#31#29#226'A'#255#255#255#0#255#255#255#0#255#255#255#0'TQ'#243
-  +'AXV'#245#255'ca'#250#255'XU'#246#255'A?'#237#252'=:'#236#8#255#255#255#0#255
-  +#255#255#0'0-'#231#8',*'#230#252'A?'#241#255'LJ'#246#255'1/'#234#255#31#29
-  +#226'A'#255#255#255#0#255#255#255#0'YV'#245'+[X'#246#255'eb'#250#255'qp'#255
-  +#255'YV'#246#255'B@'#238#252'>;'#236#8'97'#235#8'52'#233#252'GE'#242#255'cb'
-  +#255#255'JH'#244#255'/-'#233#255'" '#227'+'#255#255#255#0#255#255#255#0#255
-  +#255#255#0'ZW'#245'+[Y'#246#255'fc'#250#255'tq'#255#255'ZX'#246#255'CA'#238
-  +#252'><'#236#253'PM'#244#255'hg'#255#255'PN'#245#255'64'#235#255'*'''#229'+'
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'[X'
-  +#246'+\Z'#246#255'gd'#250#255'tr'#255#255'sp'#255#255'pn'#255#255'nl'#255#255
-  +'WU'#247#255'?='#238#255'20'#232'+'#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'\Y'#246'+]['#247#255
-  +'yv'#255#255'YV'#255#255'WT'#255#255'rp'#255#255'HF'#240#255'<9'#235'+'#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0'a^'#248#8']Z'#246#253'}y'#255#255'^['#255
-  +#255'[X'#255#255'vt'#255#255'FC'#239#253'A?'#237#8#255#255#255#0#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ig'
-  +#251#8'fc'#249#252'pm'#251#255#128'~'#255#255'~{'#255#255'|y'#255#255'yw'#255
-  +#255'^\'#247#255'GD'#239#252'B@'#238#8#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0'qn'#253#8'nk'#252#252'wt'#253#255#134#130
-  +#255#255'vs'#252#255'db'#248#255'`]'#247#255'mj'#250#255'{y'#255#255'`]'#247
-  +#255'HE'#239#252'CA'#238#8#255#255#255#0#255#255#255#0#255#255#255#0'vs'#255
-  +#8'tq'#254#253'}z'#254#255#138#135#255#255'|y'#253#255'li'#251#255'ca'#249'+'
-  +'_\'#247'+a^'#248#255'nl'#250#255'}z'#255#255'a_'#247#255'IF'#240#252'DA'#238
-  +#5#255#255#255#0#255#255#255#0'wt'#255#31'zw'#255#255#129'~'#255#255#129'~'
-  +#254#255'tq'#253#255'li'#251'+'#255#255#255#0#255#255#255#0'`]'#247'+b_'#248
-  +#255'om'#251#255'~|'#255#255'b_'#248#255'JG'#240'oEB'#238#2#255#255#255#0#255
-  +#255#255#0'wt'#255#31'zw'#255#255'yv'#254#255'ro'#253'+'#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0'a^'#248'+da'#248#255'jh'#249#255'TQ'
-  +#243#168'OM'#242')'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +'wt'#255#31'wt'#255'+'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
-  +#0#255#255#255#0#255#255#255#0'b_'#248'+]['#247'oYV'#245'>'#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0'c`'#248#10#255#255#255#0#255#255#255#0#255#255
-  +#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#24'CancelAddFileButtonClick'#8'TabOrder'
-  +#2#5#0#0#0#5'TPage'#12'AddFilesPage'#7'Caption'#6#9'Add Files'#11'ClientWidt'
-  +'h'#3#144#2#12'ClientHeight'#3''''#1#0#9'TListView'#13'FilesListView'#24'Anc'
-  +'horSideBottom.Control'#7#17'FilesBrowseButton'#4'Left'#2#0#6'Height'#3#249#0
-  +#3'Top'#2#0#5'Width'#3#144#2#5'Align'#7#8'alClient'#20'BorderSpacing.Bottom'
-  +#2#5#7'Columns'#14#1#7'Caption'#6#8'Filename'#5'Width'#3#200#0#0#1#7'Caption'
-  +#6#4'Type'#5'Width'#3#180#1#0#0#9'ItemIndex'#2#255#11'MultiSelect'#9#8'TabOr'
-  +'der'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#6'TPanel'#16'AddFilesBtnPanel'#4'Le'
-  +'ft'#2#0#6'Height'#2')'#3'Top'#3#254#0#5'Width'#3#144#2#5'Align'#7#8'alBotto'
-  +'m'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2')'#11'Client'
-  +'Width'#3#144#2#8'TabOrder'#2#1#0#7'TButton'#17'FilesBrowseButton'#21'Anchor'
-  +'SideBottom.Side'#7#9'asrBottom'#4'Left'#2#28#6'Height'#2#29#3'Top'#2#6#5'Wi'
-  +'dth'#3#128#0#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2
-  +#6#7'Caption'#6#17'FilesBrowseButton'#7'OnClick'#7#22'FilesBrowseButtonClick'
-  +#8'TabOrder'#2#0#0#0#7'TButton'#14'FilesAddButton'#19'AnchorSideLeft.Side'#7
-  +#9'asrBottom'#4'Left'#3#31#2#6'Height'#2#29#3'Top'#2#6#5'Width'#2'k'#5'Align'
-  ,#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'Fil'
-  +'esAddButton'#7'OnClick'#7#19'FilesAddButtonClick'#8'TabOrder'#2#1#0#0#7'TBi'
-  +'tBtn'#18'FilesShortenButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'
-  +#3#12#1#6'Height'#2#29#3'Top'#2#6#5'Width'#3#136#0#5'Align'#7#7'alRight'#8'A'
-  +'utoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'FilesShortenButton'
-  +#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#17'FilesDeleteButton'#19'An'
-  +'chorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#154#1#6'Height'#2#29#3'Top'#2#6
-  +#5'Width'#2#127#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'
-  +#2#6#7'Caption'#6#17'FilesDeleteButton'#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0
-  +#7'TButton'#14'FilesDirButton'#4'Left'#3#162#0#6'Height'#2#29#3'Top'#2#6#5'W'
-  +'idth'#2'd'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
-  +#7'Caption'#6#14'FilesDirButton'#7'OnClick'#7#19'FilesDirButtonClick'#8'TabO'
-  +'rder'#2#4#0#0#0#0#0#0
+  +'dMaxVersionEdit'#0#0#0#0#5'TPage'#12'AddFilesPage'#7'Caption'#6#9'Add Files'
+  +#11'ClientWidth'#3#144#2#12'ClientHeight'#3''''#1#0#9'TListView'#13'FilesLis'
+  +'tView'#24'AnchorSideBottom.Control'#7#17'FilesBrowseButton'#4'Left'#2#0#6'H'
+  +'eight'#3#249#0#3'Top'#2#0#5'Width'#3#144#2#5'Align'#7#8'alClient'#20'Border'
+  +'Spacing.Bottom'#2#5#7'Columns'#14#1#7'Caption'#6#8'Filename'#5'Width'#3#200
+  +#0#0#1#7'Caption'#6#4'Type'#5'Width'#3#180#1#0#0#9'ItemIndex'#2#255#11'Multi'
+  +'Select'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#6'TPanel'#16'AddFi'
+  +'lesBtnPanel'#4'Left'#2#0#6'Height'#2')'#3'Top'#3#254#0#5'Width'#3#144#2#5'A'
+  +'lign'#7#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeigh'
+  +'t'#2')'#11'ClientWidth'#3#144#2#8'TabOrder'#2#1#0#7'TButton'#17'FilesBrowse'
+  +'Button'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#28#6'Height'#2#29
+  +#3'Top'#2#6#5'Width'#3#128#0#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSp'
+  +'acing.Around'#2#6#7'Caption'#6#17'FilesBrowseButton'#7'OnClick'#7#22'FilesB'
+  +'rowseButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#14'FilesAddButton'#19'Anch'
+  +'orSideLeft.Side'#7#9'asrBottom'#4'Left'#3#31#2#6'Height'#2#29#3'Top'#2#6#5
+  +'Width'#2'k'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+  +#7'Caption'#6#14'FilesAddButton'#7'OnClick'#7#19'FilesAddButtonClick'#8'TabO'
+  ,'rder'#2#1#0#0#7'TBitBtn'#18'FilesShortenButton'#19'AnchorSideLeft.Side'#7#9
+  +'asrBottom'#4'Left'#3#12#1#6'Height'#2#29#3'Top'#2#6#5'Width'#3#136#0#5'Alig'
+  +'n'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#18
+  +'FilesShortenButton'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#17'File'
+  +'sDeleteButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#154#1#6'Hei'
+  +'ght'#2#29#3'Top'#2#6#5'Width'#2#127#5'Align'#7#7'alRight'#8'AutoSize'#9#20
+  +'BorderSpacing.Around'#2#6#7'Caption'#6#17'FilesDeleteButton'#9'NumGlyphs'#2
+  +#0#8'TabOrder'#2#3#0#0#7'TButton'#14'FilesDirButton'#4'Left'#3#162#0#6'Heigh'
+  +'t'#2#29#3'Top'#2#6#5'Width'#2'd'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'Bor'
+  +'derSpacing.Around'#2#6#7'Caption'#6#14'FilesDirButton'#7'OnClick'#7#19'File'
+  +'sDirButtonClick'#8'TabOrder'#2#4#0#0#0#0#0#0
 ]);
diff --git a/packager/addtopackagedlg.pas b/packager/addtopackagedlg.pas
index f48bd6dc87..6bf5e13321 100644
--- a/packager/addtopackagedlg.pas
+++ b/packager/addtopackagedlg.pas
@@ -81,8 +81,6 @@ type
   { TAddToPackageDlg }
 
   TAddToPackageDlg = class(TForm)
-    AddFileButton: TBitBtn;
-    CancelAddFileButton: TBitBtn;
     CancelDependButton: TBitBtn;
     CancelNewComponentButton: TBitBtn;
     NewCompBtnPanel: TPanel;
@@ -97,7 +95,6 @@ type
     NewFilePage: TPage;
     NewComponentPage: TPage;
     NewRequirementPage: TPage;
-    AddFilePage: TPage;
     AddFilesPage: TPage;
     // new file page
     NewFileTreeView: TTreeView;
@@ -124,12 +121,6 @@ type
     DependMinVersionEdit: TEdit;
     DependMaxVersionLabel: TLabel;
     DependMaxVersionEdit: TEdit;
-    // add file page
-    AddFilenameLabel: TLabel;
-    AddFilenameEdit: TEdit;
-    AddFileBrowseButton: TButton;
-    AddFileShortenButton: TButton;
-    AddFileTypeRadioGroup: TRadioGroup;
     // add files page
     FilesAddButton: TButton;
     FilesDirButton: TButton;
@@ -139,9 +130,6 @@ type
     FilesBrowseButton: TButton;
     NewFileBtnPanel: TPanel;
     AddFilesBtnPanel: TPanel;
-    procedure AddFileBrowseButtonClick(Sender: TObject);
-    procedure AddFileButtonClick(Sender: TObject);
-    procedure AddFileShortenButtonClick(Sender: TObject);
     procedure AddToPackageDlgClose(Sender: TObject;
                                    var CloseAction: TCloseAction);
     procedure AddToPackageDlgKeyDown(Sender: TObject; var Key: Word;
@@ -182,13 +170,11 @@ type
     procedure SetupNewFilePage;
     procedure SetupNewComponentPage;
     procedure SetupAddDependencyPage;
-    procedure SetupAddFilePage;
     procedure SetupAddFilesPage;
     procedure OnIterateComponentClasses(PkgComponent: TPkgComponent);
     procedure OnIteratePackages(APackageID: TLazPackageID);
     procedure AutoCompleteNewComponent;
     procedure AutoCompleteNewComponentUnitName;
-    procedure UpdateAddFileInfo;
     function SwitchRelativeAbsoluteFilename(const Filename: string): string;
     procedure FillNewFileTreeView;
     function FindFileInFilesList(AFilename: string): Integer;
@@ -438,91 +424,6 @@ begin
     ModalResult:=mrCancel;
 end;
 
-procedure TAddToPackageDlg.AddFileShortenButtonClick(Sender: TObject);
-begin
-  if lisA2PchooseAnExistingFile=AddFilenameEdit.Text then exit;
-  AddFilenameEdit.Text:=
-    SwitchRelativeAbsoluteFilename(AddFilenameEdit.Text);
-end;
-
-procedure TAddToPackageDlg.AddFileBrowseButtonClick(Sender: TObject);
-var
-  OpenDialog: TOpenDialog;
-  AFilename: string;
-begin
-  OpenDialog:=TOpenDialog.Create(nil);
-  try
-    InputHistories.ApplyFileDialogSettings(OpenDialog);
-    OpenDialog.InitialDir:=
-      LazPackage.GetFileDialogInitialDir(OpenDialog.InitialDir);
-    OpenDialog.Title:=lisOpenFile;
-    OpenDialog.Options:=OpenDialog.Options+[ofFileMustExist,ofPathMustExist];
-    OpenDialog.Filter:=lisLazarusFile+' (*.pas;*.pp;*.inc;*.lfm;*.lrs;*.xml)|*.'
-      +'pas;*.pp;*.inc;*.lfm;*.lrs;*.xml'
-      +'|'+lisPascalUnit+' (*.pp;*.pas)|*.pp;*.pas'
-      +'|'+lisPascalSourceFile+' (*.pas)|*.pas'
-      +'|'+lisFreePascalSourceFile+' (*.pp)|*.pp'
-      +'|'+lisPkgFileTypeIssues+' (*.xml)|*.xml'
-      +'|'+dlgAllFiles+' ('+GetAllFilesMask+')|'+GetAllFilesMask;
-    if OpenDialog.Execute then begin
-      AFilename:=CleanAndExpandFilename(OpenDialog.Filename);
-      if FileExistsUTF8(AFilename) then begin
-        LazPackage.ShortenFilename(AFilename,true);
-        AddFilenameEdit.Text:=AFilename;
-        UpdateAddFileInfo;
-      end;
-    end;
-    InputHistories.StoreFileDialogSettings(OpenDialog);
-  finally
-    OpenDialog.Free;
-  end;
-end;
-
-procedure TAddToPackageDlg.AddFileButtonClick(Sender: TObject);
-var
-  i: Integer;
-  CurPFT: TPkgFileType;
-  Filename: String;
-begin
-  Filename:=AddFilenameEdit.Text;
-  if Filename='' then exit;
-  LazPackage.LongenFilename(Filename);
-
-  Params.Clear;
-  Params.AddType:=d2ptUnit;
-  Params.UnitFilename:=Filename;
-  Params.FileType:=pftText;
-  Params.Unit_Name:='';
-  Params.PkgFileFlags:=[];
-
-  if not FileExistsUTF8(Params.UnitFilename) then begin
-    MessageDlg(lisFileNotFound,
-      Format(lisPkgMangFileNotFound, ['"', Params.UnitFilename, '"']),
-      mtError,[mbCancel],0);
-    exit;
-  end;
-  if LazPackage.FindPkgFile(Params.UnitFilename,true,false)<>nil then begin
-    MessageDlg(lisA2PFileAlreadyInPackage,
-      Format(lisA2PTheFileIsAlreadyInThePackage, ['"', Params.UnitFilename, '"']
-        ),
-      mtError,[mbCancel],0);
-    exit;
-  end;
-  
-  i:=0;
-  for CurPFT:=Low(TPkgFileType) to High(TPkgFileType) do begin
-    if CurPFT=pftVirtualUnit then continue;
-    if i=AddFileTypeRadioGroup.ItemIndex then begin
-      Params.FileType:=CurPFT;
-    end;
-    inc(i);
-  end;
-  if Params.FileType in PkgFileUnitTypes then
-    Include(Params.PkgFileFlags,pffAddToPkgUsesSection);
-
-  ModalResult:=mrOk;
-end;
-
 procedure TAddToPackageDlg.AncestorComboBoxCloseUp(Sender: TObject);
 begin
   if fLastNewComponentAncestorType<>AncestorComboBox.Text then
@@ -1046,14 +947,12 @@ begin
   NewFilePage.Caption:=lisA2PNewFile;
   NewComponentPage.Caption:=lisA2PNewComponent;
   NewRequirementPage.Caption:=lisProjAddNewRequirement;
-  AddFilePage.Caption:=lisA2PAddFile;
   AddFilesPage.Caption:=lisA2PAddFiles;
   NoteBook.PageIndex:=0;
 
   SetupNewFilePage;
   SetupNewComponentPage;
   SetupAddDependencyPage;
-  SetupAddFilePage;
   SetupAddFilesPage;
 end;
 
@@ -1180,48 +1079,6 @@ begin
   end;
 end;
 
-procedure TAddToPackageDlg.SetupAddFilePage;
-var
-  pft: TPkgFileType;
-begin
-  with AddFilenameLabel do begin
-    Caption:=lisA2PFileName;
-  end;
-
-  with AddFilenameEdit do begin
-    Text:=lisA2PchooseAnExistingFile;
-  end;
-
-  with AddFileBrowseButton do begin
-    Caption:='...';
-  end;
-
-  with AddFileShortenButton do begin
-    Caption:='<>';
-  end;
-
-  with AddFileTypeRadioGroup do begin
-    Caption:=lisAF2PFileType;
-    with Items do begin
-      BeginUpdate;
-      Clear;
-      for pft:=Low(TPkgFileType) to High(TPkgFileType) do begin
-        if pft=pftVirtualUnit then continue;
-        Add(GetPkgFileTypeLocalizedName(pft));
-      end;
-      EndUpdate;
-    end;
-  end;
-
-  with AddFileButton do begin
-    Caption:=lisLazBuildOk;
-  end;
-
-  with CancelAddFileButton do begin
-    Caption:=dlgCancel;
-  end;
-end;
-
 procedure TAddToPackageDlg.SetupAddFilesPage;
 var
   CurColumn: TListColumn;
@@ -1325,25 +1182,6 @@ begin
   ComponentUnitFileEdit.Text:=NewFileName;
 end;
 
-procedure TAddToPackageDlg.UpdateAddFileInfo;
-var
-  CurFilename: String;
-  NewPFT: TPkgFileType;
-  CurPFT: TPkgFileType;
-  i: Integer;
-begin
-  CurFilename:=AddFilenameEdit.Text;
-  NewPFT:=FileNameToPkgFileType(CurFilename);
-  if NewPFT=pftVirtualUnit then NewPFT:=pftUnit;
-  i:=0;
-  for CurPFT:=Low(TPkgFileType) to High(TPkgFileType) do begin
-    if CurPFT=pftVirtualUnit then continue;
-    if CurPFT=NewPFT then break;
-    inc(i);
-  end;
-  AddFileTypeRadioGroup.ItemIndex:=i;
-end;
-
 function TAddToPackageDlg.SwitchRelativeAbsoluteFilename(const Filename: string
   ): string;
 begin