?? unposagift.dfm
字號(hào):
object FMPOSAGIFT: TFMPOSAGIFT
Left = 188
Top = 213
BorderIcons = []
BorderStyle = bsToolWindow
Caption = '輸入禮券'
ClientHeight = 360
ClientWidth = 700
Color = 16765872
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 10
Top = 8
Width = 113
Height = 27
Caption = '禮券編號(hào)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -27
Font.Name = '新宋體'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 10
Top = 43
Width = 141
Height = 27
Caption = '禮券到期日'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -27
Font.Name = '新宋體'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 10
Top = 78
Width = 113
Height = 27
Caption = '禮券類(lèi)別'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -27
Font.Name = '新宋體'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 10
Top = 113
Width = 113
Height = 27
Caption = '禮券金額'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -27
Font.Name = '新宋體'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 470
Top = 113
Width = 192
Height = 27
Caption = '刪除一筆 按F12'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -27
Font.Name = '新宋體'
Font.Style = [fsBold]
ParentFont = False
end
object BTNQUT: TBitBtn
Left = 415
Top = 5
Width = 281
Height = 106
Caption = '完成輸入按ESC'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = '新宋體'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BTNQUTClick
end
object ED_PGCNO: TJEdit
Left = 155
Top = 5
Width = 250
Height = 33
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '新宋體'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
OnKeyDown = ED_PGCNOKeyDown
Digits = 1
Max = 999999999
_EditType = EDIT
_SHOWCAL = NONE
_BADINPUT = True
end
object ED_PGCDT: TJEdit
Left = 155
Top = 40
Width = 250
Height = 33
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '新宋體'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
OnKeyDown = ED_PGCNOKeyDown
Digits = 1
Max = 999999999
_EditType = CDATE_EDIT
_SHOWCAL = NONE
_BADINPUT = True
end
object ED_PGCKD: TJEdit
Left = 155
Top = 75
Width = 250
Height = 33
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '新宋體'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 3
OnKeyDown = ED_PGCNOKeyDown
Digits = 1
Max = 999999999
_EditType = EDIT
_SHOWCAL = NONE
_BADINPUT = True
end
object ED_PGCNA: TJEdit
Left = 155
Top = 110
Width = 250
Height = 33
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '新宋體'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 4
OnKeyDown = ED_PGCNOKeyDown
Digits = 1
Max = 999999999
_EditType = INTEGER_EDIT
_SHOWCAL = NONE
_BADINPUT = True
end
object GIFT_GRID: TStringGrid
Left = 2
Top = 146
Width = 696
Height = 210
ColCount = 4
Ctl3D = False
DefaultColWidth = 25
DefaultRowHeight = 25
FixedCols = 0
RowCount = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '宋體'
Font.Style = [fsBold]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goTabs, goRowSelect]
ParentCtl3D = False
ParentFont = False
ScrollBars = ssVertical
TabOrder = 5
OnKeyDown = GIFT_GRIDKeyDown
ColWidths = (
233
170
120
148)
end
object MainMenu1: TMainMenu
Left = 620
Top = 5
object ESC: TMenuItem
AutoHotkeys = maAutomatic
AutoLineReduction = maAutomatic
Caption = '取消交易ESC'
ShortCut = 27
Visible = False
OnClick = BTNQUTClick
end
object F12: TMenuItem
Caption = '刪除一筆'
ShortCut = 123
Visible = False
OnClick = F12Click
end
end
end
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -