tow.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 185 行
DFM
185 行
inherited frmTow: TfrmTow
Left = 83
Top = 606
Width = 589
Height = 456
Caption = '工种类型'
OldCreateOrder = True
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 385
Width = 581
end
inherited CoolBar1: TCoolBar
Width = 581
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 581
end>
inherited tbMainBar: TToolBar
Width = 568
end
end
object sgTow: TSDGrid [2]
Left = 0
Top = 39
Width = 293
Height = 346
Align = alLeft
Color = clWhite
ColCount = 2
Ctl3D = False
DefaultRowHeight = 18
FixedColor = 8564917
FixedCols = 0
RowCount = 4
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 2
OnClick = sgTowClick
SelectColor = clNavy
OddGridColor = clWhite
Columns = <
item
ColumnFont.Charset = ANSI_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '工种代码'
ColumnWidth = 0
end
item
ColumnFont.Charset = ANSI_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '工种名称'
ColumnWidth = 0
end>
ColWidths = (
107
168)
end
object FloatPanel1: TFloatPanel [3]
Left = 293
Top = 39
Width = 288
Height = 346
Align = alClient
Color = clWhite
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 9
Top = 21
Width = 60
Height = 12
Caption = '工种代码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 9
Top = 59
Width = 60
Height = 12
Caption = '工种名称:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 9
Top = 97
Width = 60
Height = 12
Caption = '工种说明:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object seTowCode: TSDEdit
Left = 69
Top = 15
Width = 159
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Text = 'seTowCode'
OnKeyDown = seTowCodeKeyDown
SplitSymbol = ' | '
end
object seTowName: TSDEdit
Left = 69
Top = 51
Width = 188
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Text = 'seTowName'
SplitSymbol = ' | '
end
object memTowDesc: TMemo
Left = 69
Top = 96
Width = 188
Height = 46
Ctl3D = False
Lines.Strings = (
'memTowDesc')
ParentCtl3D = False
TabOrder = 2
end
end
inherited MainMenu1: TMainMenu
Left = 94
Top = 159
end
inherited ImageList1: TImageList
Left = 94
Top = 159
end
inherited RecPrintDlg: TPrintDialog
Left = 94
Top = 159
end
inherited PrnSetupDlg: TPrinterSetupDialog
Left = 94
Top = 159
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?