--- sbbs/src/sbbs3/ctrl/webformunit.dfm 2018/04/24 16:41:24 1.1 +++ sbbs/src/sbbs3/ctrl/webformunit.dfm 2018/04/24 16:44:28 1.1.1.2 @@ -35,21 +35,27 @@ object WebForm: TWebForm ParentShowHint = False ShowHint = True end - object StopButton: TToolButton + object LogPauseButton: TToolButton Left = 23 Top = 0 + Action = MainForm.WebPause + Style = tbsCheck + end + object StopButton: TToolButton + Left = 46 + Top = 0 Action = MainForm.WebStop Grouped = True ParentShowHint = False ShowHint = True end object RecycleButton: TToolButton - Left = 46 + Left = 69 Top = 0 Action = MainForm.WebRecycle end object ToolButton1: TToolButton - Left = 69 + Left = 92 Top = 0 Width = 8 Caption = 'ToolButton1' @@ -57,14 +63,14 @@ object WebForm: TWebForm Style = tbsSeparator end object ConfigureButton: TToolButton - Left = 77 + Left = 100 Top = 0 Action = MainForm.WebConfigure ParentShowHint = False ShowHint = True end object ToolButton2: TToolButton - Left = 100 + Left = 123 Top = 0 Width = 8 Caption = 'ToolButton2' @@ -72,7 +78,7 @@ object WebForm: TWebForm Style = tbsSeparator end object Status: TStaticText - Left = 108 + Left = 131 Top = 0 Width = 150 Height = 22 @@ -84,7 +90,7 @@ object WebForm: TWebForm TabOrder = 0 end object ToolButton3: TToolButton - Left = 258 + Left = 281 Top = 0 Width = 8 Caption = 'ToolButton3' @@ -92,7 +98,7 @@ object WebForm: TWebForm Style = tbsSeparator end object ProgressBar: TProgressBar - Left = 266 + Left = 289 Top = 0 Width = 75 Height = 22 @@ -103,15 +109,54 @@ object WebForm: TWebForm Step = 1 TabOrder = 1 end + object ToolButton4: TToolButton + Left = 364 + Top = 0 + Width = 8 + Caption = 'ToolButton4' + ImageIndex = 7 + Style = tbsSeparator + end + object LogLevelText: TStaticText + Left = 372 + Top = 0 + Width = 75 + Height = 22 + Hint = 'Log Level' + AutoSize = False + BorderStyle = sbsSunken + TabOrder = 2 + end + object LogLevelUpDown: TUpDown + Left = 447 + Top = 0 + Width = 16 + Height = 22 + Hint = 'Log Level Adjustment' + Min = 0 + Max = 7 + Position = 0 + TabOrder = 3 + Wrap = False + OnChangingEx = LogLevelUpDownChangingEx + end end - object Log: TMemo + object Log: TRichEdit Left = 0 Top = 25 Width = 454 Height = 171 Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HideScrollBars = False + ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 1 + WordWrap = False end end