object formPekarna: TformPekarna Left = 0 Top = 0 Margins.Bottom = 10 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' P E K '#193' R N A' ClientHeight = 1041 ClientWidth = 1813 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Segoe UI' Font.Style = [] Position = poOwnerFormCenter WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate OnResize = FormResize OnShow = FormShow TextHeight = 17 object GridPanel1: TGridPanel Left = 0 Top = 0 Width = 1813 Height = 1041 Align = alClient ColumnCollection = < item Value = 35.000000000000000000 end item Value = 50.000000000000000000 end item Value = 15.000000000000000000 end> ControlCollection = < item Column = 1 Control = GridPanel2 Row = 0 end item Column = 1 Control = grdStroje Row = 1 end item Column = 0 Control = pgCtrlPlan Row = 1 end item Column = 0 Control = GridPanel3 Row = 2 end item Column = 2 Control = GridPanel5 Row = 2 end item Column = 2 Control = GridPanel6 Row = 0 end item Column = 2 Control = memVyrobniPoznamka Row = 1 end item Column = 1 Control = GridPanel4 Row = 2 end> RowCollection = < item Value = 9.839133440683879000 end item Value = 60.212878705737260000 end item Value = 29.947987853578860000 end> ShowCaption = False TabOrder = 0 object GridPanel2: TGridPanel Left = 635 Top = 1 Width = 905 Height = 102 Align = alClient ColumnCollection = < item Value = 45.000000000000000000 end item Value = 10.000000000000000000 end item Value = 45.000000000000000000 end> ControlCollection = < item Column = 0 Control = sgInfo Row = 0 end item Column = 2 Control = sgCas Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> ShowCaption = False TabOrder = 0 object sgInfo: TStringGrid Left = 1 Top = 1 Width = 406 Height = 100 Align = alClient ColCount = 4 DefaultColAlignment = taCenter DefaultRowHeight = 36 Enabled = False FixedCols = 0 RowCount = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goRowSelect, goFixedRowDefAlign] ParentFont = False ScrollBars = ssNone TabOrder = 0 OnDrawCell = sgInfoDrawCell end object sgCas: TStringGrid Left = 584 Top = 1 Width = 320 Height = 100 Align = alRight ColCount = 2 DefaultColAlignment = taCenter DefaultRowHeight = 36 FixedCols = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'Segoe UI' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goRowSelect, goFixedRowDefAlign] ParentFont = False ScrollBars = ssNone TabOrder = 1 OnDrawCell = sgCasDrawCell end end object grdStroje: TJvDBGrid AlignWithMargins = True Left = 638 Top = 106 Width = 899 Height = 620 Align = alClient DataSource = dm.dsStroje DrawingStyle = gdsGradient GradientEndColor = clActiveCaption GradientStartColor = 16776176 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ParentFont = False TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [fsBold] OnCellClick = grdStrojeCellClick OnDrawColumnCell = grdStrojeDrawColumnCell OnDblClick = grdStrojeDblClick OnMouseUp = grdStrojeMouseUp AutoSizeColumns = True 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 = 'fIDStroj' Visible = False end item Expanded = False FieldName = 'fStroj' Title.Alignment = taCenter Title.Caption = 'Stroj' Width = 143 Visible = True end item Expanded = False FieldName = 'fVyrobek' Title.Alignment = taCenter Width = 272 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fAktPaletList' Title.Alignment = taCenter Width = 102 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fVyrobenoKA' Title.Alignment = taCenter Width = 66 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fZakazka' Title.Alignment = taCenter Title.Caption = 'P'#345#237'kaz' Width = 83 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fCinnost' Title.Alignment = taCenter Width = 120 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fCCP1' Title.Alignment = taCenter Width = 49 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fVZ' Title.Alignment = taCenter Width = 40 Visible = True end> end object pgCtrlPlan: TPageControl Left = 1 Top = 103 Width = 634 Height = 626 ActivePage = shPlanDnes Align = alClient TabOrder = 2 object shPlanDnes: TTabSheet Caption = ' Pl'#225'n v'#253'roby' OnShow = shPlanDnesShow object grdPlanDnes: TJvDBGrid Left = 0 Top = 0 Width = 626 Height = 594 Align = alClient DataSource = dm.dsPlanDnes DrawingStyle = gdsGradient GradientEndColor = clActiveCaption GradientStartColor = 16776176 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [fsBold] OnCellClick = grdPlanDnesCellClick OnDrawColumnCell = grdPlanDnesDrawColumnCell OnDblClick = grdPlanDnesDblClick OnMouseUp = grdPlanDnesMouseUp OnTitleClick = grdPlanDnesTitleClick AutoSizeColumns = True 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 = 'fIDPlan' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'fRegCis' Title.Alignment = taCenter Title.Caption = 'Ozn.' Width = 103 Visible = True end item Expanded = False FieldName = 'fVyrobek' Title.Alignment = taCenter Title.Caption = 'V'#253'robek' Width = 253 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fHotovo' Title.Alignment = taCenter Title.Caption = 'Hotovo' Width = 74 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fZakazka' Title.Alignment = taCenter Title.Caption = 'P'#345#237'kaz' Width = 74 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fDatPlanZadani' Title.Alignment = taCenter Title.Caption = 'Pl'#225'n. zah.' Width = 101 Visible = True end> end end object shPlanZitra: TTabSheet Caption = ' Pl'#225'n v'#253'roby Z'#205'TRA ' ImageIndex = 1 object grdPlanZitra: TDBGrid Left = 0 Top = 0 Width = 626 Height = 594 Align = alClient DataSource = dm.dsPlanZitra Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Segoe UI' Font.Style = [] Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [fsBold] Columns = < item Expanded = False FieldName = 'fIDPlan' Visible = False end item Expanded = False FieldName = 'fVyrobek' Title.Alignment = taCenter Title.Caption = 'V'#253'robek' Width = 200 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fHotovo' Title.Alignment = taCenter Title.Caption = 'Hotovo' Width = 78 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fZakazka' Title.Alignment = taCenter Title.Caption = 'Zak'#225'zka' Width = 225 Visible = True end> end end object shRozpracovanePL: TTabSheet Caption = ' Rozpracovan'#233' PL' ImageIndex = 2 OnShow = shRozpracovanePLShow object GridPanel13: TGridPanel Left = 0 Top = 0 Width = 626 Height = 594 Align = alClient ColumnCollection = < item Value = 100.000000000000000000 end> ControlCollection = < item Column = 0 Control = GridPanel14 Row = 1 end item Column = 0 Control = grdRozpracovane Row = 0 end item Column = 0 Control = GridPanel15 Row = 2 end> RowCollection = < item Value = 86.000000000000000000 end item Value = 9.000000000000000000 end item Value = 5.000000000000000000 end> TabOrder = 0 object GridPanel14: TGridPanel AlignWithMargins = True Left = 4 Top = 513 Width = 618 Height = 47 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 Control = Label10 Row = 0 end item Column = 1 Control = Label11 Row = 0 end item Column = 0 Control = edtNazevRozpracVyrobku Row = 1 end item Column = 1 Control = edtRozpracZakazka Row = 1 end> RowCollection = < item Value = 40.000000000000000000 end item Value = 60.000000000000000000 end> TabOrder = 0 DesignSize = ( 618 47) object Label10: TLabel Left = 89 Top = 1 Width = 132 Height = 17 Anchors = [] Caption = 'Rozpracovan'#253' v'#253'robek' ExplicitLeft = 56 end object Label11: TLabel Left = 417 Top = 1 Width = 92 Height = 17 Anchors = [] Caption = 'P'#345#237'kaz / zak'#225'zka' ExplicitLeft = 488 end object edtNazevRozpracVyrobku: TEdit AlignWithMargins = True Left = 4 Top = 19 Width = 302 Height = 24 Margins.Top = 0 Align = alClient Alignment = taCenter Color = 15790320 ReadOnly = True TabOrder = 0 ExplicitHeight = 25 end object edtRozpracZakazka: TEdit AlignWithMargins = True Left = 402 Top = 19 Width = 121 Height = 25 Margins.Top = 0 Alignment = taCenter Anchors = [] Color = 15790320 ReadOnly = True TabOrder = 1 end end object grdRozpracovane: TJvDBGrid Left = 1 Top = 1 Width = 624 Height = 509 Align = alClient DataSource = dm.dsRozpracPL DrawingStyle = gdsGradient GradientEndColor = clActiveCaption GradientStartColor = 16776176 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ParentFont = False TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [fsBold] OnCellClick = grdRozpracovaneCellClick OnDrawColumnCell = grdRozpracovaneDrawColumnCell OnDblClick = grdRozpracovaneDblClick AutoSizeColumns = True 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 = 'fIDEvidRozp' Visible = False end item Expanded = False FieldName = 'fIDStroj' Visible = False end item Expanded = False FieldName = 'fStroj' Title.Alignment = taCenter Title.Caption = 'Stroj' Width = 204 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fCisloZbozi' Title.Alignment = taCenter Title.Caption = 'Karta' Visible = False end item Expanded = False FieldName = 'fVyrobek' Title.Alignment = taCenter Title.Caption = 'V'#253'robek' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'fSZ' Title.Alignment = taCenter Title.Caption = 'SK' Width = 37 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fRC' Title.Alignment = taCenter Title.Caption = 'Reg. '#269'.' Width = 92 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fAktPaletList' Title.Alignment = taCenter Title.Caption = 'PL' Width = 124 Visible = True end item Expanded = False FieldName = 'fDatStart' Title.Alignment = taCenter Title.Caption = 'Start' Width = 120 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fColR' Title.Alignment = taCenter Title.Caption = 'R' Width = 25 Visible = True end> end object GridPanel15: TGridPanel Left = 1 Top = 563 Width = 624 Height = 30 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 Control = Label12 Row = 0 end item Column = 1 Control = GridPanel16 Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> TabOrder = 2 object Label12: TLabel AlignWithMargins = True Left = 172 Top = 4 Width = 137 Height = 17 Align = alRight Alignment = taRightJustify Caption = 'Vy'#345'adit z v'#253'roby paletu:' Visible = False end object GridPanel16: TGridPanel Left = 312 Top = 1 Width = 311 Height = 28 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 Control = edtVyraditPaletu Row = 0 end item Column = 1 Control = btnVyraditPaletuZVyroby Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> TabOrder = 0 DesignSize = ( 311 28) object edtVyraditPaletu: TEdit AlignWithMargins = True Left = 17 Top = 1 Width = 121 Height = 25 Margins.Top = 0 Alignment = taCenter Anchors = [] Color = 15790320 ReadOnly = True TabOrder = 0 Visible = False end object btnVyraditPaletuZVyroby: TButton AlignWithMargins = True Left = 155 Top = 1 Width = 75 Height = 25 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 Margins.Bottom = 0 Caption = 'Vy'#345'adit !' TabOrder = 1 Visible = False end end end end end end object GridPanel3: TGridPanel Left = 1 Top = 729 Width = 634 Height = 311 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 Control = btnVyrobniDenik Row = 0 end item Column = 0 Control = btnObjednavkaMat Row = 1 end item Column = 0 Control = btnPolotovar Row = 2 end item Column = 0 Control = btnZadaniMimoPlan Row = 3 end item Column = 1 Control = btnPrijemNestandard Row = 2 RowSpan = 2 end item Column = 1 Control = ledtVyrobniDen Row = 0 end> RowCollection = < item Value = 19.133540686323740000 end item Value = 24.819277108433730000 end item Value = 15.761873891060710000 end item Value = 15.761873891060710000 end item Value = 9.460908698115675000 end item Value = 15.062525725005430000 end> ShowCaption = False TabOrder = 3 object btnVyrobniDenik: TButton AlignWithMargins = True Left = 4 Top = 6 Width = 310 Height = 49 Margins.Top = 5 Margins.Bottom = 5 Align = alClient Caption = 'V'#253'robn'#237' den'#237'k' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = btnVyrobniDenikClick end object btnObjednavkaMat: TButton AlignWithMargins = True Left = 4 Top = 65 Width = 310 Height = 67 Hint = 'Stavy sklad'#367' materi'#225'l'#367 Margins.Top = 5 Margins.Bottom = 5 Align = alClient Caption = 'Z'#225'soba materi'#225'lu /'#13#10'Objedn'#225'vky materi'#225'lu' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 1 WordWrap = True OnClick = btnObjednavkaMatClick end object btnPolotovar: TButton AlignWithMargins = True Left = 4 Top = 142 Width = 310 Height = 39 Margins.Top = 5 Margins.Bottom = 5 Align = alClient Caption = 'Polotovar / P'#345'edv'#253'roba' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnPolotovarClick end object btnZadaniMimoPlan: TButton AlignWithMargins = True Left = 4 Top = 191 Width = 310 Height = 38 Hint = 'V'#253'b'#283'r v'#253'robku z Norem mimo pl'#225'n' Margins.Top = 5 Margins.Bottom = 5 Align = alClient Caption = 'Zad'#225'n'#237' v'#253'roby mimo pl'#225'n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = btnZadaniMimoPlanClick end object btnPrijemNestandard: TButton AlignWithMargins = True Left = 332 Top = 142 Width = 291 Height = 87 Hint = 'Z'#225'pis nove vyroben'#233' palety a tisk PL' Margins.Left = 15 Margins.Top = 5 Margins.Right = 10 Margins.Bottom = 5 Align = alClient Caption = 'P'#345#237'jem -'#13#10'Nestandardn'#237' v'#253'robek' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 4 WordWrap = True OnClick = btnPrijemNestandardClick end object ledtVyrobniDen: TRzDateTimePicker AlignWithMargins = True Left = 347 Top = 16 Width = 104 Height = 29 Margins.Left = 30 Margins.Top = 15 Date = 45159.000000000000000000 Format = '' Time = 45159.000000000000000000 Color = 13696710 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] MinDate = 45139.000000000000000000 ParentFont = False TabOrder = 5 OnChange = ledtVyrobniDenChange ShowToday = True ShowTodayCircle = True ShowWeekNumbers = True end end object GridPanel5: TGridPanel Left = 1540 Top = 729 Width = 272 Height = 311 Align = alClient ColumnCollection = < item Value = 100.000000000000000000 end> ControlCollection = < item Column = 0 Control = btnSpravaVzorku Row = 0 end item Column = 0 Control = btnMicharna Row = 1 end item Column = 0 Control = btnNahledTisky Row = 2 end item Column = 0 Control = btnAktualniSarze Row = 3 end> RowCollection = < item Value = 25.000000000000000000 end item Value = 25.000000000000000000 end item Value = 25.000000000000000000 end item Value = 25.000000000000000000 end> ShowCaption = False TabOrder = 4 object btnSpravaVzorku: TButton AlignWithMargins = True Left = 4 Top = 4 Width = 262 Height = 69 Margins.Right = 5 Margins.Bottom = 5 Align = alClient Caption = 'Spr'#225'va vzork'#367 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = btnSpravaVzorkuClick end object btnMicharna: TButton AlignWithMargins = True Left = 4 Top = 81 Width = 262 Height = 70 Margins.Right = 5 Margins.Bottom = 5 Align = alClient Caption = 'M'#237'ch'#225'rna' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnMicharnaClick end object btnNahledTisky: TButton AlignWithMargins = True Left = 4 Top = 159 Width = 262 Height = 69 Margins.Right = 5 Margins.Bottom = 5 Align = alClient Caption = 'N'#225'hled / Tisky' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnNahledTiskyClick end object btnAktualniSarze: TButton AlignWithMargins = True Left = 4 Top = 236 Width = 262 Height = 69 Hint = 'Zobrazen'#237' '#353'ar'#382'e podle vybran'#233'ho dne a sm'#283'ny' Margins.Right = 5 Margins.Bottom = 5 Align = alClient Caption = 'Aktu'#225'ln'#237' '#353'ar'#382'e' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = btnAktualniSarzeClick end end object GridPanel6: TGridPanel Left = 1540 Top = 1 Width = 272 Height = 102 Align = alClient ColumnCollection = < item Value = 100.000000000000000000 end> ControlCollection = < item Column = 0 Control = Label1 Row = 0 end> RowCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ShowCaption = False TabOrder = 5 object Label1: TLabel Left = 1 Top = 30 Width = 210 Height = 21 Align = alBottom Alignment = taCenter Anchors = [] Caption = 'Pozn'#225'mky k v'#253'robn'#237'mu dni' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [fsBold] ParentFont = False end end object memVyrobniPoznamka: TMemo AlignWithMargins = True Left = 1550 Top = 113 Width = 252 Height = 606 Margins.Left = 10 Margins.Top = 10 Margins.Right = 10 Margins.Bottom = 10 Align = alClient TabOrder = 6 OnExit = memVyrobniPoznamkaExit end object GridPanel4: TGridPanel AlignWithMargins = True Left = 655 Top = 734 Width = 865 Height = 301 Margins.Left = 20 Margins.Top = 5 Margins.Right = 20 Margins.Bottom = 5 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 ColumnSpan = 2 Control = GridPanel7 Row = 0 end item Column = 0 ColumnSpan = 2 Control = GridPanel8 Row = 1 end item Column = 0 ColumnSpan = 2 Control = GridPanel9 Row = 2 end item Column = 0 ColumnSpan = 2 Control = GridPanel10 Row = 3 end> Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False RowCollection = < item Value = 22.186981661669770000 end item Value = 21.383721539607240000 end item Value = 28.496430623143980000 end item Value = 27.932866175579010000 end> ShowCaption = False TabOrder = 7 object GridPanel7: TGridPanel AlignWithMargins = True Left = 4 Top = 4 Width = 857 Height = 60 Align = alClient ColumnCollection = < item Value = 32.502894206268340000 end item Value = 17.259036823528500000 end item Value = 25.170323403450180000 end item Value = 25.067745566752980000 end> ControlCollection = < item Column = 0 Control = edtVybranyStroj Row = 0 end item Column = 1 Control = edtMistr Row = 0 end item Column = 2 Control = btnKontrolaPeceni Row = 0 end item Column = 3 Control = btnNovyVzorek Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> ShowCaption = False TabOrder = 0 object edtVybranyStroj: TLabeledEdit AlignWithMargins = True Left = 4 Top = 30 Width = 265 Height = 29 Margins.Right = 10 Margins.Bottom = 0 Align = alBottom Alignment = taCenter EditLabel.Width = 93 EditLabel.Height = 21 EditLabel.Caption = 'Vybran'#253' stroj' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 0 Text = '' end object edtMistr: TLabeledEdit Left = 279 Top = 30 Width = 147 Height = 29 Margins.Bottom = 0 Align = alBottom Alignment = taCenter EditLabel.Width = 36 EditLabel.Height = 21 EditLabel.Caption = 'Mistr' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 1 Text = '' OnClick = edtMistrClick end object btnKontrolaPeceni: TButton AlignWithMargins = True Left = 441 Top = 4 Width = 186 Height = 55 Margins.Left = 15 Margins.Right = 15 Margins.Bottom = 0 Align = alClient Caption = 'Kontrola pe'#269'en'#237' - CCP 1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnKontrolaPeceniClick end object btnNovyVzorek: TButton AlignWithMargins = True Left = 662 Top = 4 Width = 174 Height = 52 Margins.Left = 20 Margins.Right = 20 Align = alClient Caption = 'Nov'#253' vzorek' TabOrder = 3 OnClick = btnNovyVzorekClick end end object GridPanel8: TGridPanel AlignWithMargins = True Left = 4 Top = 70 Width = 857 Height = 58 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 Control = Label2 Row = 0 end item Column = 0 ColumnSpan = 2 Control = edtAktVyrobek Row = 1 end> RowCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ShowCaption = False TabOrder = 1 DesignSize = ( 857 58) object Label2: TLabel Left = 156 Top = 4 Width = 117 Height = 21 Anchors = [] Caption = 'Aktu'#225'ln'#237' v'#253'robek' ExplicitLeft = 400 ExplicitTop = 3 end object edtAktVyrobek: TEdit Left = 1 Top = 29 Width = 855 Height = 28 TabStop = False Align = alClient AutoSize = False ReadOnly = True TabOrder = 0 end end object GridPanel9: TGridPanel AlignWithMargins = True Left = 4 Top = 131 Width = 857 Height = 82 Margins.Top = 0 Align = alClient ColumnCollection = < item Value = 25.000000000000000000 end item Value = 25.000000000000000000 end item Value = 25.000000000000000000 end item Value = 25.000000000000000000 end> ControlCollection = < item Column = 0 Control = btnZahajeniVyrobyPalety Row = 0 end item Column = 3 Control = btnUkonceniVyrobyPalety Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> ShowCaption = False TabOrder = 2 object btnZahajeniVyrobyPalety: TButton AlignWithMargins = True Left = 4 Top = 1 Width = 208 Height = 77 Margins.Top = 0 Align = alClient Caption = 'Zah'#225'jen'#237' v'#253'roby palety'#13#10' Tisk KA '#353't'#237'tk'#367 TabOrder = 0 OnClick = btnZahajeniVyrobyPaletyClick end object btnUkonceniVyrobyPalety: TButton AlignWithMargins = True Left = 645 Top = 1 Width = 208 Height = 77 Margins.Top = 0 Align = alClient Caption = 'Ukon'#269'en'#237' v'#253'roby palety'#13#10' Tisk PL' TabOrder = 1 OnClick = btnUkonceniVyrobyPaletyClick end end object GridPanel10: TGridPanel AlignWithMargins = True Left = 4 Top = 219 Width = 857 Height = 78 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 ColumnSpan = 2 Control = GridPanel11 Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> ShowCaption = False TabOrder = 3 object GridPanel11: TGridPanel Left = 1 Top = 1 Width = 855 Height = 76 Align = alClient ColumnCollection = < item Value = 39.936102236421720000 end item Value = 39.936102236421720000 end item Value = 20.127795527156560000 end> ControlCollection = < item Column = 0 Control = Label3 Row = 0 end item Column = 1 Control = Label4 Row = 0 end item Column = 0 ColumnSpan = 2 Control = GridPanel12 Row = 1 RowSpan = 2 end item Column = 2 Control = btnOdpadOprava Row = 0 RowSpan = 3 end> RowCollection = < item Value = 29.166860144418410000 end item Value = 31.111317487379640000 end item Value = 39.721822368201950000 end> TabOrder = 0 DesignSize = ( 855 76) object Label3: TLabel Left = 145 Top = 1 Width = 52 Height = 21 Anchors = [] Caption = 'ODPAD' ExplicitLeft = 207 end object Label4: TLabel Left = 428 Top = 1 Width = 168 Height = 21 Anchors = [] Caption = 'Celkem za sm'#283'na a stroj' ExplicitLeft = 598 end object GridPanel12: TGridPanel Left = 1 Top = 23 Width = 681 Height = 52 Align = alClient ColumnCollection = < item Value = 26.940100590979010000 end item Value = 8.034595154060268000 end item Value = 8.183249348806479000 end item Value = 51.593367729635760000 end item Value = 5.248687176518490000 end> ControlCollection = < item Column = 0 Control = Label5 Row = 0 end item Column = 1 Control = Label6 Row = 0 end item Column = 2 Control = Label7 Row = 0 end item Column = 3 Control = Label8 Row = 0 end item Column = 4 Control = Label9 Row = 0 end item Column = 0 Control = edtOdpadStroj Row = 1 end item Column = 1 Control = edtOdpadMokry Row = 1 end item Column = 2 Control = edtOdpadSuchy Row = 1 end item Column = 3 Control = edtOdpadPoznamka Row = 1 end item Column = 4 Control = edtOdpadSmena Row = 1 end> RowCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> TabOrder = 0 DesignSize = ( 681 52) object Label5: TLabel Left = 76 Top = 3 Width = 32 Height = 21 Anchors = [] Caption = 'Stroj' ExplicitLeft = 59 end object Label6: TLabel Left = 188 Top = 3 Width = 45 Height = 21 Anchors = [] Caption = 'Mokr'#253 ExplicitLeft = 199 end object Label7: TLabel Left = 245 Top = 3 Width = 42 Height = 21 Anchors = [] Caption = 'Such'#253 ExplicitLeft = 345 end object Label8: TLabel Left = 433 Top = 3 Width = 71 Height = 21 Anchors = [] Caption = 'Pozn'#225'mka' ExplicitLeft = 475 end object Label9: TLabel Left = 649 Top = 3 Width = 26 Height = 21 Anchors = [] Caption = 'Sm.' ExplicitLeft = 670 end object edtOdpadStroj: TEdit Left = 1 Top = 26 Width = 183 Height = 25 Align = alClient Alignment = taCenter Color = 15790320 ReadOnly = True TabOrder = 0 ExplicitHeight = 29 end object edtOdpadMokry: TNumberBox Left = 184 Top = 26 Width = 54 Height = 25 Align = alClient Alignment = taRightJustify Mode = nbmFloat TabOrder = 1 OnExit = edtOdpadMokryExit ExplicitHeight = 29 end object edtOdpadSuchy: TNumberBox Left = 238 Top = 26 Width = 56 Height = 25 Align = alClient Alignment = taRightJustify Mode = nbmFloat TabOrder = 2 OnExit = edtOdpadSuchyExit ExplicitHeight = 29 end object edtOdpadPoznamka: TEdit AlignWithMargins = True Left = 297 Top = 26 Width = 344 Height = 25 Margins.Top = 0 Margins.Bottom = 0 Align = alClient Alignment = taCenter TabOrder = 3 OnExit = edtOdpadPoznamkaExit ExplicitHeight = 29 end object edtOdpadSmena: TEdit Left = 644 Top = 26 Width = 36 Height = 25 Align = alClient Alignment = taCenter Color = 15790320 ReadOnly = True TabOrder = 4 ExplicitHeight = 29 end end object btnOdpadOprava: TButton Left = 703 Top = 12 Width = 130 Height = 51 Anchors = [] Caption = 'Oprava' TabOrder = 1 OnClick = btnOdpadOpravaClick end end end end end object infoTimer: TTimer Interval = 999 OnTimer = infoTimerTimer Left = 623 Top = 23 end object timerPrehled: TTimer Interval = 20000 OnTimer = timerPrehledTimer Left = 864 Top = 21 end end