📄 main.dfm
字号:
object fmMain: TfmMain
Left = 214
Top = 142
Width = 700
Height = 460
VertScrollBar.Range = 150
ActiveControl = DBGrid
AutoScroll = False
Caption = 'Oracle Data Access Demo - Pictures (LONG RAW fields)'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 145
Width = 692
Height = 3
Cursor = crVSplit
Align = alTop
end
object ScrollBox1: TScrollBox
Left = 0
Top = 148
Width = 692
Height = 285
HorzScrollBar.Range = 1077
VertScrollBar.Range = 1077
Align = alClient
AutoScroll = False
TabOrder = 3
object DBImage: TDBImage
Left = 0
Top = 0
Width = 1077
Height = 1077
Center = False
DataField = 'PICTURE'
DataSource = dmData.dsPictures
TabOrder = 0
end
end
object DBGrid: TDBGrid
Left = 0
Top = 27
Width = 692
Height = 93
Align = alTop
DataSource = dmData.dsPictures
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = 11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Pitch = fpVariable
TitleFont.Style = []
end
object ToolBar: TPanel
Left = 0
Top = 0
Width = 692
Height = 27
Align = alTop
TabOrder = 1
object btOpen: TButton
Left = 0
Top = 2
Width = 64
Height = 24
Caption = 'Open'
TabOrder = 0
OnClick = btOpenClick
end
object btClose: TButton
Left = 64
Top = 2
Width = 64
Height = 24
Caption = 'Close'
TabOrder = 2
OnClick = btCloseClick
end
object DBNavigator: TDBNavigator
Left = 128
Top = 2
Width = 240
Height = 24
DataSource = dmData.dsPictures
TabOrder = 1
end
object btCreate: TButton
Left = 376
Top = 2
Width = 75
Height = 24
Caption = 'Create'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = btCreateClick
end
object btDrop: TButton
Left = 451
Top = 2
Width = 75
Height = 24
Caption = 'Drop'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = btDropClick
end
object cbUseNet: TCheckBox
Left = 537
Top = 5
Width = 68
Height = 17
Caption = 'Use Net'
TabOrder = 5
OnClick = cbUseNetClick
end
object cbDebug: TCheckBox
Left = 609
Top = 5
Width = 74
Height = 17
Caption = 'Debug'
TabOrder = 6
OnClick = cbDebugClick
end
end
object ToolBar1: TPanel
Left = 0
Top = 120
Width = 692
Height = 25
Align = alTop
AutoSize = True
TabOrder = 2
object btLoad: TButton
Left = 0
Top = 1
Width = 105
Height = 23
Caption = 'Load from file ...'
TabOrder = 0
OnClick = btLoadClick
end
object btSave: TButton
Left = 105
Top = 1
Width = 96
Height = 23
Caption = 'Save to file ...'
TabOrder = 1
OnClick = btSaveClick
end
object btClear: TButton
Left = 201
Top = 1
Width = 72
Height = 23
Caption = 'Clear'
TabOrder = 2
OnClick = btClearClick
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -