📄 long.dfm
字号:
inherited LongFrame: TLongFrame
object Splitter1: TSplitter
Left = 0
Top = 189
Width = 443
Height = 3
Cursor = crVSplit
Align = alTop
Beveled = True
Color = 170
ParentColor = False
end
object DBGrid: TDBGrid
Left = 0
Top = 26
Width = 443
Height = 163
Align = alTop
DataSource = DataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object ToolBar: TPanel
Left = 0
Top = 0
Width = 443
Height = 26
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Panel1: TPanel
Left = 1
Top = 1
Width = 428
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenClick
end
object btClose: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseClick
end
object DBNavigator: TDBNavigator
Left = 167
Top = 1
Width = 260
Height = 22
DataSource = DataSource
Flat = True
TabOrder = 0
end
end
end
object meComments: TDBMemo
Left = 0
Top = 218
Width = 443
Height = 59
Align = alClient
DataField = 'VALUE'
DataSource = DataSource
ScrollBars = ssVertical
TabOrder = 2
end
object ToolBar1: TPanel
Left = 0
Top = 192
Width = 443
Height = 26
Align = alTop
BevelOuter = bvNone
TabOrder = 3
object Panel2: TPanel
Left = 1
Top = 1
Width = 250
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btSave: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Save to file'
Flat = True
Transparent = False
OnClick = btSaveClick
end
object btLoad: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Load from file'
Flat = True
Transparent = False
OnClick = btLoadClick
end
object btClear: TSpeedButton
Left = 167
Top = 1
Width = 82
Height = 22
Caption = 'Clear'
Flat = True
Transparent = False
OnClick = btClearClick
end
end
end
object DataSource: TDataSource
DataSet = Query
Left = 440
Top = 32
end
object Query: TSmartQuery
Session = ODACForm.OraSession
SQL.Strings = (
'SELECT L.*, RowId FROM ODAC_Long L')
Debug = True
Left = 408
Top = 32
end
object OpenDialog: TOpenDialog
InitialDir = '.'
Title = 'Open'
Left = 240
Top = 259
end
object SaveDialog: TSaveDialog
InitialDir = '.'
Title = 'Save As'
Left = 272
Top = 259
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -