Commit c6b715d5 authored by rswindell's avatar rswindell
Browse files

Added Service "Global Settings" label.

parent 1d847ed3
......@@ -46,7 +46,7 @@ object ServicesCfgDlg: TServicesCfgDlg
PixelsPerInch = 96
TextHeight = 13
object PageControl: TPageControl
Left = 3
Left = 2
Top = 3
Width = 278
Height = 199
......@@ -63,6 +63,13 @@ object ServicesCfgDlg: TServicesCfgDlg
AutoSize = False
Caption = 'Interface (IP)'
end
object GlobalSettingsLabel: TLabel
Left = 8
Top = 68
Width = 249
Height = 20
Caption = 'Global Service Settings (defaults)'
end
object AutoStartCheckBox: TCheckBox
Left = 7
Top = 10
......@@ -112,6 +119,41 @@ object ServicesCfgDlg: TServicesCfgDlg
145)
end
end
object ServicesTabSheet: TTabSheet
Caption = 'Services'
ImageIndex = 2
object CheckListBox: TCheckListBox
Left = 8
Top = 8
Width = 249
Height = 73
Hint = 'Services and their enabled/disabled state'
ItemHeight = 13
ParentShowHint = False
PopupMenu = ServicesCfgPopupMenu
ShowHint = True
TabOrder = 0
OnClick = CheckListBoxClick
OnKeyDown = CheckListBoxKeyDown
end
object ValueListEditor: TValueListEditor
Left = 8
Top = 88
Width = 250
Height = 75
Hint = 'Service settings'
KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goThumbTracking]
ParentShowHint = False
ShowHint = True
TabOrder = 1
Visible = False
OnValidate = ValueListEditorValidate
ColWidths = (
99
145)
end
end
object SoundTabSheet: TTabSheet
Caption = 'Sound'
ImageIndex = 2
......@@ -170,41 +212,6 @@ object ServicesCfgDlg: TServicesCfgDlg
OnClick = HangupSoundButtonClick
end
end
object EnableTabSheet: TTabSheet
Caption = 'Services'
ImageIndex = 2
object CheckListBox: TCheckListBox
Left = 8
Top = 8
Width = 249
Height = 73
Hint = 'Services and their enabled/disabled state'
ItemHeight = 13
ParentShowHint = False
PopupMenu = ServicesCfgPopupMenu
ShowHint = True
TabOrder = 0
OnClick = CheckListBoxClick
OnKeyDown = CheckListBoxKeyDown
end
object ValueListEditor: TValueListEditor
Left = 8
Top = 88
Width = 250
Height = 75
Hint = 'Service settings'
KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goThumbTracking]
ParentShowHint = False
ShowHint = True
TabOrder = 1
Visible = False
OnValidate = ValueListEditorValidate
ColWidths = (
99
145)
end
end
end
object OKBtn: TButton
Left = 20
......@@ -276,11 +283,11 @@ object ServicesCfgDlg: TServicesCfgDlg
Filter = 'Wave Files|*.wav'
Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
Left = 104
Top = 64
Top = 32
end
object ServicesCfgPopupMenu: TPopupMenu
Left = 176
Top = 48
Left = 136
Top = 56
object ServiceAdd: TMenuItem
Caption = 'Add'
Hint = 'Add a new service'
......
......@@ -38,13 +38,14 @@ __published: // IDE-managed Components
TButton *CancelButton;
TButton *ApplyButton;
TOpenDialog *OpenDialog;
TTabSheet *EnableTabSheet;
TTabSheet *ServicesTabSheet;
TCheckListBox *CheckListBox;
TValueListEditor *ValueListEditor;
TPopupMenu *ServicesCfgPopupMenu;
TMenuItem *ServiceAdd;
TMenuItem *ServiceRemove;
TValueListEditor *GlobalValueListEditor;
TLabel *GlobalSettingsLabel;
void __fastcall FormShow(TObject *Sender);
void __fastcall OKButtonClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment