PageRenderTime 23ms CodeModel.GetById 21ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/jcl/examples/windows/ntservice/NtSvcDemoMain.dfm

https://github.com/the-Arioch/jcl
Unknown | 275 lines | 275 code | 0 blank | 0 comment | 0 complexity | b96522ed527946cbf84e1d8d2cee82c5 MD5 | raw file
Possible License(s): BSD-3-Clause
  1object frmMain: TfrmMain
  2  Left = 271
  3  Top = 251
  4  ClientWidth = 640
  5  ClientHeight = 426
  6  Caption = 'NT Service Control Demo'
  7  Color = clBtnFace
  8  Font.Charset = DEFAULT_CHARSET
  9  Font.Color = clWindowText
 10  Font.Height = -11
 11  Font.Name = 'MS Sans Serif'
 12  Font.Style = []
 13  Menu = mnuMain
 14  OldCreateOrder = False
 15  Position = poDesktopCenter
 16  OnCreate = FormCreate
 17  OnDestroy = FormDestroy
 18  PixelsPerInch = 96
 19  TextHeight = 13
 20  object lstSvc: TListView
 21    Left = 0
 22    Top = 0
 23    Width = 632
 24    Height = 415
 25    Align = alClient
 26    Columns = <
 27      item
 28        Caption = 'Service Name'
 29        Width = 80
 30      end
 31      item
 32        Caption = 'Display Name'
 33        Width = 300
 34      end
 35      item
 36        Caption = 'State'
 37        Width = 64
 38      end
 39      item
 40        Caption = 'Start Type'
 41        Width = 80
 42      end
 43      item
 44        Caption = 'Err Ctrl Type'
 45        Width = 80
 46      end
 47      item
 48        Caption = 'Exit Code'
 49        Width = 60
 50      end
 51      item
 52        AutoSize = True
 53        Caption = 'Description'
 54        WidthType = (
 55          -12)
 56      end
 57      item
 58        AutoSize = True
 59        Caption = 'File Name'
 60        WidthType = (
 61          -12)
 62      end
 63      item
 64        AutoSize = True
 65        Caption = 'Group'
 66        WidthType = (
 67          -12)
 68      end>
 69    GridLines = True
 70    HideSelection = False
 71    HotTrack = True
 72    HotTrackStyles = [htHandPoint, htUnderlineHot]
 73    OwnerData = True
 74    ReadOnly = True
 75    RowSelect = True
 76    ParentShowHint = False
 77    PopupMenu = mnuPopup
 78    ShowHint = True
 79    TabOrder = 0
 80    ViewStyle = vsReport
 81    OnColumnClick = lstSvcColumnClick
 82    OnData = lstSvcData
 83  end
 84  object barStatus: TStatusBar
 85    Left = 0
 86    Top = 415
 87    Width = 632
 88    Height = 19
 89    Panels = <>
 90    SimplePanel = True
 91  end
 92  object lstActions: TActionList
 93    Left = 24
 94    Top = 40
 95    object actViewRefresh: TAction
 96      Category = 'View'
 97      Caption = '&Refresh'
 98      Hint = 'Refresh all'
 99      ShortCut = 116
100      OnExecute = actViewRefreshExecute
101    end
102    object actFileConnect: TAction
103      Category = 'File'
104      Caption = '&Connect...'
105      Hint = 'Connect to computer'
106      ShortCut = 16462
107      OnExecute = actFileConnectExecute
108    end
109    object actFileExit: TAction
110      Category = 'File'
111      Caption = 'E&xit'
112      Hint = 'Exit the program'
113      ShortCut = 32883
114      OnExecute = actFileExitExecute
115    end
116    object actHelpAbout: TAction
117      Category = 'Help'
118      Caption = 'About'
119      Hint = 'About the program'
120      ShortCut = 112
121      OnExecute = actHelpAboutExecute
122    end
123    object actControlStart: TAction
124      Category = 'Control'
125      Caption = '&Start'
126      Hint = 'Start Service'
127      ShortCut = 16466
128      OnExecute = actControlStartExecute
129      OnUpdate = actControlStartUpdate
130    end
131    object actControlStop: TAction
132      Category = 'Control'
133      Caption = 'St&op'
134      Hint = 'Stop Service'
135      ShortCut = 16467
136      OnExecute = actControlStopExecute
137      OnUpdate = actControlStopUpdate
138    end
139    object actControlPause: TAction
140      Category = 'Control'
141      Caption = '&Pause'
142      Hint = 'Pause Service'
143      ShortCut = 16464
144      OnExecute = actControlPauseExecute
145      OnUpdate = actControlPauseUpdate
146    end
147    object actControlContinue: TAction
148      Category = 'Control'
149      Caption = '&Continue'
150      Hint = 'Continue Service'
151      ShortCut = 16468
152      OnExecute = actControlContinueExecute
153      OnUpdate = actControlContinueUpdate
154    end
155    object actViewDependent: TAction
156      Category = 'View'
157      Caption = '&Dependent'
158      Hint = 'View the service dependent'
159      ShortCut = 16452
160      OnExecute = actViewDependentExecute
161      OnUpdate = actViewDependentUpdate
162    end
163    object actViewGroups: TAction
164      Category = 'View'
165      Caption = 'Groups'
166      Hint = 'View the service groups'
167      ShortCut = 16455
168      OnExecute = actViewGroupsExecute
169      OnUpdate = actViewGroupsUpdate
170    end
171    object actControlDelete: TAction
172      Category = 'Control'
173      Caption = '&Delete'
174      Hint = 'Delete Service'
175      ShortCut = 16430
176      OnExecute = actControlDeleteExecute
177      OnUpdate = ActionItemSelected
178    end
179  end
180  object mnuPopup: TPopupMenu
181    Left = 136
182    Top = 40
183    object popControlStart: TMenuItem
184      Action = actControlStart
185    end
186    object popControlStop: TMenuItem
187      Action = actControlStop
188    end
189    object popControlPause: TMenuItem
190      Action = actControlPause
191    end
192    object popControlContinue: TMenuItem
193      Action = actControlContinue
194    end
195    object popLine0: TMenuItem
196      Caption = '-'
197    end
198    object popControlDelete: TMenuItem
199      Action = actControlDelete
200    end
201    object popLine1: TMenuItem
202      Caption = '-'
203    end
204    object popViewDependent: TMenuItem
205      Action = actViewDependent
206    end
207    object popViewGroups: TMenuItem
208      Action = actViewGroups
209    end
210    object popLine2: TMenuItem
211      Caption = '-'
212    end
213    object popViewRefresh: TMenuItem
214      Action = actViewRefresh
215    end
216  end
217  object mnuMain: TMainMenu
218    Left = 80
219    Top = 40
220    object mnuFile: TMenuItem
221      Caption = '&File'
222      object mnuFileConnect: TMenuItem
223        Action = actFileConnect
224      end
225      object mnuFileLine1: TMenuItem
226        Caption = '-'
227      end
228      object mnuFileExit: TMenuItem
229        Action = actFileExit
230      end
231    end
232    object mnuView: TMenuItem
233      Caption = '&View'
234      object mnuViewDependent: TMenuItem
235        Action = actViewDependent
236      end
237      object mnuViewGroups: TMenuItem
238        Action = actViewGroups
239      end
240      object mnuViewLine1: TMenuItem
241        Caption = '-'
242      end
243      object mnuViewRefreshStatus: TMenuItem
244        Action = actViewRefresh
245      end
246    end
247    object mnuControl: TMenuItem
248      Caption = '&Control'
249      object mnuControlStart: TMenuItem
250        Action = actControlStart
251      end
252      object mnuControlStop: TMenuItem
253        Action = actControlStop
254      end
255      object mnuControlPause: TMenuItem
256        Action = actControlPause
257      end
258      object mnuControlContinue: TMenuItem
259        Action = actControlContinue
260      end
261      object mnuControlLine1: TMenuItem
262        Caption = '-'
263      end
264      object mnuControlDelete: TMenuItem
265        Action = actControlDelete
266      end
267    end
268    object mnuHelp: TMenuItem
269      Caption = '&Help'
270      object mnuHelpAbout: TMenuItem
271        Action = actHelpAbout
272      end
273    end
274  end
275end