apoage.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 155 行
DFM
155 行
inherited frmApoAge: TfrmApoAge
Left = 131
Top = 104
Width = 620
Height = 420
Caption = '已过期帐龄区间'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 352
Width = 612
end
inherited CoolBar1: TCoolBar
Width = 612
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 612
end>
inherited tbMainBar: TToolBar
Width = 599
end
end
object sgApoAge: TSDGrid [2]
Left = 0
Top = 39
Width = 313
Height = 313
Align = alLeft
Color = 50331647
ColCount = 3
Ctl3D = False
DefaultRowHeight = 18
FixedColor = 8564917
RowCount = 1
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 2
OnClick = sgApoAgeClick
EvenGridColor = 50331647
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '区间序号'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '区间天数'
ColumnWidth = 0
end>
ColWidths = (
10
101
193)
end
object FloatPanel1: TFloatPanel [3]
Left = 313
Top = 39
Width = 299
Height = 313
Align = alClient
Color = 50331647
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 28
Top = 32
Width = 60
Height = 12
Caption = '区间序号:'
end
object Label2: TLabel
Left = 28
Top = 63
Width = 60
Height = 12
Caption = '区间天数:'
end
object Label3: TLabel
Left = 28
Top = 93
Width = 60
Height = 12
Caption = '区间说明:'
end
object seApoAgeNo: TSDEdit
Left = 84
Top = 27
Width = 150
Height = 18
Ctl3D = False
MaxLength = 4
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = '0'
OnKeyDown = seApoAgeNoKeyDown
DataType = dtNumber
CharType = ctNumeric
SplitSymbol = ' | '
DefaultValue = '0'
end
object seApoAgeDays: TSDEdit
Left = 85
Top = 58
Width = 147
Height = 18
Ctl3D = False
MaxLength = 14
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = '0'
DataType = dtNumber
CharType = ctNumeric
SplitSymbol = ' | '
DefaultValue = '0'
end
object memApoAgeDesc: TMemo
Left = 29
Top = 111
Width = 206
Height = 73
Color = 50331647
Ctl3D = False
Lines.Strings = (
'memApoAgeDesc')
ParentCtl3D = False
TabOrder = 2
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?