Prvni verze
This commit is contained in:
464
frmPrehledMicharna.dfm
Normal file
464
frmPrehledMicharna.dfm
Normal file
@ -0,0 +1,464 @@
|
||||
object formPrehledMicharna: TformPrehledMicharna
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = ' P'#345'ehled m'#237'ch'#225'rna'
|
||||
ClientHeight = 809
|
||||
ClientWidth = 862
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Style = []
|
||||
Position = poOwnerFormCenter
|
||||
OnShow = FormShow
|
||||
TextHeight = 21
|
||||
object GridPanel1: TGridPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 862
|
||||
Height = 809
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 0
|
||||
Control = Button1
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = GridPanel2
|
||||
Row = 1
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = grdSeznamTesta
|
||||
Row = 2
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = grdReceptura
|
||||
Row = 3
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = edtSuchaHmot
|
||||
Row = 4
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 6.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 10.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 44.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 31.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 4.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 5.000000000000000000
|
||||
end>
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
862
|
||||
809)
|
||||
object Button1: TButton
|
||||
Left = 344
|
||||
Top = 7
|
||||
Width = 174
|
||||
Height = 36
|
||||
Anchors = []
|
||||
Caption = 'Sb'#283'rn'#253' list m'#237'ch'#225'rna'
|
||||
TabOrder = 0
|
||||
end
|
||||
object GridPanel2: TGridPanel
|
||||
Left = 1
|
||||
Top = 49
|
||||
Width = 860
|
||||
Height = 81
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 1.500000000000000000
|
||||
end
|
||||
item
|
||||
Value = 23.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 27.900000000000000000
|
||||
end
|
||||
item
|
||||
Value = 18.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 18.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 4.800000000000000000
|
||||
end
|
||||
item
|
||||
Value = 4.700000000000000000
|
||||
end
|
||||
item
|
||||
Value = 2.099999999999996000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 5
|
||||
Control = Label3
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 6
|
||||
Control = Label1
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 1
|
||||
Control = edtStroj
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 2
|
||||
Control = edtTesto
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 4
|
||||
Control = GridPanel3
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = Label4
|
||||
Row = 0
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
860
|
||||
81)
|
||||
object Label3: TLabel
|
||||
Left = 771
|
||||
Top = 15
|
||||
Width = 18
|
||||
Height = 50
|
||||
Anchors = []
|
||||
Caption = 'Viskozita'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Orientation = 2700
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
ExplicitLeft = 772
|
||||
ExplicitTop = 8
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 812
|
||||
Top = 10
|
||||
Width = 18
|
||||
Height = 60
|
||||
Anchors = []
|
||||
Caption = 'Viskozita 2'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Orientation = 2700
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
ExplicitLeft = 811
|
||||
ExplicitTop = 1
|
||||
end
|
||||
object edtStroj: TEdit
|
||||
AlignWithMargins = True
|
||||
Left = 17
|
||||
Top = 48
|
||||
Width = 191
|
||||
Height = 29
|
||||
Align = alBottom
|
||||
MaxLength = 100
|
||||
TabOrder = 0
|
||||
OnChange = edtStrojChange
|
||||
end
|
||||
object edtTesto: TEdit
|
||||
AlignWithMargins = True
|
||||
Left = 214
|
||||
Top = 48
|
||||
Width = 234
|
||||
Height = 29
|
||||
Align = alBottom
|
||||
MaxLength = 100
|
||||
TabOrder = 1
|
||||
OnChange = edtTestoChange
|
||||
end
|
||||
object GridPanel3: TGridPanel
|
||||
Left = 605
|
||||
Top = 1
|
||||
Width = 154
|
||||
Height = 79
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 88.027489785109650000
|
||||
end
|
||||
item
|
||||
Value = 11.972510214890350000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 0
|
||||
Control = edtDatVypousteni
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 1
|
||||
Control = Label2
|
||||
Row = 0
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
TabOrder = 2
|
||||
object edtDatVypousteni: TJvDatePickerEdit
|
||||
AlignWithMargins = True
|
||||
Left = 21
|
||||
Top = 46
|
||||
Width = 112
|
||||
Height = 29
|
||||
Margins.Left = 20
|
||||
Margins.Right = 2
|
||||
Align = alBottom
|
||||
AllowNoDate = True
|
||||
Anchors = []
|
||||
Checked = False
|
||||
TabOrder = 0
|
||||
OnChange = edtDatVypousteniChange
|
||||
end
|
||||
object Label2: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 138
|
||||
Top = 52
|
||||
Width = 12
|
||||
Height = 21
|
||||
Margins.Bottom = 5
|
||||
Align = alBottom
|
||||
Caption = 'X'
|
||||
OnClick = Label2Click
|
||||
ExplicitWidth = 9
|
||||
end
|
||||
end
|
||||
object Label4: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 1
|
||||
Top = 54
|
||||
Width = 10
|
||||
Height = 21
|
||||
Margins.Left = 0
|
||||
Margins.Bottom = 5
|
||||
Align = alBottom
|
||||
Caption = 'X'
|
||||
OnClick = Label4Click
|
||||
ExplicitWidth = 9
|
||||
end
|
||||
end
|
||||
object grdSeznamTesta: TJvDBGrid
|
||||
Left = 1
|
||||
Top = 130
|
||||
Width = 860
|
||||
Height = 355
|
||||
Align = alClient
|
||||
DataSource = dm.dsPrehledMicharna
|
||||
DrawingStyle = gdsGradient
|
||||
GradientEndColor = clActiveCaption
|
||||
GradientStartColor = 16776176
|
||||
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
||||
TabOrder = 2
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -16
|
||||
TitleFont.Name = 'Segoe UI'
|
||||
TitleFont.Style = []
|
||||
OnCellClick = grdSeznamTestaCellClick
|
||||
OnDrawColumnCell = grdSeznamTestaDrawColumnCell
|
||||
SelectColumnsDialogStrings.Caption = 'Select columns'
|
||||
SelectColumnsDialogStrings.OK = '&OK'
|
||||
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
||||
EditControls = <>
|
||||
RowsHeight = 25
|
||||
TitleRowHeight = 25
|
||||
Columns = <
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colIDPrikaz'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colIDStroj'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colStroj'
|
||||
Title.Caption = 'Stroj'
|
||||
Width = 195
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colTesto'
|
||||
Title.Caption = 'T'#283'sto'
|
||||
Width = 238
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colStartMichani'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'P'#345#237'prava t'#283'sta'
|
||||
Width = 154
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colKonecMichani'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Vypou'#353't'#283'n'#237
|
||||
Width = 154
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colViskozita'
|
||||
Title.Caption = ' '
|
||||
Width = 40
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colViskozita2'
|
||||
Title.Caption = ' '
|
||||
Width = 40
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colIDPMZ'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colIDOperStartStop'
|
||||
Visible = False
|
||||
end>
|
||||
end
|
||||
object grdReceptura: TJvDBGrid
|
||||
Left = 1
|
||||
Top = 485
|
||||
Width = 860
|
||||
Height = 250
|
||||
Align = alClient
|
||||
DataSource = dm.dsDetailMicharna
|
||||
DrawingStyle = gdsGradient
|
||||
GradientEndColor = clActiveCaption
|
||||
GradientStartColor = 16776176
|
||||
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
||||
TabOrder = 3
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -16
|
||||
TitleFont.Name = 'Segoe UI'
|
||||
TitleFont.Style = []
|
||||
OnDrawColumnCell = grdRecepturaDrawColumnCell
|
||||
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 = 'colSZ'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'SZ'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colRC'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Reg. '#269#237'slo'
|
||||
Visible = False
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colNazev1'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Surovina'
|
||||
Width = 653
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colMnozstvi'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mno'#382'stv'#237
|
||||
Width = 85
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colPridano'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'P'#345'id'#225'no'
|
||||
Width = 85
|
||||
Visible = True
|
||||
end>
|
||||
end
|
||||
object edtSuchaHmot: TLabeledEdit
|
||||
Left = 740
|
||||
Top = 735
|
||||
Width = 121
|
||||
Height = 33
|
||||
Align = alRight
|
||||
Alignment = taCenter
|
||||
Color = 15790320
|
||||
EditLabel.Width = 128
|
||||
EditLabel.Height = 33
|
||||
EditLabel.Caption = 'Such'#225' hmotnost: '
|
||||
LabelPosition = lpLeft
|
||||
ReadOnly = True
|
||||
TabOrder = 4
|
||||
Text = ''
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user