mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 04:07:57 +02:00
IDE: add to package dlg removed add file page
git-svn-id: trunk@23113 -
This commit is contained in:
mattias
parent
e836d6fa07
commit
f07bb4f62a
@ -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
|
||||
|
||||
@ -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
|
||||
]);
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user