mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-17 04:29:25 +02:00
Packager: improve the Add to Package dialog GUI
git-svn-id: trunk@35206 -
This commit is contained in:
juha
parent
b74c59a9db
commit
4eee49aac4
@ -1059,7 +1059,6 @@ resourcestring
|
||||
lisCMParameter = 'Parameter';
|
||||
lisInsertMacro = 'Insert Macro';
|
||||
lisCTPleaseSelectAMacro = 'please select a macro';
|
||||
lisA2PCreateNewFile = 'Create new file';
|
||||
dlgEnvLanguage = 'Language';
|
||||
dlgAutoSave = 'Auto Save';
|
||||
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
|
||||
@ -4357,8 +4356,11 @@ resourcestring
|
||||
lisCompTest = '&Test';
|
||||
|
||||
lisA2PSwitchPaths = 'Switch Paths';
|
||||
lisA2PAddFilesToPackage = 'Add files to package';
|
||||
lisA2PAddFilesToPackage = 'Add Files to Package';
|
||||
lisA2PAddToPackage = 'Add to package';
|
||||
lisA2PCreateNewFile = 'Create New File';
|
||||
lisA2PCreateNewComp = 'Create New Component';
|
||||
lisA2PCreateNewReq = 'Create New Requirement';
|
||||
lisA2PFilename2 = 'Filename';
|
||||
lisFRIFindOrRenameIdentifier = 'Find or Rename Identifier';
|
||||
lisHelpSelectorDialog = 'Help selector';
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
object AddToPackageDlg: TAddToPackageDlg
|
||||
Left = 395
|
||||
Left = 413
|
||||
Height = 322
|
||||
Top = 386
|
||||
Top = 604
|
||||
Width = 658
|
||||
ActiveControl = PageControl1
|
||||
Caption = 'Add to package'
|
||||
@ -16,26 +16,27 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
LCLVersion = '0.9.31'
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 322
|
||||
Height = 284
|
||||
Top = 0
|
||||
Width = 658
|
||||
ActivePage = AddFilesPage
|
||||
ActivePage = NewFilePage
|
||||
Align = alClient
|
||||
TabIndex = 3
|
||||
TabIndex = 0
|
||||
TabOrder = 0
|
||||
OnChange = PageControl1Change
|
||||
object NewFilePage: TTabSheet
|
||||
Caption = 'New File'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 656
|
||||
ClientHeight = 255
|
||||
ClientWidth = 650
|
||||
OnResize = NewFilePageResize
|
||||
object NewFileTreeView: TTreeView
|
||||
Left = 0
|
||||
Height = 249
|
||||
Height = 250
|
||||
Top = 0
|
||||
Width = 249
|
||||
Align = alLeft
|
||||
BorderSpacing.Bottom = 5
|
||||
DefaultItemHeight = 19
|
||||
DefaultItemHeight = 16
|
||||
ReadOnly = True
|
||||
RightClickSelect = True
|
||||
TabOrder = 0
|
||||
@ -47,153 +48,39 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
object NewFileDescriptionGroupBox: TGroupBox
|
||||
AnchorSideLeft.Control = NewFileTreeView
|
||||
Left = 249
|
||||
Height = 249
|
||||
Height = 250
|
||||
Top = 0
|
||||
Width = 407
|
||||
Width = 401
|
||||
Align = alClient
|
||||
BorderSpacing.Bottom = 5
|
||||
Caption = 'NewFileDescriptionGroupBox'
|
||||
ClientHeight = 230
|
||||
ClientWidth = 403
|
||||
ClientHeight = 231
|
||||
ClientWidth = 395
|
||||
TabOrder = 1
|
||||
object NewFileHelpLabel: TLabel
|
||||
Left = 0
|
||||
Height = 245
|
||||
Height = 231
|
||||
Top = 0
|
||||
Width = 403
|
||||
Width = 395
|
||||
Align = alClient
|
||||
Caption = 'NewFileHelpLabel'
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
object NewFileBtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 41
|
||||
Top = 254
|
||||
Width = 656
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 41
|
||||
ClientWidth = 656
|
||||
TabOrder = 2
|
||||
object NewFileOkButton: TBitBtn
|
||||
Left = 342
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 138
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'NewFileOkButton'
|
||||
Constraints.MinWidth = 75
|
||||
Enabled = False
|
||||
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 = NewFileOkButtonClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object NewFileCancelButton: TBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 486
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 164
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'NewFileCancelButton'
|
||||
Constraints.MinWidth = 75
|
||||
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
|
||||
}
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
object NewComponentPage: TTabSheet
|
||||
Caption = 'New Component'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 656
|
||||
ClientHeight = 255
|
||||
ClientWidth = 650
|
||||
OnResize = NewComponentPageResize
|
||||
object AncestorTypeLabel: TLabel
|
||||
AnchorSideTop.Control = AncestorComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 5
|
||||
Height = 18
|
||||
Height = 15
|
||||
Top = 10
|
||||
Width = 123
|
||||
Width = 107
|
||||
Caption = 'AncestorTypeLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -201,9 +88,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Control = ClassNameEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 5
|
||||
Height = 18
|
||||
Top = 43
|
||||
Width = 110
|
||||
Height = 15
|
||||
Top = 38
|
||||
Width = 94
|
||||
Caption = 'ClassNameLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -211,9 +98,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Control = PalettePageCombobox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 5
|
||||
Height = 18
|
||||
Top = 76
|
||||
Width = 112
|
||||
Height = 15
|
||||
Top = 66
|
||||
Width = 98
|
||||
Caption = 'PalettePageLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -221,9 +108,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Control = ComponentUnitFileEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 5
|
||||
Height = 18
|
||||
Top = 109
|
||||
Width = 161
|
||||
Height = 15
|
||||
Top = 94
|
||||
Width = 136
|
||||
Caption = 'ComponentUnitFileLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -231,9 +118,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Control = ComponentUnitNameEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 5
|
||||
Height = 18
|
||||
Top = 142
|
||||
Width = 177
|
||||
Height = 15
|
||||
Top = 122
|
||||
Width = 151
|
||||
Caption = 'ComponentUnitNameLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -241,11 +128,12 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = NewComponentPage
|
||||
Left = 184
|
||||
Height = 27
|
||||
Height = 22
|
||||
Top = 6
|
||||
Width = 200
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
OnChange = AncestorComboBoxChange
|
||||
OnCloseUp = AncestorComboBoxCloseUp
|
||||
TabOrder = 0
|
||||
Text = 'AncestorComboBox'
|
||||
@ -256,9 +144,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Control = AncestorComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 384
|
||||
Height = 22
|
||||
Top = 8
|
||||
Width = 202
|
||||
Height = 21
|
||||
Top = 7
|
||||
Width = 175
|
||||
Caption = 'AncestorShowAllCheckBox'
|
||||
Checked = True
|
||||
OnClick = AncestorShowAllCheckBoxClick
|
||||
@ -272,8 +160,8 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideRight.Control = AncestorComboBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 184
|
||||
Height = 27
|
||||
Top = 39
|
||||
Height = 22
|
||||
Top = 34
|
||||
Width = 200
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
@ -288,8 +176,8 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideRight.Control = AncestorComboBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 184
|
||||
Height = 27
|
||||
Top = 72
|
||||
Height = 22
|
||||
Top = 62
|
||||
Width = 200
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
@ -302,9 +190,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = ComponentUnitFileBrowseButton
|
||||
Left = 184
|
||||
Height = 27
|
||||
Top = 105
|
||||
Width = 300
|
||||
Height = 22
|
||||
Top = 90
|
||||
Width = 410
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
TabOrder = 4
|
||||
@ -315,11 +203,11 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Control = ComponentUnitFileEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = ComponentUnitFileShortenButton
|
||||
Left = 484
|
||||
Height = 27
|
||||
Left = 594
|
||||
Height = 23
|
||||
Hint = 'Save file dialog'
|
||||
Top = 105
|
||||
Width = 85
|
||||
Top = 90
|
||||
Width = 25
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
Caption = '...'
|
||||
@ -334,11 +222,11 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = NewComponentPage
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 569
|
||||
Height = 27
|
||||
Left = 619
|
||||
Height = 23
|
||||
Hint = 'Shorten or expand filename'
|
||||
Top = 105
|
||||
Width = 85
|
||||
Top = 90
|
||||
Width = 31
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
Caption = '<>'
|
||||
@ -354,135 +242,23 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideRight.Control = AncestorComboBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 184
|
||||
Height = 27
|
||||
Top = 138
|
||||
Height = 22
|
||||
Top = 118
|
||||
Width = 200
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
OnChange = ComponentUnitNameEditChange
|
||||
TabOrder = 7
|
||||
Text = 'ComponentUnitNameEdit'
|
||||
end
|
||||
object NewCompBtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 39
|
||||
Top = 250
|
||||
Width = 654
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 39
|
||||
ClientWidth = 654
|
||||
TabOrder = 8
|
||||
object NewComponentButton: TBitBtn
|
||||
Left = 228
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 185
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'NewComponentButton'
|
||||
Constraints.MinWidth = 75
|
||||
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 = NewComponentButtonClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object CancelNewComponentButton: TBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 419
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 229
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'CancelNewComponentButton'
|
||||
Constraints.MinWidth = 75
|
||||
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 = CancelNewComponentButtonClick
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ComponentIconLabel: TLabel
|
||||
AnchorSideLeft.Control = ComponentUnitNameLabel
|
||||
AnchorSideTop.Control = ComponentIconSpeedButton
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 5
|
||||
Height = 18
|
||||
Top = 175
|
||||
Width = 138
|
||||
Height = 15
|
||||
Top = 152
|
||||
Width = 119
|
||||
Caption = 'ComponentIconLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -492,7 +268,7 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 184
|
||||
Height = 26
|
||||
Top = 171
|
||||
Top = 146
|
||||
Width = 28
|
||||
BorderSpacing.Top = 6
|
||||
NumGlyphs = 0
|
||||
@ -503,127 +279,13 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
end
|
||||
object NewRequirementPage: TTabSheet
|
||||
Caption = 'New Requirement'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 656
|
||||
object NewDepBtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 41
|
||||
Top = 254
|
||||
Width = 656
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 41
|
||||
ClientWidth = 656
|
||||
TabOrder = 0
|
||||
object CancelDependButton: TBitBtn
|
||||
AnchorSideLeft.Control = NewDependButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 483
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 167
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'CancelDependButton'
|
||||
Constraints.MinWidth = 75
|
||||
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
|
||||
}
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object NewDependButton: TBitBtn
|
||||
Left = 326
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 151
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'NewDependButton'
|
||||
Constraints.MinWidth = 75
|
||||
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 = NewDependButtonClick
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
ClientHeight = 255
|
||||
ClientWidth = 650
|
||||
object NewDepPanel: TPanel
|
||||
Left = 0
|
||||
Height = 254
|
||||
Height = 255
|
||||
Top = 0
|
||||
Width = 656
|
||||
Width = 650
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -632,14 +294,14 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
ChildSizing.VerticalSpacing = 6
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 254
|
||||
ClientWidth = 656
|
||||
TabOrder = 1
|
||||
ClientHeight = 255
|
||||
ClientWidth = 650
|
||||
TabOrder = 0
|
||||
object DependPkgNameLabel: TLabel
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 10
|
||||
Width = 147
|
||||
Height = 15
|
||||
Top = 9
|
||||
Width = 127
|
||||
BorderSpacing.CellAlignHorizontal = ccaLeftTop
|
||||
BorderSpacing.CellAlignVertical = ccaCenter
|
||||
Caption = 'DependPkgNameLabel'
|
||||
@ -647,20 +309,21 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
end
|
||||
object DependPkgNameComboBox: TComboBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 170
|
||||
Height = 27
|
||||
Left = 151
|
||||
Height = 22
|
||||
Top = 6
|
||||
Width = 200
|
||||
Constraints.MinWidth = 200
|
||||
ItemHeight = 0
|
||||
OnChange = DependPkgNameComboBoxChange
|
||||
TabOrder = 0
|
||||
Text = 'DependPkgNameComboBox'
|
||||
end
|
||||
object DependMinVersionLabel: TLabel
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 42
|
||||
Width = 154
|
||||
Height = 15
|
||||
Top = 37
|
||||
Width = 135
|
||||
BorderSpacing.CellAlignHorizontal = ccaLeftTop
|
||||
BorderSpacing.CellAlignVertical = ccaCenter
|
||||
Caption = 'DependMinVersionLabel'
|
||||
@ -668,9 +331,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
end
|
||||
object DependMinVersionEdit: TEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 170
|
||||
Height = 25
|
||||
Top = 39
|
||||
Left = 151
|
||||
Height = 22
|
||||
Top = 34
|
||||
Width = 200
|
||||
BorderSpacing.Top = 6
|
||||
TabOrder = 1
|
||||
@ -678,9 +341,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
end
|
||||
object DependMaxVersionLabel: TLabel
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 73
|
||||
Width = 158
|
||||
Height = 15
|
||||
Top = 65
|
||||
Width = 139
|
||||
BorderSpacing.CellAlignHorizontal = ccaLeftTop
|
||||
BorderSpacing.CellAlignVertical = ccaCenter
|
||||
Caption = 'DependMaxVersionLabel'
|
||||
@ -688,9 +351,9 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
end
|
||||
object DependMaxVersionEdit: TEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 170
|
||||
Height = 25
|
||||
Top = 70
|
||||
Left = 151
|
||||
Height = 22
|
||||
Top = 62
|
||||
Width = 200
|
||||
BorderSpacing.Top = 6
|
||||
TabOrder = 2
|
||||
@ -700,14 +363,13 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
end
|
||||
object AddFilesPage: TTabSheet
|
||||
Caption = 'Add Files'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 656
|
||||
ClientHeight = 255
|
||||
ClientWidth = 650
|
||||
object FilesListView: TListView
|
||||
AnchorSideBottom.Control = FilesBrowseButton
|
||||
Left = 0
|
||||
Height = 249
|
||||
Height = 214
|
||||
Top = 0
|
||||
Width = 656
|
||||
Width = 650
|
||||
Align = alClient
|
||||
BorderSpacing.Bottom = 5
|
||||
Columns = <
|
||||
@ -722,85 +384,183 @@ object AddToPackageDlg: TAddToPackageDlg
|
||||
MultiSelect = True
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
OnClick = FilesListViewClick
|
||||
end
|
||||
object AddFilesBtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 41
|
||||
Top = 254
|
||||
Width = 656
|
||||
Height = 36
|
||||
Top = 219
|
||||
Width = 650
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 41
|
||||
ClientWidth = 656
|
||||
ClientHeight = 36
|
||||
ClientWidth = 650
|
||||
TabOrder = 1
|
||||
object FilesBrowseButton: TButton
|
||||
Left = 16
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 133
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'FilesBrowseButton'
|
||||
OnClick = FilesBrowseButtonClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object FilesAddButton: TButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 540
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 110
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'FilesAddButton'
|
||||
Enabled = False
|
||||
OnClick = FilesAddButtonClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object FilesShortenButton: TBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 265
|
||||
Height = 29
|
||||
Left = 224
|
||||
Height = 24
|
||||
Top = 6
|
||||
Width = 135
|
||||
Align = alRight
|
||||
Width = 118
|
||||
Align = alLeft
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'FilesShortenButton'
|
||||
NumGlyphs = 0
|
||||
OnClick = FilesShortenButtonClick
|
||||
TabOrder = 2
|
||||
TabOrder = 0
|
||||
end
|
||||
object FilesDeleteButton: TBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 406
|
||||
Height = 29
|
||||
Left = 348
|
||||
Height = 24
|
||||
Top = 6
|
||||
Width = 128
|
||||
Align = alRight
|
||||
Width = 110
|
||||
Align = alLeft
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'FilesDeleteButton'
|
||||
NumGlyphs = 0
|
||||
OnClick = FilesDeleteButtonClick
|
||||
TabOrder = 3
|
||||
TabOrder = 1
|
||||
end
|
||||
object FilesDirButton: TButton
|
||||
Left = 155
|
||||
Height = 29
|
||||
object FilesBrowseButton: TBitBtn
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 6
|
||||
Width = 104
|
||||
Align = alRight
|
||||
Width = 116
|
||||
Align = alLeft
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'FilesBrowseButton'
|
||||
OnClick = FilesBrowseButtonClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object FilesDirButton: TBitBtn
|
||||
Left = 128
|
||||
Height = 24
|
||||
Top = 6
|
||||
Width = 90
|
||||
Align = alLeft
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'FilesDirButton'
|
||||
OnClick = FilesDirButtonClick
|
||||
TabOrder = 4
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object NewFileBtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 38
|
||||
Top = 284
|
||||
Width = 658
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 38
|
||||
ClientWidth = 658
|
||||
TabOrder = 1
|
||||
object OkButton: TBitBtn
|
||||
Left = 437
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 93
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'OkButton'
|
||||
Constraints.MinWidth = 75
|
||||
Enabled = False
|
||||
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
|
||||
TabOrder = 0
|
||||
end
|
||||
object CancelButton: TBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 536
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 116
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'CancelButton'
|
||||
Constraints.MinWidth = 75
|
||||
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
|
||||
}
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -81,8 +81,8 @@ type
|
||||
{ TAddToPackageDlg }
|
||||
|
||||
TAddToPackageDlg = class(TForm)
|
||||
CancelDependButton: TBitBtn;
|
||||
CancelNewComponentButton: TBitBtn;
|
||||
FilesBrowseButton: TBitBtn;
|
||||
FilesDirButton: TBitBtn;
|
||||
// PageControl1
|
||||
PageControl1: TPageControl;
|
||||
NewFilePage: TTabSheet;
|
||||
@ -93,11 +93,8 @@ type
|
||||
NewFileTreeView: TTreeView;
|
||||
NewFileDescriptionGroupBox: TGroupBox;
|
||||
NewFileHelpLabel: TLabel;
|
||||
NewFileCancelButton: TBitBtn;
|
||||
NewFileOkButton: TBitBtn;
|
||||
// new component page
|
||||
NewCompBtnPanel: TPanel;
|
||||
NewComponentButton: TBitBtn;
|
||||
CancelButton: TBitBtn;
|
||||
OkButton: TBitBtn;
|
||||
AncestorTypeLabel: TLabel;
|
||||
AncestorComboBox: TComboBox;
|
||||
AncestorShowAllCheckBox: TCheckBox;
|
||||
@ -113,9 +110,6 @@ type
|
||||
ComponentUnitFileShortenButton: TButton;
|
||||
ComponentUnitNameLabel: TLabel;
|
||||
ComponentUnitNameEdit: TEdit;
|
||||
// new required package
|
||||
NewDepBtnPanel: TPanel;
|
||||
NewDependButton: TBitBtn;
|
||||
NewDepPanel: TPanel;
|
||||
DependPkgNameLabel: TLabel;
|
||||
DependPkgNameComboBox: TComboBox;
|
||||
@ -123,32 +117,31 @@ type
|
||||
DependMinVersionEdit: TEdit;
|
||||
DependMaxVersionLabel: TLabel;
|
||||
DependMaxVersionEdit: TEdit;
|
||||
// add files page
|
||||
FilesAddButton: TButton;
|
||||
FilesDirButton: TButton;
|
||||
FilesDeleteButton: TBitBtn;
|
||||
FilesShortenButton: TBitBtn;
|
||||
FilesListView: TListView;
|
||||
FilesBrowseButton: TButton;
|
||||
NewFileBtnPanel: TPanel;
|
||||
AddFilesBtnPanel: TPanel;
|
||||
procedure AddToPackageDlgClose(Sender: TObject;
|
||||
var CloseAction: TCloseAction);
|
||||
procedure AddToPackageDlgKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure AncestorComboBoxChange(Sender: TObject);
|
||||
procedure AncestorComboBoxCloseUp(Sender: TObject);
|
||||
procedure AncestorShowAllCheckBoxClick(Sender: TObject);
|
||||
procedure CancelAddFileButtonClick(Sender: TObject);
|
||||
procedure CancelAddUnitButtonClick(Sender: TObject);
|
||||
procedure CancelNewComponentButtonClick(Sender: TObject);
|
||||
procedure ClassNameEditChange(Sender: TObject);
|
||||
procedure ComponentIconSpeedButtonClick(Sender: TObject);
|
||||
procedure ComponentUnitFileBrowseButtonClick(Sender: TObject);
|
||||
procedure ComponentUnitFileShortenButtonClick(Sender: TObject);
|
||||
procedure ComponentUnitNameEditChange(Sender: TObject);
|
||||
procedure DependPkgNameComboBoxChange(Sender: TObject);
|
||||
procedure FilesAddButtonClick(Sender: TObject);
|
||||
procedure FilesBrowseButtonClick(Sender: TObject);
|
||||
procedure FilesDeleteButtonClick(Sender: TObject);
|
||||
procedure FilesDirButtonClick(Sender: TObject);
|
||||
procedure FilesListViewClick(Sender: TObject);
|
||||
procedure FilesShortenButtonClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
@ -160,6 +153,7 @@ type
|
||||
procedure NewFileTreeViewClick(Sender: TObject);
|
||||
procedure NewFileTreeViewDblClick(Sender: TObject);
|
||||
procedure NewFileTreeViewSelectionChanged(Sender: TObject);
|
||||
procedure PageControl1Change(Sender: TObject);
|
||||
private
|
||||
fLastNewComponentAncestorType: string;
|
||||
fLastNewComponentClassName: string;
|
||||
@ -179,6 +173,9 @@ type
|
||||
procedure SetupAddFilesPage;
|
||||
procedure OnIterateComponentClasses(PkgComponent: TPkgComponent);
|
||||
procedure OnIteratePackages(APackageID: TLazPackageID);
|
||||
function CheckNewCompOk: Boolean;
|
||||
function CheckNewReqOk: Boolean;
|
||||
function CheckFilesButtonsOk: Boolean;
|
||||
procedure AutoCompleteNewComponent;
|
||||
procedure AutoCompleteNewComponentUnitName;
|
||||
function SwitchRelativeAbsoluteFilename(const Filename: string): string;
|
||||
@ -501,6 +498,11 @@ begin
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.AncestorComboBoxChange(Sender: TObject);
|
||||
begin
|
||||
CheckNewCompOk;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.AncestorComboBoxCloseUp(Sender: TObject);
|
||||
begin
|
||||
if fLastNewComponentAncestorType<>AncestorComboBox.Text then
|
||||
@ -522,14 +524,10 @@ begin
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.CancelNewComponentButtonClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.ClassNameEditChange(Sender: TObject);
|
||||
begin
|
||||
AutoCompleteNewComponentUnitName;
|
||||
CheckNewCompOk;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.ComponentIconSpeedButtonClick(Sender: TObject);
|
||||
@ -587,8 +585,17 @@ end;
|
||||
procedure TAddToPackageDlg.ComponentUnitFileShortenButtonClick(Sender: TObject);
|
||||
begin
|
||||
if ''=ComponentUnitFileEdit.Text then exit;
|
||||
ComponentUnitFileEdit.Text:=
|
||||
SwitchRelativeAbsoluteFilename(ComponentUnitFileEdit.Text);
|
||||
ComponentUnitFileEdit.Text:=SwitchRelativeAbsoluteFilename(ComponentUnitFileEdit.Text);
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.ComponentUnitNameEditChange(Sender: TObject);
|
||||
begin
|
||||
CheckNewCompOk;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.DependPkgNameComboBoxChange(Sender: TObject);
|
||||
begin
|
||||
CheckNewReqOk;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.FilesAddButtonClick(Sender: TObject);
|
||||
@ -681,7 +688,7 @@ begin
|
||||
LastParams:=CurParams;
|
||||
inc(i);
|
||||
end;
|
||||
FilesAddButton.Enabled:=FilesListView.Items.Count>0;
|
||||
OkButton.Enabled:=FilesListView.Items.Count>0;
|
||||
ok:=LastParams<>nil;
|
||||
finally
|
||||
if not ok then Params.Clear;
|
||||
@ -703,8 +710,7 @@ begin
|
||||
OpenDialog:=TOpenDialog.Create(nil);
|
||||
try
|
||||
InputHistories.ApplyFileDialogSettings(OpenDialog);
|
||||
OpenDialog.InitialDir:=
|
||||
LazPackage.GetFileDialogInitialDir(OpenDialog.InitialDir);
|
||||
OpenDialog.InitialDir:=LazPackage.GetFileDialogInitialDir(OpenDialog.InitialDir);
|
||||
OpenDialog.Title:=lisOpenFile;
|
||||
OpenDialog.Options:=OpenDialog.Options
|
||||
+[ofFileMustExist,ofPathMustExist,ofAllowMultiSelect];
|
||||
@ -729,7 +735,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
InputHistories.StoreFileDialogSettings(OpenDialog);
|
||||
FilesAddButton.Enabled:=FilesListView.Items.Count>0;
|
||||
CheckFilesButtonsOk;
|
||||
finally
|
||||
OpenDialog.Free;
|
||||
end;
|
||||
@ -742,7 +748,7 @@ begin
|
||||
for i:=FilesListView.Items.Count-1 downto 0 do
|
||||
if FilesListView.Items[i].Selected then
|
||||
FilesListView.Items.Delete(i);
|
||||
FilesAddButton.Enabled:=FilesListView.Items.Count>0;
|
||||
CheckFilesButtonsOk;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.FilesDirButtonClick(Sender: TObject);
|
||||
@ -766,12 +772,17 @@ begin
|
||||
NewListItem.SubItems.Add(GetPkgFileTypeLocalizedName(NewPgkFileType));
|
||||
end;
|
||||
end;
|
||||
FilesAddButton.Enabled:=FilesListView.Items.Count>0;
|
||||
CheckFilesButtonsOk;
|
||||
finally
|
||||
Files.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.FilesListViewClick(Sender: TObject);
|
||||
begin
|
||||
CheckFilesButtonsOk;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.FilesShortenButtonClick(Sender: TObject);
|
||||
var
|
||||
SwitchToAbsolute: Boolean;
|
||||
@ -792,12 +803,21 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAddToPackageDlg.CheckFilesButtonsOk: Boolean;
|
||||
begin
|
||||
FilesDeleteButton.Enabled:=FilesListView.SelCount>0;
|
||||
Result:=FilesListView.Items.Count>0;
|
||||
FilesShortenButton.Enabled:=Result;
|
||||
OkButton.Enabled:=Result;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Caption:=lisA2PAddToPackage;
|
||||
fPkgComponents:=TAVLTree.Create(@CompareIDEComponentByClassName);
|
||||
fPackages:=TAVLTree.Create(@CompareLazPackageID);
|
||||
Params:=TAddToPkgResult.Create;
|
||||
|
||||
IDEDialogLayoutList.ApplyLayout(Self,500,300);
|
||||
SetupComponents;
|
||||
end;
|
||||
@ -830,8 +850,7 @@ begin
|
||||
// check Ancestor Type
|
||||
if not IsValidIdent(Params.AncestorType) then begin
|
||||
IDEMessageDialog(lisA2PInvalidAncestorType,
|
||||
Format(lisA2PTheAncestorTypeIsNotAValidPascalIdentifier, ['"',
|
||||
Params.AncestorType, '"']),
|
||||
Format(lisA2PTheAncestorTypeIsNotAValidPascalIdentifier, ['"',Params.AncestorType, '"']),
|
||||
mtError,[mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
@ -839,8 +858,7 @@ begin
|
||||
// check pagename
|
||||
if length(Params.PageName)>100 then begin
|
||||
IDEMessageDialog(lisA2PPageNameTooLong,
|
||||
Format(lisA2PThePageNameIsTooLongMax100Chars, ['"', Params.PageName, '"']
|
||||
),
|
||||
Format(lisA2PThePageNameIsTooLongMax100Chars, ['"', Params.PageName, '"']),
|
||||
mtError,[mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
@ -849,8 +867,7 @@ begin
|
||||
if AnsiCompareText(Params.Unit_name,ExtractFileNameOnly(Params.UnitFilename))<>0
|
||||
then begin
|
||||
IDEMessageDialog(lisA2PUnitNameInvalid,
|
||||
Format(lisA2PTheUnitNameDoesNotCorrespondToTheFilename, ['"',
|
||||
Params.Unit_Name, '"']),
|
||||
Format(lisA2PTheUnitNameDoesNotCorrespondToTheFilename, ['"',Params.Unit_Name, '"']),
|
||||
mtError,[mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
@ -858,8 +875,7 @@ begin
|
||||
// check classname
|
||||
if not IsValidIdent(Params.NewClassName) then begin
|
||||
IDEMessageDialog(lisA2PInvalidClassName,
|
||||
Format(lisA2PTheClassNameIsNotAValidPascalIdentifier, ['"',
|
||||
Params.NewClassName, '"']),
|
||||
Format(lisA2PTheClassNameIsNotAValidPascalIdentifier, ['"',Params.NewClassName, '"']),
|
||||
mtError,[mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
@ -867,8 +883,7 @@ begin
|
||||
// check classname<>ancestortype
|
||||
if AnsiCompareText(Params.NewClassName,Params.AncestorType)=0 then begin
|
||||
IDEMessageDialog(lisA2PInvalidCircularDependency,
|
||||
Format(lisA2PTheClassNameAndAncestorTypeAreTheSame, ['"',
|
||||
Params.NewClassName, '"', '"', Params.AncestorType, '"']),
|
||||
Format(lisA2PTheClassNameAndAncestorTypeAreTheSame, ['"',Params.NewClassName, '"', '"', Params.AncestorType, '"']),
|
||||
mtError,[mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
@ -877,8 +892,7 @@ begin
|
||||
PkgFile:=PackageGraph.FindUnit(LazPackage,Params.AncestorType,true,true);
|
||||
if PkgFile<>nil then begin
|
||||
if IDEMessageDialog(lisA2PAmbiguousAncestorType,
|
||||
Format(lisA2PTheAncestorTypeHasTheSameNameAsTheUnit, ['"',
|
||||
Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
|
||||
Format(lisA2PTheAncestorTypeHasTheSameNameAsTheUnit, ['"',Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
|
||||
mtError,[mbCancel,mbIgnore])<>mrIgnore
|
||||
then
|
||||
exit;
|
||||
@ -888,20 +902,17 @@ begin
|
||||
PkgFile:=PackageGraph.FindUnit(LazPackage,Params.NewClassName,true,true);
|
||||
if PkgFile<>nil then begin
|
||||
if IDEMessageDialog(lisA2PAmbiguousClassName,
|
||||
Format(lisA2PTheClassNameHasTheSameNameAsTheUnit, ['"',
|
||||
Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
|
||||
Format(lisA2PTheClassNameHasTheSameNameAsTheUnit, ['"',Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
|
||||
mtError,[mbCancel,mbIgnore])<>mrIgnore
|
||||
then
|
||||
exit;
|
||||
end;
|
||||
|
||||
// check if classname already exists
|
||||
PkgComponent:=
|
||||
TPkgComponent(IDEComponentPalette.FindComponent(Params.NewClassname));
|
||||
PkgComponent:=TPkgComponent(IDEComponentPalette.FindComponent(Params.NewClassname));
|
||||
if PkgComponent<>nil then begin
|
||||
if IDEMessageDialog(lisA2PClassNameAlreadyExists,
|
||||
Format(lisA2PTheClassNameExistsAlreadyInPackageFile, ['"',
|
||||
Params.NewClassName, '"', #13, PkgComponent.PkgFile.LazPackage.IDAsString,
|
||||
Format(lisA2PTheClassNameExistsAlreadyInPackageFile, ['"',Params.NewClassName, '"', #13, PkgComponent.PkgFile.LazPackage.IDAsString,
|
||||
#13, '"', PkgComponent.PkgFile.Filename, '"']),
|
||||
mtError,[mbCancel,mbIgnore])<>mrIgnore
|
||||
then
|
||||
@ -913,20 +924,16 @@ begin
|
||||
OnGetIDEFileInfo,Params.UnitFilename) then exit;
|
||||
|
||||
// create dependency if needed
|
||||
PkgComponent:=
|
||||
TPkgComponent(IDEComponentPalette.FindComponent(Params.AncestorType));
|
||||
PkgComponent:=TPkgComponent(IDEComponentPalette.FindComponent(Params.AncestorType));
|
||||
if PkgComponent<>nil then begin
|
||||
Params.UsedUnitname:=PkgComponent.GetUnitName;
|
||||
ARequiredPackage:=PkgComponent.PkgFile.LazPackage;
|
||||
ARequiredPackage:=TLazPackage(
|
||||
PackageEditingInterface.RedirectPackageDependency(ARequiredPackage));
|
||||
|
||||
ARequiredPackage:=TLazPackage(PackageEditingInterface.RedirectPackageDependency(ARequiredPackage));
|
||||
if (LazPackage<>ARequiredPackage)
|
||||
and (not LazPackage.Requires(PkgComponent.PkgFile.LazPackage))
|
||||
then
|
||||
Params.Dependency:=ARequiredPackage.CreateDependencyWithOwner(nil);
|
||||
end;
|
||||
|
||||
ModalResult:=mrOk;
|
||||
end;
|
||||
|
||||
@ -996,19 +1003,15 @@ var
|
||||
ANode: TTreeNode;
|
||||
begin
|
||||
ANode:=NewFileTreeView.Selected;
|
||||
if (ANode=nil) or (ANode.Data=nil)
|
||||
or (not (TObject(ANode.Data) is TNewItemProjectFile))
|
||||
if (ANode<>nil) and (ANode.Data<>nil) and (TObject(ANode.Data) is TNewItemProjectFile)
|
||||
then begin
|
||||
IDEMessageDialog(lisNewDlgNoItemSelected,
|
||||
lisNewDlgPleaseSelectAnItemFirst, mtInformation, [mbOk]);
|
||||
exit;
|
||||
end;
|
||||
|
||||
Params.Clear;
|
||||
Params.AddType:=d2ptNewFile;
|
||||
Params.NewItem:=TNewIDEItemTemplate(ANode.Data);
|
||||
|
||||
ModalResult:=mrOk;
|
||||
Params.Clear;
|
||||
Params.AddType:=d2ptNewFile;
|
||||
Params.NewItem:=TNewIDEItemTemplate(ANode.Data);
|
||||
ModalResult:=mrOk;
|
||||
end
|
||||
else
|
||||
IDEMessageDialog(lisNewDlgNoItemSelected,lisNewDlgPleaseSelectAnItemFirst,mtInformation,[mbOk]);
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.NewFilePageResize(Sender: TObject);
|
||||
@ -1037,7 +1040,7 @@ end;
|
||||
|
||||
procedure TAddToPackageDlg.NewFileTreeViewSelectionChanged(Sender: TObject);
|
||||
begin
|
||||
NewFileOkButton.Enabled:=(NewFileTreeView.Selected<>nil)
|
||||
OkButton.Enabled:=(NewFileTreeView.Selected<>nil)
|
||||
and (TObject(NewFileTreeView.Selected.Data) is TNewIDEItemTemplate);
|
||||
end;
|
||||
|
||||
@ -1073,13 +1076,54 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAddToPackageDlg.CheckNewCompOk: Boolean;
|
||||
begin
|
||||
Result:=(AncestorComboBox.Text<>'') and (ClassNameEdit.Text<>'') and (ComponentUnitNameEdit.Text<>'');
|
||||
OkButton.Enabled:=Result;
|
||||
end;
|
||||
|
||||
function TAddToPackageDlg.CheckNewReqOk: Boolean;
|
||||
begin
|
||||
Result:=(DependPkgNameComboBox.Text<>'');
|
||||
OkButton.Enabled:=Result;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.PageControl1Change(Sender: TObject);
|
||||
begin
|
||||
case PageControl1.PageIndex of
|
||||
0: begin // New File
|
||||
OkButton.Caption:=lisA2PCreateNewFile;
|
||||
OkButton.OnClick:=@NewFileOkButtonClick;
|
||||
OkButton.Enabled:=(NewFileTreeView.Selected<>nil)
|
||||
and (TObject(NewFileTreeView.Selected.Data) is TNewIDEItemTemplate);
|
||||
end;
|
||||
1: begin // New Component
|
||||
OkButton.Caption:=lisA2PCreateNewComp;
|
||||
OkButton.OnClick:=@NewComponentButtonClick;
|
||||
CheckNewCompOk;
|
||||
end;
|
||||
2: begin // New Requirement
|
||||
OkButton.Caption:=lisA2PCreateNewReq;
|
||||
OkButton.OnClick:=@NewDependButtonClick;
|
||||
CheckNewReqOk;
|
||||
end;
|
||||
3: begin // Add Files
|
||||
OkButton.Caption:=lisA2PAddFilesToPackage;
|
||||
OkButton.OnClick:=@FilesAddButtonClick;
|
||||
CheckFilesButtonsOk;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.SetupComponents;
|
||||
begin
|
||||
NewFilePage.Caption:=lisA2PNewFile;
|
||||
NewComponentPage.Caption:=lisA2PNewComponent;
|
||||
NewRequirementPage.Caption:=lisProjAddNewRequirement;
|
||||
AddFilesPage.Caption:=lisA2PAddFiles;
|
||||
CancelButton.Caption:=dlgCancel;
|
||||
PageControl1.PageIndex:=0;
|
||||
PageControl1Change(PageControl1);
|
||||
|
||||
SetupNewFilePage;
|
||||
SetupNewComponentPage;
|
||||
@ -1089,129 +1133,47 @@ end;
|
||||
|
||||
procedure TAddToPackageDlg.SetupNewFilePage;
|
||||
begin
|
||||
with NewFileDescriptionGroupBox do begin
|
||||
Caption:=lisCodeHelpDescrTag;
|
||||
end;
|
||||
|
||||
with NewFileHelpLabel do begin
|
||||
Caption:='';
|
||||
end;
|
||||
|
||||
with NewFileOkButton do begin
|
||||
Caption:=lisA2PCreateNewFile;
|
||||
end;
|
||||
|
||||
with NewFileCancelButton do begin
|
||||
Caption:=dlgCancel;
|
||||
end;
|
||||
|
||||
NewFileDescriptionGroupBox.Caption:=lisCodeHelpDescrTag;
|
||||
NewFileHelpLabel.Caption:='';
|
||||
FillNewFileTreeView;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.SetupNewComponentPage;
|
||||
begin
|
||||
with AncestorTypeLabel do begin
|
||||
Caption:=lisA2PAncestorType;
|
||||
end;
|
||||
|
||||
with AncestorComboBox do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
with AncestorShowAllCheckBox do begin
|
||||
Text:=lisA2PShowAll;
|
||||
end;
|
||||
|
||||
with ClassNameLabel do begin
|
||||
Caption:=lisA2PNewClassName;
|
||||
end;
|
||||
|
||||
with ClassNameEdit do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
with PalettePageLabel do begin
|
||||
Caption:=lisA2PPalettePage;
|
||||
end;
|
||||
|
||||
with PalettePageCombobox do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
with ComponentUnitFileLabel do begin
|
||||
Caption:=lisA2PUnitFileName2;
|
||||
end;
|
||||
|
||||
with ComponentUnitFileEdit do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
AncestorTypeLabel.Caption:=lisA2PAncestorType;
|
||||
AncestorComboBox.Text:='';
|
||||
AncestorShowAllCheckBox.Caption:=lisA2PShowAll;
|
||||
ClassNameLabel.Caption:=lisA2PNewClassName;
|
||||
ClassNameEdit.Text:='';
|
||||
PalettePageLabel.Caption:=lisA2PPalettePage;
|
||||
PalettePageCombobox.Text:='';
|
||||
ComponentUnitFileLabel.Caption:=lisA2PUnitFileName2;
|
||||
ComponentUnitFileEdit.Text:='';
|
||||
with ComponentUnitFileBrowseButton do begin
|
||||
Caption:='...';
|
||||
ShowHint:=true;
|
||||
Hint:=lisA2PSaveFileDialog;
|
||||
end;
|
||||
|
||||
with ComponentUnitFileShortenButton do begin
|
||||
Caption:='<>';
|
||||
ShowHint:=true;
|
||||
Hint:=lisA2PShortenOrExpandFilename;
|
||||
end;
|
||||
|
||||
with ComponentUnitNameLabel do begin
|
||||
Caption:=lisA2PUnitName;
|
||||
end;
|
||||
|
||||
with ComponentUnitNameEdit do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
ComponentUnitNameLabel.Caption:=lisA2PUnitName;
|
||||
ComponentUnitNameEdit.Text:='';
|
||||
ComponentIconLabel.Caption:='Icon (maximum 24x24)';
|
||||
ComponentIconSpeedButton.Width:=ComponentPaletteBtnWidth;
|
||||
ComponentIconSpeedButton.Height:=ComponentPaletteBtnHeight;
|
||||
|
||||
with NewComponentButton do begin
|
||||
Caption:=lisLazBuildOk;
|
||||
end;
|
||||
|
||||
with CancelNewComponentButton do begin
|
||||
Caption:=dlgCancel;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.SetupAddDependencyPage;
|
||||
begin
|
||||
with DependPkgNameLabel do begin
|
||||
Caption:=lisProjAddPackageName;
|
||||
end;
|
||||
|
||||
with DependPkgNameComboBox do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
with DependMinVersionLabel do begin
|
||||
Caption:=lisProjAddMinimumVersionOptional;
|
||||
end;
|
||||
|
||||
with DependMinVersionEdit do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
with DependMaxVersionLabel do begin
|
||||
Caption:=lisProjAddMaximumVersionOptional;
|
||||
end;
|
||||
|
||||
with DependMaxVersionEdit do begin
|
||||
Text:='';
|
||||
end;
|
||||
|
||||
with NewDependButton do begin
|
||||
Caption:=lisLazBuildOk;
|
||||
end;
|
||||
|
||||
with CancelDependButton do begin
|
||||
Caption:=dlgCancel;
|
||||
end;
|
||||
DependPkgNameLabel.Caption:=lisProjAddPackageName;
|
||||
DependPkgNameComboBox.Text:='';
|
||||
DependMinVersionLabel.Caption:=lisProjAddMinimumVersionOptional;
|
||||
DependMinVersionEdit.Text:='';
|
||||
DependMaxVersionLabel.Caption:=lisProjAddMaximumVersionOptional;
|
||||
DependMaxVersionEdit.Text:='';
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.SetupAddFilesPage;
|
||||
@ -1226,8 +1188,15 @@ begin
|
||||
CurColumn.Caption:=dlgEnvType;
|
||||
end;
|
||||
|
||||
FilesBrowseButton.Caption:=lisPathEditBrowse;
|
||||
FilesDirButton.Caption:=lisAddDirectory;
|
||||
with FilesBrowseButton do begin
|
||||
Caption:=lisA2PAddFiles;
|
||||
LoadGlyphFromLazarusResource('laz_add');
|
||||
end;
|
||||
|
||||
with FilesDirButton do begin
|
||||
Caption:=lisAddDirectory;
|
||||
LoadGlyphFromLazarusResource('pkg_files');
|
||||
end;
|
||||
|
||||
with FilesShortenButton do begin
|
||||
Caption:=lisA2PSwitchPaths;
|
||||
@ -1239,8 +1208,8 @@ begin
|
||||
Caption:=dlgEdDelete;
|
||||
ShowHint:=true;
|
||||
Hint:=lisDeleteSelectedFiles;
|
||||
LoadGlyphFromLazarusResource('laz_delete');
|
||||
end;
|
||||
FilesAddButton.Caption:=lisA2PAddFilesToPackage;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.OnIterateComponentClasses(PkgComponent: TPkgComponent);
|
||||
@ -1275,6 +1244,7 @@ begin
|
||||
PalettePageCombobox.Text:=PkgComponent.Page.PageName;
|
||||
// filename
|
||||
AutoCompleteNewComponentUnitName;
|
||||
OkButton.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TAddToPackageDlg.AutoCompleteNewComponentUnitName;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user