?? findspl.dfm
字號:
object FindSplForm: TFindSplForm
Left = 384
Top = 172
BorderIcons = []
BorderStyle = bsSingle
Caption = ' Cari Supplier '
ClientHeight = 269
ClientWidth = 529
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 8
Top = 48
Width = 513
Height = 165
Color = 12961221
ParentColor = False
TabOrder = 1
object FindItemGrid: TJvDBUltimGrid
Left = 2
Top = 15
Width = 509
Height = 148
Align = alClient
BorderStyle = bsNone
Color = 16119285
Ctl3D = False
DataSource = dsFindSpl
FixedColor = 14408667
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Dina'
Font.Style = []
Options = [dgTitles, dgIndicator, dgRowLines, dgRowSelect, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Dina'
TitleFont.Style = [fsBold]
OnDblClick = FindItemGridDblClick
OnKeyDown = FindItemGridKeyDown
TitleButtons = True
TitleArrow = True
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <
item
ControlName = 'DBLookupComboBox1'
FieldName = 'SELLPRICE'
FitCell = fcCellSize
end>
AutoSizeRows = False
RowsHeight = 20
TitleRowHeight = 20
SortWith = swFields
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'SPLCODE'
Title.Alignment = taCenter
Title.Caption = 'KODE'
Width = 40
Visible = True
end
item
Expanded = False
FieldName = 'NAMASPL'
Title.Alignment = taCenter
Title.Caption = 'NAMA.SUPPLIER'
Width = 155
Visible = True
end
item
Expanded = False
FieldName = 'ADDRESS'
Title.Alignment = taCenter
Title.Caption = 'ALAMAT'
Width = 185
Visible = True
end
item
Expanded = False
FieldName = 'CITY'
Title.Alignment = taCenter
Title.Caption = 'KOTA'
Width = 100
Visible = True
end>
end
end
object Panel1: TPanel
Left = 160
Top = 2
Width = 361
Height = 44
Alignment = taLeftJustify
Caption = ' Cari :'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Dina'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object AddBtn: TSpeedButton
Left = 280
Top = 10
Width = 73
Height = 23
Caption = 'Spl'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Glyph.Data = {
E6000000424DE60000000000000076000000280000000F0000000E0000000100
04000000000070000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880888888888888888088888888888888808888880008888880888888070888
8880888888070888888088800007000088808880777777708880888000070000
8880888888070888888088888807088888808888880008888880888888888888
88808888888888888880}
ParentFont = False
OnClick = AddBtnClick
end
object edFind: TEdit
Left = 72
Top = 10
Width = 201
Height = 23
AutoSize = False
CharCase = ecUpperCase
Color = clInfoBk
Ctl3D = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dina'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnChange = edFindChange
OnKeyDown = edFindKeyDown
end
end
object RadioGroup1: TspSkinRadioGroup
Left = 8
Top = 2
Width = 149
Height = 44
TabOrder = 2
DrawDefault = True
SkinDataName = 'groupbox'
AlphaBlend = False
AlphaBlendValue = 200
UseSkinCursor = False
DefaultFont.Charset = ANSI_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -13
DefaultFont.Name = 'Dina'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 0
AutoEnabledControls = True
CheckedMode = True
Checked = True
NumGlyphs = 1
Spacing = 2
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
Caption = 'RadioGroup1'
OnClick = RadioGroup1Click
ButtonSkinDataName = 'radiobox'
ButtonDefaultFont.Charset = ANSI_CHARSET
ButtonDefaultFont.Color = clNavy
ButtonDefaultFont.Height = -13
ButtonDefaultFont.Name = 'Dina'
ButtonDefaultFont.Style = [fsBold]
Columns = 2
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Dina'
Font.Style = []
ItemIndex = 1
Items.Strings = (
'Kode'
'Nama')
ParentFont = False
end
object JvFooter1: TJvFooter
Left = 0
Top = 220
Width = 529
Height = 49
Align = alBottom
BevelVisible = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
DesignSize = (
529
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -