174 lines
4.0 KiB
ObjectPascal
174 lines
4.0 KiB
ObjectPascal
object formImportKusovnik: TformImportKusovnik
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = ' Import dat kusovn'#237'ku z CADu'
|
|
ClientHeight = 715
|
|
ClientWidth = 1111
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
Position = poOwnerFormCenter
|
|
RoundedCorners = rcOn
|
|
OnClose = FormClose
|
|
OnShow = FormShow
|
|
DesignSize = (
|
|
1111
|
|
715)
|
|
TextHeight = 21
|
|
object Label1: TLabel
|
|
Left = 30
|
|
Top = 24
|
|
Width = 59
|
|
Height = 21
|
|
Caption = 'Zak'#225'zka:'
|
|
end
|
|
object selZakazka: TButtonedEdit
|
|
Left = 30
|
|
Top = 48
|
|
Width = 139
|
|
Height = 29
|
|
Alignment = taCenter
|
|
Images = datModul.imgList
|
|
RightButton.ImageIndex = 0
|
|
RightButton.Visible = True
|
|
TabOrder = 0
|
|
OnRightButtonClick = selZakazkaRightButtonClick
|
|
end
|
|
object edtStanice: TLabeledEdit
|
|
Left = 210
|
|
Top = 48
|
|
Width = 57
|
|
Height = 29
|
|
Alignment = taCenter
|
|
EditLabel.Width = 52
|
|
EditLabel.Height = 21
|
|
EditLabel.Caption = 'Stanice:'
|
|
TabOrder = 1
|
|
Text = ''
|
|
end
|
|
object btnImport: TButton
|
|
Left = 296
|
|
Top = 40
|
|
Width = 111
|
|
Height = 37
|
|
Caption = 'Import dat'
|
|
TabOrder = 2
|
|
OnClick = btnImportClick
|
|
end
|
|
object grdKusovnik: TJvDBGrid
|
|
Left = 12
|
|
Top = 98
|
|
Width = 1086
|
|
Height = 550
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataSource = datModul.dsImportKusovnik
|
|
DrawingStyle = gdsGradient
|
|
GradientEndColor = clSkyBlue
|
|
TabOrder = 3
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'Segoe UI'
|
|
TitleFont.Style = []
|
|
OnDrawColumnCell = grdKusovnikDrawColumnCell
|
|
OnDblClick = grdKusovnikDblClick
|
|
OnMouseUp = grdKusovnikMouseUp
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <>
|
|
AutoSizeRows = False
|
|
RowsHeight = 30
|
|
TitleRowHeight = 30
|
|
OnCanEditCell = grdKusovnikCanEditCell
|
|
Columns = <
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'Pozice'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Width = 60
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Oznaceni'
|
|
ReadOnly = True
|
|
Title.Caption = 'Ozna'#269'en'#237
|
|
Width = 246
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Popis'
|
|
ReadOnly = True
|
|
Width = 412
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'SZ'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'SK'
|
|
Width = 47
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'RegCis'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Reg. '#269#237'slo'
|
|
Width = 118
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Mnozstvi'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Mno'#382'stv'#237
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'NovaKarta'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Nov'#225
|
|
Width = 64
|
|
Visible = True
|
|
end>
|
|
end
|
|
object btnStorno: TButton
|
|
Left = 988
|
|
Top = 662
|
|
Width = 111
|
|
Height = 37
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Storno'
|
|
TabOrder = 4
|
|
OnClick = btnStornoClick
|
|
ExplicitLeft = 856
|
|
end
|
|
object btnZapis: TButton
|
|
Left = 484
|
|
Top = 662
|
|
Width = 129
|
|
Height = 37
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Z'#225'pis do TPV'
|
|
TabOrder = 5
|
|
OnClick = btnZapisClick
|
|
ExplicitLeft = 352
|
|
end
|
|
end
|