797 lines
19 KiB
Plaintext
797 lines
19 KiB
Plaintext
object formObjednavkaMat: TformObjednavkaMat
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = ' Objedn'#225'vka'
|
|
ClientHeight = 634
|
|
ClientWidth = 1170
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
Position = poOwnerFormCenter
|
|
OnClose = FormClose
|
|
OnResize = FormResize
|
|
OnShow = FormShow
|
|
TextHeight = 21
|
|
object GridPanel1: TGridPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1170
|
|
Height = 634
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = grdObjednavkaMat
|
|
Row = 2
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = GridPanel2
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 0
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = GridPanel6
|
|
Row = 1
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 33.000000000000000000
|
|
end
|
|
item
|
|
Value = 12.000000000000000000
|
|
end
|
|
item
|
|
Value = 55.000000000000000000
|
|
end>
|
|
TabOrder = 0
|
|
object grdObjednavkaMat: TJvDBGrid
|
|
Left = 1
|
|
Top = 285
|
|
Width = 1168
|
|
Height = 348
|
|
Align = alClient
|
|
DataSource = dm.dsObjednavkaMat
|
|
DrawingStyle = gdsGradient
|
|
GradientEndColor = clActiveCaption
|
|
GradientStartColor = 16776176
|
|
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'Segoe UI'
|
|
TitleFont.Style = []
|
|
OnCellClick = grdObjednavkaMatCellClick
|
|
OnColExit = grdObjednavkaMatColExit
|
|
OnDrawColumnCell = grdObjednavkaMatDrawColumnCell
|
|
OnMouseUp = grdObjednavkaMatMouseUp
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <>
|
|
RowsHeight = 25
|
|
TitleRowHeight = 25
|
|
Columns = <
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colCisloObj'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Objedn'#225'vka'
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colMnozstvi'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Mno'#382'stv'#237
|
|
Width = 86
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colPalet'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Palet'
|
|
Width = 50
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colDodano'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Dod'#225'no'
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colPalet2'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Palet'
|
|
Width = 50
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colDatum'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Datum'
|
|
Width = 86
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colObjednatel'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Objednatel'
|
|
Width = 154
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colNeaktivni'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = ' '
|
|
Width = 27
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colSplneno'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = ' '
|
|
Width = 27
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colStornovano'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = ' '
|
|
Width = 27
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colUzavreno'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = ' '
|
|
Width = 27
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colVratka'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = ' '
|
|
Width = 27
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'colPoznamka'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Pozn'#225'mka'
|
|
Width = 372
|
|
Visible = True
|
|
end>
|
|
end
|
|
object GridPanel2: TGridPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 1168
|
|
Height = 209
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = GridPanel3
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = GridPanel4
|
|
Row = 1
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = GridPanel5
|
|
Row = 2
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333310000
|
|
end>
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
1168
|
|
209)
|
|
object GridPanel3: TGridPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 1166
|
|
Height = 69
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 7.843695605606413000
|
|
end
|
|
item
|
|
Value = 12.000000000000000000
|
|
end
|
|
item
|
|
Value = 80.156304394393590000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = edtSZ
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = edtRC
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 2
|
|
Control = edtNazev1
|
|
Row = 0
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
1166
|
|
69)
|
|
object edtSZ: TEdit
|
|
AlignWithMargins = True
|
|
Left = 37
|
|
Top = 20
|
|
Width = 52
|
|
Height = 29
|
|
TabStop = False
|
|
Alignment = taCenter
|
|
Anchors = [akRight]
|
|
Color = 15790320
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = [fsBold]
|
|
MaxLength = 3
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object edtRC: TEdit
|
|
Left = 99
|
|
Top = 20
|
|
Width = 125
|
|
Height = 29
|
|
Anchors = []
|
|
Color = 15790320
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object edtNazev1: TEdit
|
|
AlignWithMargins = True
|
|
Left = 235
|
|
Top = 20
|
|
Width = 896
|
|
Height = 29
|
|
Anchors = [akLeft]
|
|
Color = 15790320
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object GridPanel4: TGridPanel
|
|
Left = 128
|
|
Top = 73
|
|
Width = 911
|
|
Height = 63
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ColumnCollection = <
|
|
item
|
|
Value = 18.000000000000000000
|
|
end
|
|
item
|
|
Value = 18.000000000000000000
|
|
end
|
|
item
|
|
Value = 18.000000000000000000
|
|
end
|
|
item
|
|
Value = 10.000000000000000000
|
|
end
|
|
item
|
|
Value = 18.000000000000000000
|
|
end
|
|
item
|
|
Value = 18.000000000000000000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = edtMnoz
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = edtPalet
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 4
|
|
Control = edtMnozVrat
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 2
|
|
Control = btnNovaObj
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 5
|
|
Control = btnNovaVratka
|
|
Row = 0
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
911
|
|
63)
|
|
object edtMnoz: TLabeledEdit
|
|
AlignWithMargins = True
|
|
Left = 41
|
|
Top = 27
|
|
Width = 121
|
|
Height = 29
|
|
Alignment = taCenter
|
|
Anchors = [akRight]
|
|
EditLabel.Width = 63
|
|
EditLabel.Height = 21
|
|
EditLabel.Caption = 'Mno'#382'stv'#237
|
|
NumbersOnly = True
|
|
TabOrder = 0
|
|
Text = ''
|
|
end
|
|
object edtPalet: TLabeledEdit
|
|
AlignWithMargins = True
|
|
Left = 208
|
|
Top = 27
|
|
Width = 77
|
|
Height = 29
|
|
Alignment = taCenter
|
|
Anchors = []
|
|
EditLabel.Width = 33
|
|
EditLabel.Height = 21
|
|
EditLabel.Caption = 'Palet'
|
|
NumbersOnly = True
|
|
TabOrder = 1
|
|
Text = ''
|
|
end
|
|
object edtMnozVrat: TLabeledEdit
|
|
AlignWithMargins = True
|
|
Left = 604
|
|
Top = 27
|
|
Width = 121
|
|
Height = 29
|
|
Alignment = taCenter
|
|
Anchors = []
|
|
EditLabel.Width = 63
|
|
EditLabel.Height = 21
|
|
EditLabel.Caption = 'Mno'#382'stv'#237
|
|
NumbersOnly = True
|
|
TabOrder = 2
|
|
Text = ''
|
|
end
|
|
object btnNovaObj: TButton
|
|
AlignWithMargins = True
|
|
Left = 331
|
|
Top = 9
|
|
Width = 160
|
|
Height = 45
|
|
Anchors = []
|
|
Caption = 'Nov'#225' objedn'#225'vka'
|
|
ImageIndex = 1
|
|
ImageName = 'imgAdd'
|
|
Images = dm.imgList
|
|
TabOrder = 3
|
|
OnClick = btnNovaObjClick
|
|
end
|
|
object btnNovaVratka: TButton
|
|
AlignWithMargins = True
|
|
Left = 761
|
|
Top = 9
|
|
Width = 134
|
|
Height = 45
|
|
Anchors = []
|
|
Caption = 'Nov'#225' vratka'
|
|
ImageIndex = 2
|
|
ImageName = 'Item5'
|
|
Images = dm.imgList
|
|
TabOrder = 4
|
|
OnClick = btnNovaVratkaClick
|
|
end
|
|
end
|
|
object GridPanel5: TGridPanel
|
|
Left = 130
|
|
Top = 143
|
|
Width = 907
|
|
Height = 60
|
|
Anchors = []
|
|
ColumnCollection = <
|
|
item
|
|
Value = 18.000000000000000000
|
|
end
|
|
item
|
|
Value = 18.000000000000000000
|
|
end
|
|
item
|
|
Value = 46.000000000000000000
|
|
end
|
|
item
|
|
Value = 18.000000000000000000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = edtMJ
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = edtNaPalete
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 3
|
|
Control = btnUkazSeznamPalet
|
|
Row = 0
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
907
|
|
60)
|
|
object edtMJ: TLabeledEdit
|
|
AlignWithMargins = True
|
|
Left = 52
|
|
Top = 26
|
|
Width = 82
|
|
Height = 29
|
|
Margins.Right = 30
|
|
Alignment = taCenter
|
|
Anchors = [akRight]
|
|
Color = 15790320
|
|
EditLabel.Width = 20
|
|
EditLabel.Height = 21
|
|
EditLabel.Caption = 'MJ'
|
|
NumbersOnly = True
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text = ''
|
|
end
|
|
object edtNaPalete: TLabeledEdit
|
|
AlignWithMargins = True
|
|
Left = 177
|
|
Top = 26
|
|
Width = 140
|
|
Height = 29
|
|
Alignment = taCenter
|
|
Anchors = []
|
|
Color = 15790320
|
|
EditLabel.Width = 153
|
|
EditLabel.Height = 21
|
|
EditLabel.Caption = 'Na palet'#283' (orienta'#269'n'#283')'
|
|
NumbersOnly = True
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
Text = ''
|
|
end
|
|
object btnUkazSeznamPalet: TButton
|
|
AlignWithMargins = True
|
|
Left = 757
|
|
Top = 7
|
|
Width = 135
|
|
Height = 45
|
|
Anchors = []
|
|
Caption = 'Paletov'#233' listy'
|
|
TabOrder = 2
|
|
OnClick = btnUkazSeznamPaletClick
|
|
end
|
|
end
|
|
end
|
|
object GridPanel6: TGridPanel
|
|
Left = 1
|
|
Top = 210
|
|
Width = 1168
|
|
Height = 75
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307693000
|
|
end
|
|
item
|
|
Value = 7.692307692307679000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 7
|
|
Control = Panel1
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 11
|
|
Control = Panel2
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 8
|
|
Control = Panel3
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 9
|
|
Control = Panel4
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 10
|
|
Control = Panel5
|
|
Row = 0
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
TabOrder = 2
|
|
object Panel1: TPanel
|
|
Left = 629
|
|
Top = 1
|
|
Width = 90
|
|
Height = 73
|
|
Align = alClient
|
|
BorderWidth = 1
|
|
BorderStyle = bsSingle
|
|
TabOrder = 0
|
|
object Label5: TLabel
|
|
Left = 2
|
|
Top = 2
|
|
Width = 82
|
|
Height = 65
|
|
Align = alClient
|
|
Caption = 'Neaktivn'#237
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Segoe UI'
|
|
Font.Orientation = 2700
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ExplicitWidth = 19
|
|
ExplicitHeight = 53
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 988
|
|
Top = 1
|
|
Width = 89
|
|
Height = 73
|
|
Align = alClient
|
|
BorderWidth = 1
|
|
BorderStyle = bsSingle
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 2
|
|
Top = 2
|
|
Width = 81
|
|
Height = 65
|
|
Align = alClient
|
|
Caption = 'Vratka'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Orientation = 2700
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ExplicitWidth = 23
|
|
ExplicitHeight = 44
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 719
|
|
Top = 1
|
|
Width = 89
|
|
Height = 73
|
|
Align = alClient
|
|
BorderWidth = 1
|
|
BorderStyle = bsSingle
|
|
TabOrder = 2
|
|
object Label3: TLabel
|
|
Left = 2
|
|
Top = 2
|
|
Width = 81
|
|
Height = 65
|
|
Align = alClient
|
|
Caption = 'Stornov'#225'no'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Segoe UI'
|
|
Font.Orientation = 2700
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ExplicitWidth = 19
|
|
ExplicitHeight = 67
|
|
end
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 808
|
|
Top = 1
|
|
Width = 90
|
|
Height = 73
|
|
Align = alClient
|
|
BorderWidth = 1
|
|
BorderStyle = bsSingle
|
|
TabOrder = 3
|
|
object Label4: TLabel
|
|
Left = 2
|
|
Top = 2
|
|
Width = 82
|
|
Height = 65
|
|
Align = alClient
|
|
Caption = 'Spln'#283'no'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Segoe UI'
|
|
Font.Orientation = 2700
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ExplicitWidth = 19
|
|
ExplicitHeight = 47
|
|
end
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 898
|
|
Top = 1
|
|
Width = 90
|
|
Height = 73
|
|
Align = alClient
|
|
BorderWidth = 1
|
|
BorderStyle = bsSingle
|
|
TabOrder = 4
|
|
object Label2: TLabel
|
|
Left = 2
|
|
Top = 2
|
|
Width = 82
|
|
Height = 65
|
|
Align = alClient
|
|
Caption = 'Uzav'#345'eno'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Segoe UI'
|
|
Font.Orientation = 2700
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ExplicitWidth = 19
|
|
ExplicitHeight = 55
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object icmpCli: TIdIcmpClient
|
|
ReceiveTimeout = 2000
|
|
Protocol = 1
|
|
ProtocolIPv6 = 58
|
|
Left = 680
|
|
Top = 178
|
|
end
|
|
end
|