Prvni verze
This commit is contained in:
797
frmObjednavkaMat.dfm
Normal file
797
frmObjednavkaMat.dfm
Normal file
@ -0,0 +1,797 @@
|
||||
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'
|
||||
Width = 64
|
||||
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
|
||||
Reference in New Issue
Block a user