📄 threads.dfm
字号:
inherited ThreadsFrame: TThreadsFrame
object Splitter1: TSplitter
Left = 0
Top = 224
Width = 443
Height = 3
Cursor = crVSplit
Align = alTop
end
object Shape1: TShape
Left = 0
Top = 80
Width = 443
Height = 1
Align = alTop
Brush.Color = 170
Pen.Color = 170
end
object meErrorLog: TMemo
Left = 0
Top = 227
Width = 443
Height = 50
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 443
Height = 80
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Panel5: TPanel
Left = 0
Top = 23
Width = 434
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btStart: TSpeedButton
Left = 1
Top = 1
Width = 85
Height = 22
Caption = 'Start'
Flat = True
Transparent = False
OnClick = btStartClick
end
object btStop: TSpeedButton
Left = 87
Top = 1
Width = 85
Height = 22
Caption = 'Stop'
Flat = True
Transparent = False
OnClick = btStopClick
end
object btRun: TSpeedButton
Left = 173
Top = 1
Width = 86
Height = 22
Caption = 'Run'
Flat = True
Transparent = False
OnClick = btRunClick
end
object btRunMax: TSpeedButton
Left = 260
Top = 1
Width = 87
Height = 22
Caption = 'RunMax'
Flat = True
Transparent = False
OnClick = btRunMaxClick
end
object btClearLog: TSpeedButton
Left = 348
Top = 1
Width = 85
Height = 22
Caption = 'ClearLog'
Flat = True
Transparent = False
OnClick = btClearLogClick
end
end
object Panel6: TPanel
Left = 0
Top = 0
Width = 434
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 1
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 85
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenClick
end
object btDeleteAll: TSpeedButton
Left = 87
Top = 1
Width = 85
Height = 22
Caption = 'Delete All'
Flat = True
Transparent = False
OnClick = btDeleteAllClick
end
object DBNavigator1: TDBNavigator
Left = 173
Top = 1
Width = 260
Height = 22
DataSource = OraDataSource
Flat = True
TabOrder = 0
end
end
object Panel11: TPanel
Left = 433
Top = 0
Width = 244
Height = 47
BevelOuter = bvNone
Color = 170
TabOrder = 2
object Panel10: TPanel
Left = 1
Top = 1
Width = 120
Height = 45
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 5
Top = 23
Width = 92
Height = 16
Caption = 'Thread count'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 5
Top = 2
Width = 89
Height = 16
Caption = 'Except count'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lbThreadCount: TLabel
Left = 104
Top = 23
Width = 9
Height = 16
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lbExceptCount: TLabel
Left = 104
Top = 2
Width = 9
Height = 16
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
object Panel12: TPanel
Left = 122
Top = 1
Width = 121
Height = 45
BevelOuter = bvNone
TabOrder = 1
object lbInterval: TLabel
Left = 57
Top = 23
Width = 6
Height = 13
Caption = '0'
end
object lbTime: TLabel
Left = 57
Top = 2
Width = 6
Height = 13
Caption = '0'
end
object Label5: TLabel
Left = 6
Top = 2
Width = 23
Height = 13
Caption = 'Time'
end
object Label6: TLabel
Left = 6
Top = 23
Width = 35
Height = 13
Caption = 'Interval'
end
end
end
object Panel13: TPanel
Left = 0
Top = 46
Width = 348
Height = 30
BevelOuter = bvNone
Color = 170
TabOrder = 3
object Panel14: TPanel
Left = 1
Top = 1
Width = 171
Height = 28
BevelOuter = bvNone
TabOrder = 0
object Label3: TLabel
Left = 6
Top = 6
Width = 54
Height = 13
Caption = 'MaxThread'
end
object edCount: TEdit
Left = 68
Top = 3
Width = 95
Height = 21
TabOrder = 0
Text = 'edCount'
OnChange = edCountChange
end
end
object Panel9: TPanel
Left = 173
Top = 1
Width = 174
Height = 28
BevelOuter = bvNone
TabOrder = 1
object Label4: TLabel
Left = 7
Top = 7
Width = 27
Height = 13
Caption = 'Mode'
end
object rbInsert: TRadioButton
Left = 41
Top = 6
Width = 63
Height = 17
Caption = 'INSERT'
TabOrder = 0
OnClick = rgModeClick
end
object rbSelect: TRadioButton
Left = 105
Top = 6
Width = 81
Height = 17
Caption = 'SELECT'
TabOrder = 1
OnClick = rgModeClick
end
end
end
end
object Panel3: TPanel
Left = 0
Top = 81
Width = 443
Height = 143
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object Splitter2: TSplitter
Left = 261
Top = 0
Height = 143
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 261
Height = 143
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object meSQL: TMemo
Left = 0
Top = 0
Width = 261
Height = 73
Align = alTop
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
object meLog: TMemo
Left = 0
Top = 73
Width = 261
Height = 70
Align = alClient
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 1
end
end
object DBGrid1: TDBGrid
Left = 264
Top = 0
Width = 179
Height = 143
Align = alClient
DataSource = OraDataSource
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
end
object Timer: TTimer
Enabled = False
OnTimer = TimerTimer
Left = 48
Top = 80
end
object OraQuery: TOraQuery
Session = ODACForm.OraSession
SQL.Strings = (
'SELECT RowNum,T.* FROM ThreadTable T')
Left = 16
Top = 112
end
object OraDataSource: TOraDataSource
DataSet = OraQuery
Left = 48
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -