paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 17:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: improve the Add to Package dialog GUI

Browse Source 
git-svn-id: trunk@35206 -
This commit is contained in:
juha 2012-02-07 08:41:29 +00:00
parent b74c59a9db
commit 4eee49aac4
3 changed files with 378 additions and 646 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazarusidestrconsts.pas
View File

@ -1059,7 +1059,6 @@ resourcestring
lisCMParameter = 'Parameter'; lisCMParameter = 'Parameter';
lisInsertMacro = 'Insert Macro'; lisInsertMacro = 'Insert Macro';
lisCTPleaseSelectAMacro = 'please select a macro'; lisCTPleaseSelectAMacro = 'please select a macro';
lisA2PCreateNewFile = 'Create new file';
dlgEnvLanguage = 'Language'; dlgEnvLanguage = 'Language';
dlgAutoSave = 'Auto Save'; dlgAutoSave = 'Auto Save';
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session'; lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
@ -4357,8 +4356,11 @@ resourcestring
lisCompTest = '&Test'; lisCompTest = '&Test';
lisA2PSwitchPaths = 'Switch Paths'; lisA2PSwitchPaths = 'Switch Paths';
lisA2PAddFilesToPackage = 'Add files to package'; lisA2PAddFilesToPackage = 'Add Files to Package';
lisA2PAddToPackage = 'Add to package'; lisA2PAddToPackage = 'Add to package';
lisA2PCreateNewFile = 'Create New File';
lisA2PCreateNewComp = 'Create New Component';
lisA2PCreateNewReq = 'Create New Requirement';
lisA2PFilename2 = 'Filename'; lisA2PFilename2 = 'Filename';
lisFRIFindOrRenameIdentifier = 'Find or Rename Identifier'; lisFRIFindOrRenameIdentifier = 'Find or Rename Identifier';
lisHelpSelectorDialog = 'Help selector'; lisHelpSelectorDialog = 'Help selector';

782
packager/addtopackagedlg.lfm
View File

@ -1,7 +1,7 @@
object AddToPackageDlg: TAddToPackageDlg object AddToPackageDlg: TAddToPackageDlg
Left = 395 Left = 413
Height = 322 Height = 322
Top = 386 Top = 604
Width = 658 Width = 658
ActiveControl = PageControl1 ActiveControl = PageControl1
Caption = 'Add to package' Caption = 'Add to package'
@ -16,26 +16,27 @@ object AddToPackageDlg: TAddToPackageDlg
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 322 Height = 284
Top = 0 Top = 0
Width = 658 Width = 658
ActivePage = AddFilesPage ActivePage = NewFilePage
Align = alClient Align = alClient
TabIndex = 3 TabIndex = 0
TabOrder = 0 TabOrder = 0
OnChange = PageControl1Change
object NewFilePage: TTabSheet object NewFilePage: TTabSheet
Caption = 'New File' Caption = 'New File'
ClientHeight = 295 ClientHeight = 255
ClientWidth = 656 ClientWidth = 650
OnResize = NewFilePageResize OnResize = NewFilePageResize
object NewFileTreeView: TTreeView object NewFileTreeView: TTreeView
Left = 0 Left = 0
Height = 249 Height = 250
Top = 0 Top = 0
Width = 249 Width = 249
Align = alLeft Align = alLeft
BorderSpacing.Bottom = 5 BorderSpacing.Bottom = 5
DefaultItemHeight = 19 DefaultItemHeight = 16
ReadOnly = True ReadOnly = True
RightClickSelect = True RightClickSelect = True
TabOrder = 0 TabOrder = 0
@ -47,153 +48,39 @@ object AddToPackageDlg: TAddToPackageDlg
object NewFileDescriptionGroupBox: TGroupBox object NewFileDescriptionGroupBox: TGroupBox
AnchorSideLeft.Control = NewFileTreeView AnchorSideLeft.Control = NewFileTreeView
Left = 249 Left = 249
Height = 249 Height = 250
Top = 0 Top = 0
Width = 407 Width = 401
Align = alClient Align = alClient
BorderSpacing.Bottom = 5 BorderSpacing.Bottom = 5
Caption = 'NewFileDescriptionGroupBox' Caption = 'NewFileDescriptionGroupBox'
ClientHeight = 230 ClientHeight = 231
ClientWidth = 403 ClientWidth = 395
TabOrder = 1 TabOrder = 1
object NewFileHelpLabel: TLabel object NewFileHelpLabel: TLabel
Left = 0 Left = 0
Height = 245 Height = 231
Top = 0 Top = 0
Width = 403 Width = 395
Align = alClient Align = alClient
Caption = 'NewFileHelpLabel' Caption = 'NewFileHelpLabel'
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
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 end
object NewComponentPage: TTabSheet object NewComponentPage: TTabSheet
Caption = 'New Component' Caption = 'New Component'
ClientHeight = 295 ClientHeight = 255
ClientWidth = 656 ClientWidth = 650
OnResize = NewComponentPageResize OnResize = NewComponentPageResize
object AncestorTypeLabel: TLabel object AncestorTypeLabel: TLabel
AnchorSideTop.Control = AncestorComboBox AnchorSideTop.Control = AncestorComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 5 Left = 5
Height = 18 Height = 15
Top = 10 Top = 10
Width = 123 Width = 107
Caption = 'AncestorTypeLabel' Caption = 'AncestorTypeLabel'
ParentColor = False ParentColor = False
end end
@ -201,9 +88,9 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Control = ClassNameEdit AnchorSideTop.Control = ClassNameEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 5 Left = 5
Height = 18 Height = 15
Top = 43 Top = 38
Width = 110 Width = 94
Caption = 'ClassNameLabel' Caption = 'ClassNameLabel'
ParentColor = False ParentColor = False
end end
@ -211,9 +98,9 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Control = PalettePageCombobox AnchorSideTop.Control = PalettePageCombobox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 5 Left = 5
Height = 18 Height = 15
Top = 76 Top = 66
Width = 112 Width = 98
Caption = 'PalettePageLabel' Caption = 'PalettePageLabel'
ParentColor = False ParentColor = False
end end
@ -221,9 +108,9 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Control = ComponentUnitFileEdit AnchorSideTop.Control = ComponentUnitFileEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 5 Left = 5
Height = 18 Height = 15
Top = 109 Top = 94
Width = 161 Width = 136
Caption = 'ComponentUnitFileLabel' Caption = 'ComponentUnitFileLabel'
ParentColor = False ParentColor = False
end end
@ -231,9 +118,9 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Control = ComponentUnitNameEdit AnchorSideTop.Control = ComponentUnitNameEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 5 Left = 5
Height = 18 Height = 15
Top = 142 Top = 122
Width = 177 Width = 151
Caption = 'ComponentUnitNameLabel' Caption = 'ComponentUnitNameLabel'
ParentColor = False ParentColor = False
end end
@ -241,11 +128,12 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = NewComponentPage AnchorSideTop.Control = NewComponentPage
Left = 184 Left = 184
Height = 27 Height = 22
Top = 6 Top = 6
Width = 200 Width = 200
BorderSpacing.Top = 6 BorderSpacing.Top = 6
ItemHeight = 0 ItemHeight = 0
OnChange = AncestorComboBoxChange
OnCloseUp = AncestorComboBoxCloseUp OnCloseUp = AncestorComboBoxCloseUp
TabOrder = 0 TabOrder = 0
Text = 'AncestorComboBox' Text = 'AncestorComboBox'
@ -256,9 +144,9 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Control = AncestorComboBox AnchorSideTop.Control = AncestorComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 384 Left = 384
Height = 22 Height = 21
Top = 8 Top = 7
Width = 202 Width = 175
Caption = 'AncestorShowAllCheckBox' Caption = 'AncestorShowAllCheckBox'
Checked = True Checked = True
OnClick = AncestorShowAllCheckBoxClick OnClick = AncestorShowAllCheckBoxClick
@ -272,8 +160,8 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideRight.Control = AncestorComboBox AnchorSideRight.Control = AncestorComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 184 Left = 184
Height = 27 Height = 22
Top = 39 Top = 34
Width = 200 Width = 200
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -288,8 +176,8 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideRight.Control = AncestorComboBox AnchorSideRight.Control = AncestorComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 184 Left = 184
Height = 27 Height = 22
Top = 72 Top = 62
Width = 200 Width = 200
BorderSpacing.Top = 6 BorderSpacing.Top = 6
ItemHeight = 0 ItemHeight = 0
@ -302,9 +190,9 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ComponentUnitFileBrowseButton AnchorSideRight.Control = ComponentUnitFileBrowseButton
Left = 184 Left = 184
Height = 27 Height = 22
Top = 105 Top = 90
Width = 300 Width = 410
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
TabOrder = 4 TabOrder = 4
@ -315,11 +203,11 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Control = ComponentUnitFileEdit AnchorSideTop.Control = ComponentUnitFileEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ComponentUnitFileShortenButton AnchorSideRight.Control = ComponentUnitFileShortenButton
Left = 484 Left = 594
Height = 27 Height = 23
Hint = 'Save file dialog' Hint = 'Save file dialog'
Top = 105 Top = 90
Width = 85 Width = 25
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = '...' Caption = '...'
@ -334,11 +222,11 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = NewComponentPage AnchorSideRight.Control = NewComponentPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 569 Left = 619
Height = 27 Height = 23
Hint = 'Shorten or expand filename' Hint = 'Shorten or expand filename'
Top = 105 Top = 90
Width = 85 Width = 31
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = '<>' Caption = '<>'
@ -354,35 +242,236 @@ object AddToPackageDlg: TAddToPackageDlg
AnchorSideRight.Control = AncestorComboBox AnchorSideRight.Control = AncestorComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 184 Left = 184
Height = 27 Height = 22
Top = 138 Top = 118
Width = 200 Width = 200
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
OnChange = ComponentUnitNameEditChange
TabOrder = 7 TabOrder = 7
Text = 'ComponentUnitNameEdit' Text = 'ComponentUnitNameEdit'
end end
object NewCompBtnPanel: TPanel object ComponentIconLabel: TLabel
AnchorSideLeft.Control = ComponentUnitNameLabel
AnchorSideTop.Control = ComponentIconSpeedButton
AnchorSideTop.Side = asrCenter
Left = 5
Height = 15
Top = 152
Width = 119
Caption = 'ComponentIconLabel'
ParentColor = False
end
object ComponentIconSpeedButton: TSpeedButton
AnchorSideLeft.Control = ComponentUnitNameEdit
AnchorSideTop.Control = ComponentUnitNameEdit
AnchorSideTop.Side = asrBottom
Left = 184
Height = 26
Top = 146
Width = 28
BorderSpacing.Top = 6
NumGlyphs = 0
OnClick = ComponentIconSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
end
object NewRequirementPage: TTabSheet
Caption = 'New Requirement'
ClientHeight = 255
ClientWidth = 650
object NewDepPanel: TPanel
Left = 0 Left = 0
Height = 39 Height = 255
Top = 250 Top = 0
Width = 654 Width = 650
Align = alClient
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 6
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 255
ClientWidth = 650
TabOrder = 0
object DependPkgNameLabel: TLabel
Left = 6
Height = 15
Top = 9
Width = 127
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'DependPkgNameLabel'
ParentColor = False
end
object DependPkgNameComboBox: TComboBox
AnchorSideLeft.Side = asrBottom
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 = 15
Top = 37
Width = 135
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'DependMinVersionLabel'
ParentColor = False
end
object DependMinVersionEdit: TEdit
AnchorSideLeft.Side = asrBottom
Left = 151
Height = 22
Top = 34
Width = 200
BorderSpacing.Top = 6
TabOrder = 1
Text = 'DependMinVersionEdit'
end
object DependMaxVersionLabel: TLabel
Left = 6
Height = 15
Top = 65
Width = 139
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'DependMaxVersionLabel'
ParentColor = False
end
object DependMaxVersionEdit: TEdit
AnchorSideLeft.Side = asrBottom
Left = 151
Height = 22
Top = 62
Width = 200
BorderSpacing.Top = 6
TabOrder = 2
Text = 'DependMaxVersionEdit'
end
end
end
object AddFilesPage: TTabSheet
Caption = 'Add Files'
ClientHeight = 255
ClientWidth = 650
object FilesListView: TListView
Left = 0
Height = 214
Top = 0
Width = 650
Align = alClient
BorderSpacing.Bottom = 5
Columns = <
item
Caption = 'Filename'
Width = 200
end
item
Caption = 'Type'
Width = 436
end>
MultiSelect = True
TabOrder = 0
ViewStyle = vsReport
OnClick = FilesListViewClick
end
object AddFilesBtnPanel: TPanel
Left = 0
Height = 36
Top = 219
Width = 650
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 39 ClientHeight = 36
ClientWidth = 654 ClientWidth = 650
TabOrder = 8 TabOrder = 1
object NewComponentButton: TBitBtn object FilesShortenButton: TBitBtn
Left = 228 Left = 224
Height = 27 Height = 24
Top = 6 Top = 6
Width = 185 Width = 118
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilesShortenButton'
NumGlyphs = 0
OnClick = FilesShortenButtonClick
TabOrder = 0
end
object FilesDeleteButton: TBitBtn
Left = 348
Height = 24
Top = 6
Width = 110
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilesDeleteButton'
NumGlyphs = 0
OnClick = FilesDeleteButtonClick
TabOrder = 1
end
object FilesBrowseButton: TBitBtn
Left = 6
Height = 24
Top = 6
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 = 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 Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'NewComponentButton' Caption = 'OkButton'
Constraints.MinWidth = 75 Constraints.MinWidth = 75
Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -420,113 +509,18 @@ object AddToPackageDlg: TAddToPackageDlg
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 0 NumGlyphs = 0
OnClick = NewComponentButtonClick
TabOrder = 0 TabOrder = 0
end end
object CancelNewComponentButton: TBitBtn object CancelButton: TBitBtn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 419 Left = 536
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
Caption = 'ComponentIconLabel'
ParentColor = False
end
object ComponentIconSpeedButton: TSpeedButton
AnchorSideLeft.Control = ComponentUnitNameEdit
AnchorSideTop.Control = ComponentUnitNameEdit
AnchorSideTop.Side = asrBottom
Left = 184
Height = 26 Height = 26
Top = 171
Width = 28
BorderSpacing.Top = 6
NumGlyphs = 0
OnClick = ComponentIconSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
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 Top = 6
Width = 167 Width = 116
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CancelDependButton' Caption = 'CancelButton'
Constraints.MinWidth = 75 Constraints.MinWidth = 75
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -566,241 +560,7 @@ object AddToPackageDlg: TAddToPackageDlg
} }
ModalResult = 2 ModalResult = 2
NumGlyphs = 0 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 TabOrder = 1
end end
end end
object NewDepPanel: TPanel
Left = 0
Height = 254
Top = 0
Width = 656
Align = alClient
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 6
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 254
ClientWidth = 656
TabOrder = 1
object DependPkgNameLabel: TLabel
Left = 6
Height = 18
Top = 10
Width = 147
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'DependPkgNameLabel'
ParentColor = False
end
object DependPkgNameComboBox: TComboBox
AnchorSideLeft.Side = asrBottom
Left = 170
Height = 27
Top = 6
Width = 200
Constraints.MinWidth = 200
ItemHeight = 0
TabOrder = 0
Text = 'DependPkgNameComboBox'
end
object DependMinVersionLabel: TLabel
Left = 6
Height = 18
Top = 42
Width = 154
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'DependMinVersionLabel'
ParentColor = False
end
object DependMinVersionEdit: TEdit
AnchorSideLeft.Side = asrBottom
Left = 170
Height = 25
Top = 39
Width = 200
BorderSpacing.Top = 6
TabOrder = 1
Text = 'DependMinVersionEdit'
end
object DependMaxVersionLabel: TLabel
Left = 6
Height = 18
Top = 73
Width = 158
BorderSpacing.CellAlignHorizontal = ccaLeftTop
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'DependMaxVersionLabel'
ParentColor = False
end
object DependMaxVersionEdit: TEdit
AnchorSideLeft.Side = asrBottom
Left = 170
Height = 25
Top = 70
Width = 200
BorderSpacing.Top = 6
TabOrder = 2
Text = 'DependMaxVersionEdit'
end
end
end
object AddFilesPage: TTabSheet
Caption = 'Add Files'
ClientHeight = 295
ClientWidth = 656
object FilesListView: TListView
AnchorSideBottom.Control = FilesBrowseButton
Left = 0
Height = 249
Top = 0
Width = 656
Align = alClient
BorderSpacing.Bottom = 5
Columns = <
item
Caption = 'Filename'
Width = 200
end
item
Caption = 'Type'
Width = 436
end>
MultiSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object AddFilesBtnPanel: TPanel
Left = 0
Height = 41
Top = 254
Width = 656
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 656
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
Top = 6
Width = 135
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilesShortenButton'
NumGlyphs = 0
OnClick = FilesShortenButtonClick
TabOrder = 2
end
object FilesDeleteButton: TBitBtn
AnchorSideLeft.Side = asrBottom
Left = 406
Height = 29
Top = 6
Width = 128
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilesDeleteButton'
NumGlyphs = 0
OnClick = FilesDeleteButtonClick
TabOrder = 3
end
object FilesDirButton: TButton
Left = 155
Height = 29
Top = 6
Width = 104
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilesDirButton'
OnClick = FilesDirButtonClick
TabOrder = 4
end
end
end
end
end end

300
packager/addtopackagedlg.pas
View File

@ -81,8 +81,8 @@ type
{ TAddToPackageDlg } { TAddToPackageDlg }
TAddToPackageDlg = class(TForm) TAddToPackageDlg = class(TForm)
CancelDependButton: TBitBtn; FilesBrowseButton: TBitBtn;
CancelNewComponentButton: TBitBtn; FilesDirButton: TBitBtn;
// PageControl1 // PageControl1
PageControl1: TPageControl; PageControl1: TPageControl;
NewFilePage: TTabSheet; NewFilePage: TTabSheet;
@ -93,11 +93,8 @@ type
NewFileTreeView: TTreeView; NewFileTreeView: TTreeView;
NewFileDescriptionGroupBox: TGroupBox; NewFileDescriptionGroupBox: TGroupBox;
NewFileHelpLabel: TLabel; NewFileHelpLabel: TLabel;
NewFileCancelButton: TBitBtn; CancelButton: TBitBtn;
NewFileOkButton: TBitBtn; OkButton: TBitBtn;
// new component page
NewCompBtnPanel: TPanel;
NewComponentButton: TBitBtn;
AncestorTypeLabel: TLabel; AncestorTypeLabel: TLabel;
AncestorComboBox: TComboBox; AncestorComboBox: TComboBox;
AncestorShowAllCheckBox: TCheckBox; AncestorShowAllCheckBox: TCheckBox;
@ -113,9 +110,6 @@ type
ComponentUnitFileShortenButton: TButton; ComponentUnitFileShortenButton: TButton;
ComponentUnitNameLabel: TLabel; ComponentUnitNameLabel: TLabel;
ComponentUnitNameEdit: TEdit; ComponentUnitNameEdit: TEdit;
// new required package
NewDepBtnPanel: TPanel;
NewDependButton: TBitBtn;
NewDepPanel: TPanel; NewDepPanel: TPanel;
DependPkgNameLabel: TLabel; DependPkgNameLabel: TLabel;
DependPkgNameComboBox: TComboBox; DependPkgNameComboBox: TComboBox;
@ -123,32 +117,31 @@ type
DependMinVersionEdit: TEdit; DependMinVersionEdit: TEdit;
DependMaxVersionLabel: TLabel; DependMaxVersionLabel: TLabel;
DependMaxVersionEdit: TEdit; DependMaxVersionEdit: TEdit;
// add files page
FilesAddButton: TButton;
FilesDirButton: TButton;
FilesDeleteButton: TBitBtn; FilesDeleteButton: TBitBtn;
FilesShortenButton: TBitBtn; FilesShortenButton: TBitBtn;
FilesListView: TListView; FilesListView: TListView;
FilesBrowseButton: TButton;
NewFileBtnPanel: TPanel; NewFileBtnPanel: TPanel;
AddFilesBtnPanel: TPanel; AddFilesBtnPanel: TPanel;
procedure AddToPackageDlgClose(Sender: TObject; procedure AddToPackageDlgClose(Sender: TObject;
var CloseAction: TCloseAction); var CloseAction: TCloseAction);
procedure AddToPackageDlgKeyDown(Sender: TObject; var Key: Word; procedure AddToPackageDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
procedure AncestorComboBoxChange(Sender: TObject);
procedure AncestorComboBoxCloseUp(Sender: TObject); procedure AncestorComboBoxCloseUp(Sender: TObject);
procedure AncestorShowAllCheckBoxClick(Sender: TObject); procedure AncestorShowAllCheckBoxClick(Sender: TObject);
procedure CancelAddFileButtonClick(Sender: TObject); procedure CancelAddFileButtonClick(Sender: TObject);
procedure CancelAddUnitButtonClick(Sender: TObject); procedure CancelAddUnitButtonClick(Sender: TObject);
procedure CancelNewComponentButtonClick(Sender: TObject);
procedure ClassNameEditChange(Sender: TObject); procedure ClassNameEditChange(Sender: TObject);
procedure ComponentIconSpeedButtonClick(Sender: TObject); procedure ComponentIconSpeedButtonClick(Sender: TObject);
procedure ComponentUnitFileBrowseButtonClick(Sender: TObject); procedure ComponentUnitFileBrowseButtonClick(Sender: TObject);
procedure ComponentUnitFileShortenButtonClick(Sender: TObject); procedure ComponentUnitFileShortenButtonClick(Sender: TObject);
procedure ComponentUnitNameEditChange(Sender: TObject);
procedure DependPkgNameComboBoxChange(Sender: TObject);
procedure FilesAddButtonClick(Sender: TObject); procedure FilesAddButtonClick(Sender: TObject);
procedure FilesBrowseButtonClick(Sender: TObject); procedure FilesBrowseButtonClick(Sender: TObject);
procedure FilesDeleteButtonClick(Sender: TObject); procedure FilesDeleteButtonClick(Sender: TObject);
procedure FilesDirButtonClick(Sender: TObject); procedure FilesDirButtonClick(Sender: TObject);
procedure FilesListViewClick(Sender: TObject);
procedure FilesShortenButtonClick(Sender: TObject); procedure FilesShortenButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -160,6 +153,7 @@ type
procedure NewFileTreeViewClick(Sender: TObject); procedure NewFileTreeViewClick(Sender: TObject);
procedure NewFileTreeViewDblClick(Sender: TObject); procedure NewFileTreeViewDblClick(Sender: TObject);
procedure NewFileTreeViewSelectionChanged(Sender: TObject); procedure NewFileTreeViewSelectionChanged(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
private private
fLastNewComponentAncestorType: string; fLastNewComponentAncestorType: string;
fLastNewComponentClassName: string; fLastNewComponentClassName: string;
@ -179,6 +173,9 @@ type
procedure SetupAddFilesPage; procedure SetupAddFilesPage;
procedure OnIterateComponentClasses(PkgComponent: TPkgComponent); procedure OnIterateComponentClasses(PkgComponent: TPkgComponent);
procedure OnIteratePackages(APackageID: TLazPackageID); procedure OnIteratePackages(APackageID: TLazPackageID);
function CheckNewCompOk: Boolean;
function CheckNewReqOk: Boolean;
function CheckFilesButtonsOk: Boolean;
procedure AutoCompleteNewComponent; procedure AutoCompleteNewComponent;
procedure AutoCompleteNewComponentUnitName; procedure AutoCompleteNewComponentUnitName;
function SwitchRelativeAbsoluteFilename(const Filename: string): string; function SwitchRelativeAbsoluteFilename(const Filename: string): string;
@ -501,6 +498,11 @@ begin
ModalResult:=mrCancel; ModalResult:=mrCancel;
end; end;
procedure TAddToPackageDlg.AncestorComboBoxChange(Sender: TObject);
begin
CheckNewCompOk;
end;
procedure TAddToPackageDlg.AncestorComboBoxCloseUp(Sender: TObject); procedure TAddToPackageDlg.AncestorComboBoxCloseUp(Sender: TObject);
begin begin
if fLastNewComponentAncestorType<>AncestorComboBox.Text then if fLastNewComponentAncestorType<>AncestorComboBox.Text then
@ -522,14 +524,10 @@ begin
ModalResult:=mrCancel; ModalResult:=mrCancel;
end; end;
procedure TAddToPackageDlg.CancelNewComponentButtonClick(Sender: TObject);
begin
ModalResult:=mrCancel;
end;
procedure TAddToPackageDlg.ClassNameEditChange(Sender: TObject); procedure TAddToPackageDlg.ClassNameEditChange(Sender: TObject);
begin begin
AutoCompleteNewComponentUnitName; AutoCompleteNewComponentUnitName;
CheckNewCompOk;
end; end;
procedure TAddToPackageDlg.ComponentIconSpeedButtonClick(Sender: TObject); procedure TAddToPackageDlg.ComponentIconSpeedButtonClick(Sender: TObject);
@ -587,8 +585,17 @@ end;
procedure TAddToPackageDlg.ComponentUnitFileShortenButtonClick(Sender: TObject); procedure TAddToPackageDlg.ComponentUnitFileShortenButtonClick(Sender: TObject);
begin begin
if ''=ComponentUnitFileEdit.Text then exit; if ''=ComponentUnitFileEdit.Text then exit;
ComponentUnitFileEdit.Text:= ComponentUnitFileEdit.Text:=SwitchRelativeAbsoluteFilename(ComponentUnitFileEdit.Text);
SwitchRelativeAbsoluteFilename(ComponentUnitFileEdit.Text); end;
procedure TAddToPackageDlg.ComponentUnitNameEditChange(Sender: TObject);
begin
CheckNewCompOk;
end;
procedure TAddToPackageDlg.DependPkgNameComboBoxChange(Sender: TObject);
begin
CheckNewReqOk;
end; end;
procedure TAddToPackageDlg.FilesAddButtonClick(Sender: TObject); procedure TAddToPackageDlg.FilesAddButtonClick(Sender: TObject);
@ -681,7 +688,7 @@ begin
LastParams:=CurParams; LastParams:=CurParams;
inc(i); inc(i);
end; end;
FilesAddButton.Enabled:=FilesListView.Items.Count>0; OkButton.Enabled:=FilesListView.Items.Count>0;
ok:=LastParams<>nil; ok:=LastParams<>nil;
finally finally
if not ok then Params.Clear; if not ok then Params.Clear;
@ -703,8 +710,7 @@ begin
OpenDialog:=TOpenDialog.Create(nil); OpenDialog:=TOpenDialog.Create(nil);
try try
InputHistories.ApplyFileDialogSettings(OpenDialog); InputHistories.ApplyFileDialogSettings(OpenDialog);
OpenDialog.InitialDir:= OpenDialog.InitialDir:=LazPackage.GetFileDialogInitialDir(OpenDialog.InitialDir);
LazPackage.GetFileDialogInitialDir(OpenDialog.InitialDir);
OpenDialog.Title:=lisOpenFile; OpenDialog.Title:=lisOpenFile;
OpenDialog.Options:=OpenDialog.Options OpenDialog.Options:=OpenDialog.Options
+[ofFileMustExist,ofPathMustExist,ofAllowMultiSelect]; +[ofFileMustExist,ofPathMustExist,ofAllowMultiSelect];
@ -729,7 +735,7 @@ begin
end; end;
end; end;
InputHistories.StoreFileDialogSettings(OpenDialog); InputHistories.StoreFileDialogSettings(OpenDialog);
FilesAddButton.Enabled:=FilesListView.Items.Count>0; CheckFilesButtonsOk;
finally finally
OpenDialog.Free; OpenDialog.Free;
end; end;
@ -742,7 +748,7 @@ begin
for i:=FilesListView.Items.Count-1 downto 0 do for i:=FilesListView.Items.Count-1 downto 0 do
if FilesListView.Items[i].Selected then if FilesListView.Items[i].Selected then
FilesListView.Items.Delete(i); FilesListView.Items.Delete(i);
FilesAddButton.Enabled:=FilesListView.Items.Count>0; CheckFilesButtonsOk;
end; end;
procedure TAddToPackageDlg.FilesDirButtonClick(Sender: TObject); procedure TAddToPackageDlg.FilesDirButtonClick(Sender: TObject);
@ -766,12 +772,17 @@ begin
NewListItem.SubItems.Add(GetPkgFileTypeLocalizedName(NewPgkFileType)); NewListItem.SubItems.Add(GetPkgFileTypeLocalizedName(NewPgkFileType));
end; end;
end; end;
FilesAddButton.Enabled:=FilesListView.Items.Count>0; CheckFilesButtonsOk;
finally finally
Files.Free; Files.Free;
end; end;
end; end;
procedure TAddToPackageDlg.FilesListViewClick(Sender: TObject);
begin
CheckFilesButtonsOk;
end;
procedure TAddToPackageDlg.FilesShortenButtonClick(Sender: TObject); procedure TAddToPackageDlg.FilesShortenButtonClick(Sender: TObject);
var var
SwitchToAbsolute: Boolean; SwitchToAbsolute: Boolean;
@ -792,12 +803,21 @@ begin
end; end;
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); procedure TAddToPackageDlg.FormCreate(Sender: TObject);
begin begin
Caption:=lisA2PAddToPackage; Caption:=lisA2PAddToPackage;
fPkgComponents:=TAVLTree.Create(@CompareIDEComponentByClassName); fPkgComponents:=TAVLTree.Create(@CompareIDEComponentByClassName);
fPackages:=TAVLTree.Create(@CompareLazPackageID); fPackages:=TAVLTree.Create(@CompareLazPackageID);
Params:=TAddToPkgResult.Create; Params:=TAddToPkgResult.Create;
IDEDialogLayoutList.ApplyLayout(Self,500,300); IDEDialogLayoutList.ApplyLayout(Self,500,300);
SetupComponents; SetupComponents;
end; end;
@ -830,8 +850,7 @@ begin
// check Ancestor Type // check Ancestor Type
if not IsValidIdent(Params.AncestorType) then begin if not IsValidIdent(Params.AncestorType) then begin
IDEMessageDialog(lisA2PInvalidAncestorType, IDEMessageDialog(lisA2PInvalidAncestorType,
Format(lisA2PTheAncestorTypeIsNotAValidPascalIdentifier, ['"', Format(lisA2PTheAncestorTypeIsNotAValidPascalIdentifier, ['"',Params.AncestorType, '"']),
Params.AncestorType, '"']),
mtError,[mbCancel]); mtError,[mbCancel]);
exit; exit;
end; end;
@ -839,8 +858,7 @@ begin
// check pagename // check pagename
if length(Params.PageName)>100 then begin if length(Params.PageName)>100 then begin
IDEMessageDialog(lisA2PPageNameTooLong, IDEMessageDialog(lisA2PPageNameTooLong,
Format(lisA2PThePageNameIsTooLongMax100Chars, ['"', Params.PageName, '"'] Format(lisA2PThePageNameIsTooLongMax100Chars, ['"', Params.PageName, '"']),
),
mtError,[mbCancel]); mtError,[mbCancel]);
exit; exit;
end; end;
@ -849,8 +867,7 @@ begin
if AnsiCompareText(Params.Unit_name,ExtractFileNameOnly(Params.UnitFilename))<>0 if AnsiCompareText(Params.Unit_name,ExtractFileNameOnly(Params.UnitFilename))<>0
then begin then begin
IDEMessageDialog(lisA2PUnitNameInvalid, IDEMessageDialog(lisA2PUnitNameInvalid,
Format(lisA2PTheUnitNameDoesNotCorrespondToTheFilename, ['"', Format(lisA2PTheUnitNameDoesNotCorrespondToTheFilename, ['"',Params.Unit_Name, '"']),
Params.Unit_Name, '"']),
mtError,[mbCancel]); mtError,[mbCancel]);
exit; exit;
end; end;
@ -858,8 +875,7 @@ begin
// check classname // check classname
if not IsValidIdent(Params.NewClassName) then begin if not IsValidIdent(Params.NewClassName) then begin
IDEMessageDialog(lisA2PInvalidClassName, IDEMessageDialog(lisA2PInvalidClassName,
Format(lisA2PTheClassNameIsNotAValidPascalIdentifier, ['"', Format(lisA2PTheClassNameIsNotAValidPascalIdentifier, ['"',Params.NewClassName, '"']),
Params.NewClassName, '"']),
mtError,[mbCancel]); mtError,[mbCancel]);
exit; exit;
end; end;
@ -867,8 +883,7 @@ begin
// check classname<>ancestortype // check classname<>ancestortype
if AnsiCompareText(Params.NewClassName,Params.AncestorType)=0 then begin if AnsiCompareText(Params.NewClassName,Params.AncestorType)=0 then begin
IDEMessageDialog(lisA2PInvalidCircularDependency, IDEMessageDialog(lisA2PInvalidCircularDependency,
Format(lisA2PTheClassNameAndAncestorTypeAreTheSame, ['"', Format(lisA2PTheClassNameAndAncestorTypeAreTheSame, ['"',Params.NewClassName, '"', '"', Params.AncestorType, '"']),
Params.NewClassName, '"', '"', Params.AncestorType, '"']),
mtError,[mbCancel]); mtError,[mbCancel]);
exit; exit;
end; end;
@ -877,8 +892,7 @@ begin
PkgFile:=PackageGraph.FindUnit(LazPackage,Params.AncestorType,true,true); PkgFile:=PackageGraph.FindUnit(LazPackage,Params.AncestorType,true,true);
if PkgFile<>nil then begin if PkgFile<>nil then begin
if IDEMessageDialog(lisA2PAmbiguousAncestorType, if IDEMessageDialog(lisA2PAmbiguousAncestorType,
Format(lisA2PTheAncestorTypeHasTheSameNameAsTheUnit, ['"', Format(lisA2PTheAncestorTypeHasTheSameNameAsTheUnit, ['"',Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
mtError,[mbCancel,mbIgnore])<>mrIgnore mtError,[mbCancel,mbIgnore])<>mrIgnore
then then
exit; exit;
@ -888,20 +902,17 @@ begin
PkgFile:=PackageGraph.FindUnit(LazPackage,Params.NewClassName,true,true); PkgFile:=PackageGraph.FindUnit(LazPackage,Params.NewClassName,true,true);
if PkgFile<>nil then begin if PkgFile<>nil then begin
if IDEMessageDialog(lisA2PAmbiguousClassName, if IDEMessageDialog(lisA2PAmbiguousClassName,
Format(lisA2PTheClassNameHasTheSameNameAsTheUnit, ['"', Format(lisA2PTheClassNameHasTheSameNameAsTheUnit, ['"',Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
Params.AncestorType, '"', #13, '"', PkgFile.Filename, '"']),
mtError,[mbCancel,mbIgnore])<>mrIgnore mtError,[mbCancel,mbIgnore])<>mrIgnore
then then
exit; exit;
end; end;
// check if classname already exists // check if classname already exists
PkgComponent:= PkgComponent:=TPkgComponent(IDEComponentPalette.FindComponent(Params.NewClassname));
TPkgComponent(IDEComponentPalette.FindComponent(Params.NewClassname));
if PkgComponent<>nil then begin if PkgComponent<>nil then begin
if IDEMessageDialog(lisA2PClassNameAlreadyExists, if IDEMessageDialog(lisA2PClassNameAlreadyExists,
Format(lisA2PTheClassNameExistsAlreadyInPackageFile, ['"', Format(lisA2PTheClassNameExistsAlreadyInPackageFile, ['"',Params.NewClassName, '"', #13, PkgComponent.PkgFile.LazPackage.IDAsString,
Params.NewClassName, '"', #13, PkgComponent.PkgFile.LazPackage.IDAsString,
#13, '"', PkgComponent.PkgFile.Filename, '"']), #13, '"', PkgComponent.PkgFile.Filename, '"']),
mtError,[mbCancel,mbIgnore])<>mrIgnore mtError,[mbCancel,mbIgnore])<>mrIgnore
then then
@ -913,20 +924,16 @@ begin
OnGetIDEFileInfo,Params.UnitFilename) then exit; OnGetIDEFileInfo,Params.UnitFilename) then exit;
// create dependency if needed // create dependency if needed
PkgComponent:= PkgComponent:=TPkgComponent(IDEComponentPalette.FindComponent(Params.AncestorType));
TPkgComponent(IDEComponentPalette.FindComponent(Params.AncestorType));
if PkgComponent<>nil then begin if PkgComponent<>nil then begin
Params.UsedUnitname:=PkgComponent.GetUnitName; Params.UsedUnitname:=PkgComponent.GetUnitName;
ARequiredPackage:=PkgComponent.PkgFile.LazPackage; ARequiredPackage:=PkgComponent.PkgFile.LazPackage;
ARequiredPackage:=TLazPackage( ARequiredPackage:=TLazPackage(PackageEditingInterface.RedirectPackageDependency(ARequiredPackage));
PackageEditingInterface.RedirectPackageDependency(ARequiredPackage));
if (LazPackage<>ARequiredPackage) if (LazPackage<>ARequiredPackage)
and (not LazPackage.Requires(PkgComponent.PkgFile.LazPackage)) and (not LazPackage.Requires(PkgComponent.PkgFile.LazPackage))
then then
Params.Dependency:=ARequiredPackage.CreateDependencyWithOwner(nil); Params.Dependency:=ARequiredPackage.CreateDependencyWithOwner(nil);
end; end;
ModalResult:=mrOk; ModalResult:=mrOk;
end; end;
@ -996,19 +1003,15 @@ var
ANode: TTreeNode; ANode: TTreeNode;
begin begin
ANode:=NewFileTreeView.Selected; ANode:=NewFileTreeView.Selected;
if (ANode=nil) or (ANode.Data=nil) if (ANode<>nil) and (ANode.Data<>nil) and (TObject(ANode.Data) is TNewItemProjectFile)
or (not (TObject(ANode.Data) is TNewItemProjectFile))
then begin then begin
IDEMessageDialog(lisNewDlgNoItemSelected,
lisNewDlgPleaseSelectAnItemFirst, mtInformation, [mbOk]);
exit;
end;
Params.Clear; Params.Clear;
Params.AddType:=d2ptNewFile; Params.AddType:=d2ptNewFile;
Params.NewItem:=TNewIDEItemTemplate(ANode.Data); Params.NewItem:=TNewIDEItemTemplate(ANode.Data);
ModalResult:=mrOk; ModalResult:=mrOk;
end
else
IDEMessageDialog(lisNewDlgNoItemSelected,lisNewDlgPleaseSelectAnItemFirst,mtInformation,[mbOk]);
end; end;
procedure TAddToPackageDlg.NewFilePageResize(Sender: TObject); procedure TAddToPackageDlg.NewFilePageResize(Sender: TObject);
@ -1037,7 +1040,7 @@ end;
procedure TAddToPackageDlg.NewFileTreeViewSelectionChanged(Sender: TObject); procedure TAddToPackageDlg.NewFileTreeViewSelectionChanged(Sender: TObject);
begin begin
NewFileOkButton.Enabled:=(NewFileTreeView.Selected<>nil) OkButton.Enabled:=(NewFileTreeView.Selected<>nil)
and (TObject(NewFileTreeView.Selected.Data) is TNewIDEItemTemplate); and (TObject(NewFileTreeView.Selected.Data) is TNewIDEItemTemplate);
end; end;
@ -1073,13 +1076,54 @@ begin
end; end;
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; procedure TAddToPackageDlg.SetupComponents;
begin begin
NewFilePage.Caption:=lisA2PNewFile; NewFilePage.Caption:=lisA2PNewFile;
NewComponentPage.Caption:=lisA2PNewComponent; NewComponentPage.Caption:=lisA2PNewComponent;
NewRequirementPage.Caption:=lisProjAddNewRequirement; NewRequirementPage.Caption:=lisProjAddNewRequirement;
AddFilesPage.Caption:=lisA2PAddFiles; AddFilesPage.Caption:=lisA2PAddFiles;
CancelButton.Caption:=dlgCancel;
PageControl1.PageIndex:=0; PageControl1.PageIndex:=0;
PageControl1Change(PageControl1);
SetupNewFilePage; SetupNewFilePage;
SetupNewComponentPage; SetupNewComponentPage;
@ -1089,129 +1133,47 @@ end;
procedure TAddToPackageDlg.SetupNewFilePage; procedure TAddToPackageDlg.SetupNewFilePage;
begin begin
with NewFileDescriptionGroupBox do begin NewFileDescriptionGroupBox.Caption:=lisCodeHelpDescrTag;
Caption:=lisCodeHelpDescrTag; NewFileHelpLabel.Caption:='';
end;
with NewFileHelpLabel do begin
Caption:='';
end;
with NewFileOkButton do begin
Caption:=lisA2PCreateNewFile;
end;
with NewFileCancelButton do begin
Caption:=dlgCancel;
end;
FillNewFileTreeView; FillNewFileTreeView;
end; end;
procedure TAddToPackageDlg.SetupNewComponentPage; procedure TAddToPackageDlg.SetupNewComponentPage;
begin begin
with AncestorTypeLabel do begin AncestorTypeLabel.Caption:=lisA2PAncestorType;
Caption:=lisA2PAncestorType; AncestorComboBox.Text:='';
end; AncestorShowAllCheckBox.Caption:=lisA2PShowAll;
ClassNameLabel.Caption:=lisA2PNewClassName;
with AncestorComboBox do begin ClassNameEdit.Text:='';
Text:=''; PalettePageLabel.Caption:=lisA2PPalettePage;
end; PalettePageCombobox.Text:='';
ComponentUnitFileLabel.Caption:=lisA2PUnitFileName2;
with AncestorShowAllCheckBox do begin ComponentUnitFileEdit.Text:='';
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;
with ComponentUnitFileBrowseButton do begin with ComponentUnitFileBrowseButton do begin
Caption:='...'; Caption:='...';
ShowHint:=true; ShowHint:=true;
Hint:=lisA2PSaveFileDialog; Hint:=lisA2PSaveFileDialog;
end; end;
with ComponentUnitFileShortenButton do begin with ComponentUnitFileShortenButton do begin
Caption:='<>'; Caption:='<>';
ShowHint:=true; ShowHint:=true;
Hint:=lisA2PShortenOrExpandFilename; Hint:=lisA2PShortenOrExpandFilename;
end; end;
ComponentUnitNameLabel.Caption:=lisA2PUnitName;
with ComponentUnitNameLabel do begin ComponentUnitNameEdit.Text:='';
Caption:=lisA2PUnitName;
end;
with ComponentUnitNameEdit do begin
Text:='';
end;
ComponentIconLabel.Caption:='Icon (maximum 24x24)'; ComponentIconLabel.Caption:='Icon (maximum 24x24)';
ComponentIconSpeedButton.Width:=ComponentPaletteBtnWidth; ComponentIconSpeedButton.Width:=ComponentPaletteBtnWidth;
ComponentIconSpeedButton.Height:=ComponentPaletteBtnHeight; ComponentIconSpeedButton.Height:=ComponentPaletteBtnHeight;
with NewComponentButton do begin
Caption:=lisLazBuildOk;
end;
with CancelNewComponentButton do begin
Caption:=dlgCancel;
end;
end; end;
procedure TAddToPackageDlg.SetupAddDependencyPage; procedure TAddToPackageDlg.SetupAddDependencyPage;
begin begin
with DependPkgNameLabel do begin DependPkgNameLabel.Caption:=lisProjAddPackageName;
Caption:=lisProjAddPackageName; DependPkgNameComboBox.Text:='';
end; DependMinVersionLabel.Caption:=lisProjAddMinimumVersionOptional;
DependMinVersionEdit.Text:='';
with DependPkgNameComboBox do begin DependMaxVersionLabel.Caption:=lisProjAddMaximumVersionOptional;
Text:=''; DependMaxVersionEdit.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;
end; end;
procedure TAddToPackageDlg.SetupAddFilesPage; procedure TAddToPackageDlg.SetupAddFilesPage;
@ -1226,8 +1188,15 @@ begin
CurColumn.Caption:=dlgEnvType; CurColumn.Caption:=dlgEnvType;
end; end;
FilesBrowseButton.Caption:=lisPathEditBrowse; with FilesBrowseButton do begin
FilesDirButton.Caption:=lisAddDirectory; Caption:=lisA2PAddFiles;
LoadGlyphFromLazarusResource('laz_add');
end;
with FilesDirButton do begin
Caption:=lisAddDirectory;
LoadGlyphFromLazarusResource('pkg_files');
end;
with FilesShortenButton do begin with FilesShortenButton do begin
Caption:=lisA2PSwitchPaths; Caption:=lisA2PSwitchPaths;
@ -1239,8 +1208,8 @@ begin
Caption:=dlgEdDelete; Caption:=dlgEdDelete;
ShowHint:=true; ShowHint:=true;
Hint:=lisDeleteSelectedFiles; Hint:=lisDeleteSelectedFiles;
LoadGlyphFromLazarusResource('laz_delete');
end; end;
FilesAddButton.Caption:=lisA2PAddFilesToPackage;
end; end;
procedure TAddToPackageDlg.OnIterateComponentClasses(PkgComponent: TPkgComponent); procedure TAddToPackageDlg.OnIterateComponentClasses(PkgComponent: TPkgComponent);
@ -1275,6 +1244,7 @@ begin
PalettePageCombobox.Text:=PkgComponent.Page.PageName; PalettePageCombobox.Text:=PkgComponent.Page.PageName;
// filename // filename
AutoCompleteNewComponentUnitName; AutoCompleteNewComponentUnitName;
OkButton.Enabled := True;
end; end;
procedure TAddToPackageDlg.AutoCompleteNewComponentUnitName; procedure TAddToPackageDlg.AutoCompleteNewComponentUnitName;