mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-17 22:09:28 +02:00
cody: clean up
git-svn-id: trunk@42136 -
This commit is contained in:
mattias
parent
93606b42bb
commit
633c1f924a
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -850,8 +850,6 @@ components/codetools/ide/codynodeinfodlg.pas svneol=native#text/plain
|
||||
components/codetools/ide/codyopts.pas svneol=native#text/plain
|
||||
components/codetools/ide/codyregistration.pas svneol=native#text/plain
|
||||
components/codetools/ide/codystrconsts.pas svneol=native#text/pascal
|
||||
components/codetools/ide/codyunitdepwnd.lfm svneol=native#text/plain
|
||||
components/codetools/ide/codyunitdepwnd.pas svneol=native#text/plain
|
||||
components/codetools/ide/codyutils.pas svneol=native#text/pascal
|
||||
components/codetools/ide/declarevardlg.lfm svneol=native#text/plain
|
||||
components/codetools/ide/declarevardlg.pas svneol=native#text/pascal
|
||||
|
||||
@ -1,412 +0,0 @@
|
||||
object UnitDependenciesWindow: TUnitDependenciesWindow
|
||||
Left = 497
|
||||
Height = 440
|
||||
Top = 150
|
||||
Width = 620
|
||||
Caption = 'UnitDependenciesWindow'
|
||||
ClientHeight = 440
|
||||
ClientWidth = 620
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.1'
|
||||
object MainPageControl: TPageControl
|
||||
Left = 0
|
||||
Height = 414
|
||||
Top = 0
|
||||
Width = 620
|
||||
ActivePage = UnitsTabSheet
|
||||
Align = alClient
|
||||
TabIndex = 0
|
||||
TabOrder = 0
|
||||
object UnitsTabSheet: TTabSheet
|
||||
Caption = 'UnitsTabSheet'
|
||||
ClientHeight = 375
|
||||
ClientWidth = 614
|
||||
object ScopePanel: TPanel
|
||||
Left = 0
|
||||
Height = 47
|
||||
Top = 0
|
||||
Width = 614
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
ClientHeight = 47
|
||||
ClientWidth = 614
|
||||
TabOrder = 0
|
||||
object SearchCustomFilesCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = ScopePanel
|
||||
AnchorSideTop.Control = SearchCustomFilesComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 3
|
||||
Height = 18
|
||||
Top = 4
|
||||
Width = 201
|
||||
BorderSpacing.Around = 2
|
||||
Caption = 'SearchCustomFilesCheckBox'
|
||||
OnChange = SearchCustomFilesCheckBoxChange
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object SearchCustomFilesBrowseButton: TButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = SearchCustomFilesComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = ScopePanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 543
|
||||
Height = 20
|
||||
Top = 3
|
||||
Width = 70
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
Caption = 'Browse'
|
||||
OnClick = SearchCustomFilesBrowseButtonClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object SearchCustomFilesComboBox: TComboBox
|
||||
AnchorSideLeft.Control = SearchCustomFilesCheckBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = ScopePanel
|
||||
AnchorSideRight.Control = SearchCustomFilesBrowseButton
|
||||
Left = 206
|
||||
Height = 21
|
||||
Top = 3
|
||||
Width = 335
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 2
|
||||
ItemHeight = 0
|
||||
OnChange = SearchCustomFilesComboBoxChange
|
||||
TabOrder = 2
|
||||
Text = 'SearchCustomFilesComboBox'
|
||||
end
|
||||
object SearchPkgsCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = ScopePanel
|
||||
AnchorSideTop.Control = SearchCustomFilesComboBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 3
|
||||
Height = 18
|
||||
Top = 26
|
||||
Width = 153
|
||||
BorderSpacing.Around = 2
|
||||
Caption = 'SearchPkgsCheckBox'
|
||||
OnChange = SearchPkgsCheckBoxChange
|
||||
TabOrder = 3
|
||||
end
|
||||
object SearchSrcEditCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = SearchPkgsCheckBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = SearchPkgsCheckBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 173
|
||||
Height = 18
|
||||
Top = 26
|
||||
Width = 167
|
||||
BorderSpacing.Left = 15
|
||||
BorderSpacing.Around = 2
|
||||
Caption = 'SearchSrcEditCheckBox'
|
||||
Checked = True
|
||||
OnChange = SearchSrcEditCheckBoxChange
|
||||
State = cbChecked
|
||||
TabOrder = 4
|
||||
end
|
||||
end
|
||||
object AllUnitsGroupBox: TGroupBox
|
||||
Left = 0
|
||||
Height = 328
|
||||
Top = 47
|
||||
Width = 248
|
||||
Align = alLeft
|
||||
Caption = 'AllUnitsGroupBox'
|
||||
ClientHeight = 306
|
||||
ClientWidth = 240
|
||||
TabOrder = 1
|
||||
object AllUnitsShowGroupNodesSpeedButton: TSpeedButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = AllUnitsFilterEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = AllUnitsShowDirsSpeedButton
|
||||
Left = 194
|
||||
Height = 22
|
||||
Top = 0
|
||||
Width = 23
|
||||
AllowAllUp = True
|
||||
Anchors = [akTop, akRight]
|
||||
GroupIndex = 12
|
||||
OnClick = AllUnitsShowGroupNodesSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object AllUnitsShowDirsSpeedButton: TSpeedButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = AllUnitsFilterEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = AllUnitsGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 217
|
||||
Height = 22
|
||||
Top = 0
|
||||
Width = 23
|
||||
AllowAllUp = True
|
||||
Anchors = [akTop, akRight]
|
||||
GroupIndex = 13
|
||||
OnClick = AllUnitsShowDirsSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object AllUnitsFilterEdit: TEdit
|
||||
AnchorSideLeft.Control = AllUnitsGroupBox
|
||||
AnchorSideTop.Control = AllUnitsGroupBox
|
||||
AnchorSideRight.Control = AllUnitsShowGroupNodesSpeedButton
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 0
|
||||
Width = 194
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
OnChange = AllUnitsFilterEditChange
|
||||
OnEnter = AllUnitsFilterEditEnter
|
||||
OnExit = AllUnitsFilterEditExit
|
||||
TabOrder = 0
|
||||
Text = 'AllUnitsFilterEdit'
|
||||
end
|
||||
object AllUnitsSearchNextSpeedButton: TSpeedButton
|
||||
AnchorSideTop.Control = AllUnitsSearchEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = AllUnitsSearchPrevSpeedButton
|
||||
Left = 194
|
||||
Height = 22
|
||||
Top = 284
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
OnClick = AllUnitsSearchNextSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object AllUnitsSearchPrevSpeedButton: TSpeedButton
|
||||
AnchorSideTop.Control = AllUnitsSearchEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = AllUnitsGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 217
|
||||
Height = 22
|
||||
Top = 284
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
OnClick = AllUnitsSearchPrevSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object AllUnitsTreeView: TTreeView
|
||||
AnchorSideLeft.Control = AllUnitsGroupBox
|
||||
AnchorSideTop.Control = AllUnitsFilterEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = AllUnitsGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = AllUnitsSearchEdit
|
||||
Left = 0
|
||||
Height = 262
|
||||
Top = 22
|
||||
Width = 240
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
DefaultItemHeight = 18
|
||||
HotTrack = True
|
||||
MultiSelect = True
|
||||
ParentShowHint = False
|
||||
PopupMenu = UnitsTVPopupMenu
|
||||
ReadOnly = True
|
||||
RightClickSelect = True
|
||||
ShowHint = True
|
||||
ShowRoot = False
|
||||
TabOrder = 1
|
||||
OnAdvancedCustomDrawItem = AllUnitsTreeViewAdvancedCustomDrawItem
|
||||
OnMouseDown = UnitsTreeViewMouseDown
|
||||
OnSelectionChanged = AllUnitsTreeViewSelectionChanged
|
||||
OnShowHint = UnitsTreeViewShowHint
|
||||
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoThemedDraw]
|
||||
end
|
||||
object AllUnitsSearchEdit: TEdit
|
||||
AnchorSideLeft.Control = AllUnitsGroupBox
|
||||
AnchorSideRight.Control = AllUnitsSearchNextSpeedButton
|
||||
AnchorSideBottom.Control = AllUnitsGroupBox
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 284
|
||||
Width = 194
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
OnChange = AllUnitsSearchEditChange
|
||||
OnEnter = AllUnitsSearchEditEnter
|
||||
OnExit = AllUnitsSearchEditExit
|
||||
TabOrder = 2
|
||||
Text = 'AllUnitsSearchEdit'
|
||||
end
|
||||
end
|
||||
object UnitsSplitter: TSplitter
|
||||
Left = 248
|
||||
Height = 328
|
||||
Top = 47
|
||||
Width = 5
|
||||
end
|
||||
object SelectedUnitsGroupBox: TGroupBox
|
||||
Left = 253
|
||||
Height = 328
|
||||
Top = 47
|
||||
Width = 361
|
||||
Align = alClient
|
||||
Caption = 'SelectedUnitsGroupBox'
|
||||
ClientHeight = 306
|
||||
ClientWidth = 353
|
||||
TabOrder = 3
|
||||
object SelUnitsSearchNextSpeedButton: TSpeedButton
|
||||
AnchorSideTop.Control = SelUnitsSearchEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = SelUnitsSearchPrevSpeedButton
|
||||
Left = 307
|
||||
Height = 22
|
||||
Top = 284
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
OnClick = SelUnitsSearchNextSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object SelUnitsSearchPrevSpeedButton: TSpeedButton
|
||||
AnchorSideTop.Control = SelUnitsSearchEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = SelectedUnitsGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 330
|
||||
Height = 22
|
||||
Top = 284
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
OnClick = SelUnitsSearchPrevSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object SelUnitsSearchEdit: TEdit
|
||||
AnchorSideLeft.Control = SelectedUnitsGroupBox
|
||||
AnchorSideRight.Control = SelUnitsSearchNextSpeedButton
|
||||
AnchorSideBottom.Control = SelectedUnitsGroupBox
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 284
|
||||
Width = 307
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
OnChange = SelUnitsSearchEditChange
|
||||
OnEnter = SelUnitsSearchEditEnter
|
||||
OnExit = SelUnitsSearchEditExit
|
||||
TabOrder = 0
|
||||
Text = 'SelUnitsSearchEdit'
|
||||
end
|
||||
object SelUnitsTreeView: TTreeView
|
||||
AnchorSideLeft.Control = SelectedUnitsGroupBox
|
||||
AnchorSideTop.Control = SelectedUnitsGroupBox
|
||||
AnchorSideRight.Control = SelectedUnitsGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = SelUnitsSearchEdit
|
||||
Left = 0
|
||||
Height = 284
|
||||
Top = 0
|
||||
Width = 353
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
DefaultItemHeight = 18
|
||||
HotTrack = True
|
||||
ParentShowHint = False
|
||||
PopupMenu = UnitsTVPopupMenu
|
||||
ReadOnly = True
|
||||
RightClickSelect = True
|
||||
ShowHint = True
|
||||
ShowRoot = False
|
||||
TabOrder = 1
|
||||
OnExpanding = SelUnitsTreeViewExpanding
|
||||
OnMouseDown = UnitsTreeViewMouseDown
|
||||
OnShowHint = UnitsTreeViewShowHint
|
||||
Options = [tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoThemedDraw]
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupsTabSheet: TTabSheet
|
||||
Caption = 'GroupsTabSheet'
|
||||
ClientHeight = 378
|
||||
ClientWidth = 616
|
||||
object GroupsSplitter: TSplitter
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 0
|
||||
Width = 665
|
||||
Align = alTop
|
||||
ResizeAnchor = akTop
|
||||
end
|
||||
end
|
||||
end
|
||||
object StatusPanel: TPanel
|
||||
Left = 0
|
||||
Height = 26
|
||||
Top = 414
|
||||
Width = 620
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
ClientHeight = 26
|
||||
ClientWidth = 620
|
||||
TabOrder = 1
|
||||
object ProgressBar1: TProgressBar
|
||||
AnchorSideLeft.Control = StatsLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = RefreshButton
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = RefreshButton
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 77
|
||||
Height = 20
|
||||
Top = 3
|
||||
Width = 425
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 0
|
||||
end
|
||||
object RefreshButton: TButton
|
||||
Left = 504
|
||||
Height = 20
|
||||
Top = 3
|
||||
Width = 113
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 2
|
||||
Caption = 'RefreshButton'
|
||||
OnClick = RefreshButtonClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object StatsLabel: TLabel
|
||||
AnchorSideLeft.Control = StatusPanel
|
||||
AnchorSideTop.Control = RefreshButton
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 7
|
||||
Height = 16
|
||||
Top = 5
|
||||
Width = 64
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'StatsLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
end
|
||||
object UnitsTVPopupMenu: TPopupMenu
|
||||
OnPopup = UnitsTVPopupMenuPopup
|
||||
left = 120
|
||||
top = 193
|
||||
object UnitsTVCopyFilenameMenuItem: TMenuItem
|
||||
Caption = 'UnitsTVCopyFilenameMenuItem'
|
||||
OnClick = UnitsTVCopyFilenameMenuItemClick
|
||||
end
|
||||
object UnitsTVExpandAllMenuItem: TMenuItem
|
||||
Caption = 'UnitsTVExpandAllMenuItem'
|
||||
OnClick = UnitsTVExpandAllMenuItemClick
|
||||
end
|
||||
object UnitsTVCollapseAllMenuItem: TMenuItem
|
||||
Caption = 'UnitsTVCollapseAllMenuItem'
|
||||
OnClick = UnitsTVCollapseAllMenuItemClick
|
||||
end
|
||||
end
|
||||
end
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user