mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 12:30:59 +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/codyopts.pas svneol=native#text/plain
|
||||||
components/codetools/ide/codyregistration.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/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/codyutils.pas svneol=native#text/pascal
|
||||||
components/codetools/ide/declarevardlg.lfm svneol=native#text/plain
|
components/codetools/ide/declarevardlg.lfm svneol=native#text/plain
|
||||||
components/codetools/ide/declarevardlg.pas svneol=native#text/pascal
|
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