LogSettings.dfm 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165
  1. object LoggingFrame: TLoggingFrame
  2. Left = 0
  3. Top = 0
  4. Width = 314
  5. Height = 233
  6. TabOrder = 0
  7. DesignSize = (
  8. 314
  9. 233)
  10. object LoggingCheck: TCheckBox
  11. Left = 14
  12. Top = 8
  13. Width = 203
  14. Height = 17
  15. Caption = '&Enable logging'
  16. TabOrder = 0
  17. OnClick = DataChange
  18. end
  19. object LoggingGroup: TGroupBox
  20. Left = 3
  21. Top = 32
  22. Width = 309
  23. Height = 198
  24. Anchors = [akLeft, akTop, akRight]
  25. Caption = 'Logging options'
  26. TabOrder = 1
  27. DesignSize = (
  28. 309
  29. 198)
  30. object LogWindowLinesText: TLabel
  31. Left = 256
  32. Top = 166
  33. Width = 21
  34. Height = 13
  35. Caption = 'lines'
  36. end
  37. object LogProtocolLabel: TLabel
  38. Left = 16
  39. Top = 21
  40. Width = 66
  41. Height = 13
  42. Caption = 'Logging &level:'
  43. FocusControl = LogProtocolCombo
  44. end
  45. object LogToFileCheck: TCheckBox
  46. Left = 16
  47. Top = 45
  48. Width = 193
  49. Height = 17
  50. Caption = 'Log to &file:'
  51. TabOrder = 1
  52. OnClick = LogToFileCheckChange
  53. end
  54. object LogFileNameEdit: TFilenameEdit
  55. Left = 40
  56. Top = 68
  57. Width = 255
  58. Height = 21
  59. AcceptFiles = True
  60. OnBeforeDialog = LogFileNameEditBeforeDialog
  61. OnAfterDialog = LogFileNameEditAfterDialog
  62. DefaultExt = 'log'
  63. Filter = 'Log files (*.log)|*.log|All files (*.*)|*.*'
  64. DialogOptions = [ofHideReadOnly, ofPathMustExist]
  65. DialogTitle = 'Select file for session log.'
  66. ClickKey = 16397
  67. Anchors = [akLeft, akTop, akRight]
  68. TabOrder = 2
  69. Text = 'LogFileNameEdit'
  70. OnChange = DataChange
  71. end
  72. object LogShowWindowCheck: TCheckBox
  73. Left = 16
  74. Top = 121
  75. Width = 129
  76. Height = 17
  77. Caption = 'Show log &window:'
  78. TabOrder = 5
  79. OnClick = DataChange
  80. end
  81. object LogWindowCompleteButton: TRadioButton
  82. Left = 40
  83. Top = 142
  84. Width = 233
  85. Height = 17
  86. Caption = 'Display &complete session'
  87. TabOrder = 6
  88. OnClick = DataChange
  89. end
  90. object LogWindowLinesButton: TRadioButton
  91. Left = 40
  92. Top = 166
  93. Width = 136
  94. Height = 17
  95. Caption = 'Display only &last '
  96. TabOrder = 7
  97. OnClick = DataChange
  98. end
  99. object LogWindowLinesEdit: TUpDownEdit
  100. Left = 176
  101. Top = 162
  102. Width = 73
  103. Height = 21
  104. Alignment = taRightJustify
  105. Increment = 50
  106. MaxValue = 10000
  107. MinValue = 50
  108. TabOrder = 8
  109. OnChange = DataChange
  110. end
  111. object LogFilePanel: TPanel
  112. Left = 40
  113. Top = 93
  114. Width = 185
  115. Height = 25
  116. Anchors = [akLeft, akTop, akRight]
  117. BevelOuter = bvNone
  118. TabOrder = 4
  119. object LogFileAppendButton: TRadioButton
  120. Left = 0
  121. Top = 4
  122. Width = 97
  123. Height = 17
  124. Caption = '&Append'
  125. TabOrder = 0
  126. OnClick = DataChange
  127. end
  128. object LogFileOverwriteButton: TRadioButton
  129. Left = 96
  130. Top = 4
  131. Width = 89
  132. Height = 17
  133. Caption = '&Overwrite'
  134. TabOrder = 1
  135. OnClick = DataChange
  136. end
  137. end
  138. object LogProtocolCombo: TComboBox
  139. Left = 112
  140. Top = 17
  141. Width = 113
  142. Height = 21
  143. Style = csDropDownList
  144. Anchors = [akLeft, akTop, akRight]
  145. ItemHeight = 13
  146. TabOrder = 0
  147. Items.Strings = (
  148. 'Normal'
  149. 'Debug 1'
  150. 'Debug 2')
  151. end
  152. object LogFileNameHintText: TStaticText
  153. Left = 224
  154. Top = 91
  155. Width = 71
  156. Height = 16
  157. Alignment = taRightJustify
  158. Anchors = [akTop, akRight]
  159. AutoSize = False
  160. Caption = '&patterns'
  161. TabOrder = 3
  162. TabStop = True
  163. end
  164. end
  165. end