Fixed: Issue #144
This commit is contained in:
parent
fe432ee088
commit
ada3ea50e4
@ -4,7 +4,7 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
BorderIcons = [biSystemMenu]
|
BorderIcons = [biSystemMenu]
|
||||||
Caption = 'UnitSwitcher'
|
Caption = 'UnitSwitcher'
|
||||||
ClientHeight = 398
|
ClientHeight = 398
|
||||||
ClientWidth = 311
|
ClientWidth = 312
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
Constraints.MinHeight = 240
|
Constraints.MinHeight = 240
|
||||||
Constraints.MinWidth = 290
|
Constraints.MinWidth = 290
|
||||||
@ -33,7 +33,7 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
object sbStatus: TStatusBar
|
object sbStatus: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 379
|
Top = 379
|
||||||
Width = 311
|
Width = 312
|
||||||
Height = 19
|
Height = 19
|
||||||
Panels = <
|
Panels = <
|
||||||
item
|
item
|
||||||
@ -43,7 +43,7 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
object pnlMain: TPanel
|
object pnlMain: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 311
|
Width = 312
|
||||||
Height = 307
|
Height = 307
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
@ -52,18 +52,18 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
object pnlSearch: TPanel
|
object pnlSearch: TPanel
|
||||||
Left = 4
|
Left = 4
|
||||||
Top = 4
|
Top = 4
|
||||||
Width = 303
|
Width = 304
|
||||||
Height = 25
|
Height = 25
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
303
|
304
|
||||||
25)
|
25)
|
||||||
object edtSearch: TEdit
|
object edtSearch: TEdit
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 303
|
Width = 304
|
||||||
Height = 21
|
Height = 21
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
@ -74,7 +74,7 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
object lstUnits: TListBox
|
object lstUnits: TListBox
|
||||||
Left = 4
|
Left = 4
|
||||||
Top = 29
|
Top = 29
|
||||||
Width = 303
|
Width = 304
|
||||||
Height = 274
|
Height = 274
|
||||||
Style = lbVirtualOwnerDraw
|
Style = lbVirtualOwnerDraw
|
||||||
Align = alClient
|
Align = alClient
|
||||||
@ -90,16 +90,16 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
object pnlButtons: TPanel
|
object pnlButtons: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 343
|
Top = 343
|
||||||
Width = 311
|
Width = 312
|
||||||
Height = 36
|
Height = 36
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
TabOrder = 1
|
TabOrder = 2
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
311
|
312
|
||||||
36)
|
36)
|
||||||
object btnCancel: TButton
|
object btnCancel: TButton
|
||||||
Left = 232
|
Left = 233
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 75
|
Width = 75
|
||||||
Height = 25
|
Height = 25
|
||||||
@ -107,10 +107,10 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
Cancel = True
|
Cancel = True
|
||||||
Caption = 'Cancel'
|
Caption = 'Cancel'
|
||||||
ModalResult = 2
|
ModalResult = 2
|
||||||
TabOrder = 1
|
TabOrder = 2
|
||||||
end
|
end
|
||||||
object btnOK: TButton
|
object btnOK: TButton
|
||||||
Left = 151
|
Left = 152
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 75
|
Width = 75
|
||||||
Height = 25
|
Height = 25
|
||||||
@ -118,7 +118,7 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
Caption = 'OK'
|
Caption = 'OK'
|
||||||
Default = True
|
Default = True
|
||||||
ModalResult = 1
|
ModalResult = 1
|
||||||
TabOrder = 0
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
object btnConfiguration: TButton
|
object btnConfiguration: TButton
|
||||||
Left = 4
|
Left = 4
|
||||||
@ -126,71 +126,53 @@ object frmUnSwDialog: TfrmUnSwDialog
|
|||||||
Width = 85
|
Width = 85
|
||||||
Height = 25
|
Height = 25
|
||||||
Caption = '&Configuration'
|
Caption = '&Configuration'
|
||||||
TabOrder = 2
|
TabOrder = 0
|
||||||
OnClick = btnConfigurationClick
|
OnClick = btnConfigurationClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pnlIncludeTypes: TPanel
|
object pnlIncludeTypes: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 307
|
Top = 307
|
||||||
Width = 311
|
Width = 312
|
||||||
Height = 36
|
Height = 36
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
TabOrder = 3
|
TabOrder = 1
|
||||||
object pnlIncludeUnitTypes: TPanel
|
object chkDataModules: TCheckBox
|
||||||
Left = 149
|
Left = 4
|
||||||
Top = 0
|
Top = 17
|
||||||
Width = 162
|
Width = 137
|
||||||
Height = 36
|
Height = 17
|
||||||
Align = alClient
|
Caption = 'Show &DataModule units'
|
||||||
BevelOuter = bvNone
|
|
||||||
TabOrder = 0
|
|
||||||
object chkProjectSource: TCheckBox
|
|
||||||
Left = 4
|
|
||||||
Top = 17
|
|
||||||
Width = 121
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Show &Project source'
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = TypeFilterChange
|
|
||||||
end
|
|
||||||
object chkUnits: TCheckBox
|
|
||||||
Left = 4
|
|
||||||
Top = 0
|
|
||||||
Width = 77
|
|
||||||
Height = 17
|
|
||||||
Caption = 'Show &Units'
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = TypeFilterChange
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object pnlIncludeFormTypes: TPanel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 149
|
|
||||||
Height = 36
|
|
||||||
Align = alLeft
|
|
||||||
BevelOuter = bvNone
|
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object chkDataModules: TCheckBox
|
OnClick = TypeFilterChange
|
||||||
Left = 4
|
end
|
||||||
Top = 19
|
object chkForms: TCheckBox
|
||||||
Width = 137
|
Left = 4
|
||||||
Height = 17
|
Top = 0
|
||||||
Caption = 'Show &DataModule units'
|
Width = 101
|
||||||
TabOrder = 0
|
Height = 17
|
||||||
OnClick = TypeFilterChange
|
Caption = 'Show &Form units'
|
||||||
end
|
TabOrder = 0
|
||||||
object chkForms: TCheckBox
|
OnClick = TypeFilterChange
|
||||||
Left = 4
|
end
|
||||||
Top = 2
|
object chkProjectSource: TCheckBox
|
||||||
Width = 101
|
Left = 152
|
||||||
Height = 17
|
Top = 17
|
||||||
Caption = 'Show &Form units'
|
Width = 121
|
||||||
TabOrder = 1
|
Height = 17
|
||||||
OnClick = TypeFilterChange
|
Caption = 'Show &Project source'
|
||||||
end
|
TabOrder = 3
|
||||||
|
OnClick = TypeFilterChange
|
||||||
|
end
|
||||||
|
object chkUnits: TCheckBox
|
||||||
|
Left = 152
|
||||||
|
Top = 0
|
||||||
|
Width = 77
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Show &Units'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = TypeFilterChange
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object ilsTypes: TImageList
|
object ilsTypes: TImageList
|
||||||
|
@ -66,9 +66,7 @@ type
|
|||||||
pmnUnitsSortByName: TMenuItem;
|
pmnUnitsSortByName: TMenuItem;
|
||||||
pmnUnitsSortByType: TMenuItem;
|
pmnUnitsSortByType: TMenuItem;
|
||||||
pnlButtons: TPanel;
|
pnlButtons: TPanel;
|
||||||
pnlIncludeFormTypes: TPanel;
|
|
||||||
pnlIncludeTypes: TPanel;
|
pnlIncludeTypes: TPanel;
|
||||||
pnlIncludeUnitTypes: TPanel;
|
|
||||||
pnlMain: TPanel;
|
pnlMain: TPanel;
|
||||||
pnlSearch: TPanel;
|
pnlSearch: TPanel;
|
||||||
sbStatus: TStatusBar;
|
sbStatus: TStatusBar;
|
||||||
@ -315,10 +313,11 @@ begin
|
|||||||
|
|
||||||
if FFormsOnly then
|
if FFormsOnly then
|
||||||
begin
|
begin
|
||||||
pnlIncludeUnitTypes.Visible := False;
|
chkProjectSource.Visible := False;
|
||||||
Self.Caption := 'UnitSwitcher - View Form';
|
chkUnits.Visible := False;
|
||||||
|
Self.Caption := 'UnitSwitcher - View Form';
|
||||||
end else
|
end else
|
||||||
Self.Caption := 'UnitSwitcher - View Unit';
|
Self.Caption := 'UnitSwitcher - View Unit';
|
||||||
|
|
||||||
FStyleVisitor := TUnSwStyleVisitor.Create();
|
FStyleVisitor := TUnSwStyleVisitor.Create();
|
||||||
try
|
try
|
||||||
|
Loading…
Reference in New Issue
Block a user