object formSpravaVzorku: TformSpravaVzorku Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' Spr'#225'va vzork'#367 ClientHeight = 635 ClientWidth = 1476 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] Position = poOwnerFormCenter OnShow = FormShow DesignSize = ( 1476 635) TextHeight = 21 object GridPanel1: TGridPanel Left = 0 Top = 0 Width = 1476 Height = 635 Align = alClient ColumnCollection = < item Value = 100.000000000000000000 end> ControlCollection = < item Column = 0 Control = grdSpravaVzorku Row = 1 end item Column = 0 Control = GridPanel2 Row = 0 end> RowCollection = < item Value = 22.000000000000000000 end item Value = 75.000000000000000000 end item Value = 3.000000000000004000 end> TabOrder = 0 object grdSpravaVzorku: TJvDBGrid Left = 1 Top = 140 Width = 1474 Height = 475 Align = alClient DataSource = dm.dsSpravaVzorku 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 = [] OnColEnter = grdSpravaVzorkuColEnter OnColExit = grdSpravaVzorkuColExit OnDrawColumnCell = grdSpravaVzorkuDrawColumnCell OnDblClick = grdSpravaVzorkuDblClick OnMouseUp = grdSpravaVzorkuMouseUp 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 = 'colID' Visible = False end item Expanded = False FieldName = 'colIDArchiv' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'colSZ' Title.Alignment = taCenter Title.Caption = 'SZ' Width = 38 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colRC' Title.Alignment = taCenter Title.Caption = 'Reg. '#269#237'slo' Width = 113 Visible = True end item Expanded = False FieldName = 'colNazev1' Title.Alignment = taCenter Title.Caption = 'N'#225'zev' Width = 377 Visible = True end item Expanded = False FieldName = 'colStroj' Title.Alignment = taCenter Width = 361 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colMistr' Title.Alignment = taCenter Title.Caption = 'Mistr' Width = 148 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colDatPorizeni' Title.Alignment = taCenter Title.Caption = 'Datum' Width = 151 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colKArchivaci' Title.Alignment = taCenter Title.Caption = ' ' Width = 32 Visible = True end item Expanded = False FieldName = 'colArchiv' Title.Alignment = taCenter Width = 140 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colUkonceno' Title.Alignment = taCenter Title.Caption = ' ' Width = 32 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colVyrazeno' Title.Alignment = taCenter Title.Caption = ' ' Width = 32 Visible = True end> end object GridPanel2: TGridPanel Left = 1 Top = 1 Width = 1474 Height = 139 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> RowCollection = < item Value = 35.515097939819110000 end item Value = 64.484902060180900000 end> TabOrder = 1 object GridPanel3: TGridPanel Left = 1 Top = 1 Width = 1472 Height = 49 Align = alClient ColumnCollection = < item Value = 20.000000000000000000 end item Value = 20.000000000000000000 end item Value = 20.000000000000000000 end item Value = 20.000000000000000000 end item Value = 20.000000000000000000 end> ControlCollection = < item Column = 1 Control = btnTiskKartonu Row = 0 end item Column = 2 Control = btnTiskSeznamVzorku Row = 0 end item Column = 4 Control = btnUkoncitKarton Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> TabOrder = 0 DesignSize = ( 1472 49) object btnTiskKartonu: TButton Left = 352 Top = 2 Width = 180 Height = 45 Anchors = [] Caption = 'Tisk - '#353't'#237'tek kartonu' TabOrder = 0 end object btnTiskSeznamVzorku: TButton Left = 602 Top = 2 Width = 268 Height = 45 Anchors = [] Caption = 'Tisk - seznam vzork'#367' v kartonu' TabOrder = 1 end object btnUkoncitKarton: TButton Left = 1254 Top = 2 Width = 140 Height = 45 Anchors = [] Caption = 'Ukon'#269'it karton' TabOrder = 2 end end object GridPanel4: TGridPanel Left = 1 Top = 50 Width = 1472 Height = 88 Align = alClient ColumnCollection = < item Value = 0.800000000000000000 end item Value = 2.600000000000000000 end item Value = 7.900000000000000000 end item Value = 25.800000000000000000 end item Value = 24.700000000000000000 end item Value = 10.000000000000000000 end item Value = 10.100000000000000000 end item Value = 2.200000000000000000 end item Value = 9.900000000000000000 end item Value = 2.200000000000000000 end item Value = 2.200000000000000000 end item Value = 1.599999999999993000 end> ControlCollection = < item Column = 0 Control = Label1 Row = 0 end item Column = 1 Control = edtSZ Row = 0 end item Column = 2 Control = edtRegCis Row = 0 end item Column = 3 Control = edtNazev1 Row = 0 end item Column = 4 Control = edtStroj Row = 0 end item Column = 10 Control = Label9 Row = 0 end item Column = 7 Control = Label2 Row = 0 end item Column = 9 Control = Label3 Row = 0 end item Column = 5 ColumnSpan = 2 Control = btnVyraditVzorek Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> TabOrder = 1 DesignSize = ( 1472 88) object Label1: TLabel AlignWithMargins = True Left = 1 Top = 63 Width = 12 Height = 21 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 Margins.Bottom = 3 Align = alBottom Caption = 'X' OnClick = Label1Click ExplicitWidth = 9 end object edtSZ: TEdit Left = 13 Top = 58 Width = 38 Height = 29 Align = alBottom Alignment = taCenter MaxLength = 3 TabOrder = 0 OnChange = edtSZChange end object edtRegCis: TEdit Left = 51 Top = 58 Width = 116 Height = 29 Align = alBottom Alignment = taCenter MaxLength = 30 TabOrder = 1 OnChange = edtRegCisChange end object edtNazev1: TEdit Left = 167 Top = 58 Width = 379 Height = 29 Align = alBottom Alignment = taCenter MaxLength = 100 TabOrder = 2 OnChange = edtNazev1Change end object edtStroj: TEdit Left = 546 Top = 58 Width = 363 Height = 29 Align = alBottom Alignment = taCenter MaxLength = 100 TabOrder = 3 OnChange = edtStrojChange end object Label9: TLabel Left = 1419 Top = 8 Width = 23 Height = 72 Anchors = [] Caption = 'Vy'#345'azeno' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Orientation = 2700 Font.Style = [fsBold] ParentFont = False Layout = tlCenter WordWrap = True ExplicitLeft = 979 ExplicitTop = 10 end object Label2: TLabel Left = 1209 Top = 2 Width = 23 Height = 83 Anchors = [] Caption = 'K archivaci' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Orientation = 2700 Font.Style = [fsBold] ParentFont = False Layout = tlCenter WordWrap = True ExplicitLeft = 979 end object Label3: TLabel Left = 1387 Top = 5 Width = 23 Height = 78 Anchors = [] Caption = 'Ukon'#269'eno' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Orientation = 2700 Font.Style = [fsBold] ParentFont = False Layout = tlCenter WordWrap = True ExplicitLeft = 1124 ExplicitTop = 7 end object btnVyraditVzorek: TButton Left = 987 Top = 21 Width = 140 Height = 45 Anchors = [] Caption = 'Vy'#345'adit vzorek' TabOrder = 4 end end end end object dbCb1: TJvDBCheckBox Left = 151 Top = 228 Width = 20 Height = 30 Anchors = [] Color = clBtnFace DataField = 'colKArchivaci' DataSource = dm.dsSpravaVzorku ParentColor = False TabOrder = 1 ValueChecked = 'X' ValueUnchecked = '' Visible = False end end