Skip to content
Snippets Groups Projects
Commit c6b715d5 authored by rswindell's avatar rswindell
Browse files

Added Service "Global Settings" label.

parent 1d847ed3
No related branches found
No related tags found
No related merge requests found
......@@ -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);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment