1
0
mirror of synced 2024-11-14 16:33:54 +00:00

Fixed: Issue #144

This commit is contained in:
Mark van Renswoude 2006-01-13 21:05:07 +00:00
parent fe432ee088
commit ada3ea50e4
2 changed files with 55 additions and 74 deletions

View File

@ -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

View File

@ -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