object formLikvidace: TformLikvidace Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' V'#221'DEJ ZBO'#381#205' K LIKVIDACI' ClientHeight = 744 ClientWidth = 1364 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] Position = poOwnerFormCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 DesignSize = ( 1364 744) TextHeight = 25 object gbPolozky: TGroupBox Left = 14 Top = 12 Width = 1058 Height = 709 Anchors = [akLeft, akTop, akRight, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 object grdPol: TDBGridEh Left = 2 Top = 27 Width = 1054 Height = 680 Align = alClient AllowedSelections = [] DataGrouping.Active = True DataGrouping.Color = 13425149 DataGrouping.GroupLevels = < item ColumnName = 'Column_0_NazevSort' end> DataGrouping.ParentColor = False DataSource = dSource DynProps = <> GridLineParams.ColorScheme = glcsThemedEh GridLineParams.VertEmptySpaceStyle = dessNonEh IndicatorOptions = [] Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight] SelectionDrawParams.SelectionStyle = gsdsClassicEh TabOrder = 0 TitleParams.Color = clMoneyGreen TitleParams.FillStyle = cfstSolidEh TitleParams.MultiTitle = True TitleParams.SecondColor = clMoneyGreen OnGetCellParams = grdPolGetCellParams Columns = < item CellButtons = <> DynProps = <> EditButtons = <> FieldName = 'NazevSort' Footers = <> MRUList.AutoAdd = False STFilter.Visible = False Visible = False end item Alignment = taCenter CellButtons = <> DynProps = <> EditButtons = <> FieldName = 'RegCis' Footers = <> ReadOnly = True TextEditing = False Title.Caption = 'Zbo'#382#237'|'#268#237'slo' Width = 189 end item CellButtons = <> DynProps = <> EditButtons = <> FieldName = 'Nazev1' Footers = <> ReadOnly = True TextEditing = False Title.Caption = 'Zbo'#382#237'|N'#225'zev' Width = 572 end item Alignment = taCenter CellButtons = <> DisplayFormat = '###0.##' DynProps = <> EditButtons = <> FieldName = 'StavSkladu' Footers = <> ReadOnly = True TextEditing = False Title.Caption = 'Mno'#382'stv'#237'|Stav skladu' Width = 125 end item Alignment = taCenter CellButtons = <> DisplayFormat = '###0.##' DynProps = <> EditButtons = <> FieldName = 'KeVraceni' Footers = <> Layout = tlCenter Title.Caption = 'Mno'#382'stv'#237'|Ke vr'#225'cen'#237 Width = 124 OnAdvDrawDataCell = grdPolColumns4AdvDrawDataCell OnGetCellParams = grdPolColumns4GetCellParams OnUpdateData = grdPolColumns4UpdateData end item CellButtons = <> DynProps = <> EditButtons = <> FieldName = 'Priorita' Footers = <> Visible = False end> object RowDetailData: TRowDetailPanelControlEh end end end object btnOK: TButton Left = 1102 Top = 66 Width = 244 Height = 69 Anchors = [akTop, akRight] Caption = 'Ulo'#382'it v'#253'dej k likvidaci' TabOrder = 0 OnClick = btnOKClick end object btnRozbalit: TButton Left = 1102 Top = 209 Width = 244 Height = 46 Anchors = [akTop, akRight] Caption = 'Rozbalit v'#353'e' TabOrder = 2 OnClick = btnRozbalitClick end object btnSbalit: TButton Left = 1102 Top = 277 Width = 244 Height = 45 Anchors = [akTop, akRight] Caption = 'Sbalit v'#353'e' TabOrder = 3 OnClick = btnSbalitClick end object btnZavrit: TButton Left = 1102 Top = 385 Width = 244 Height = 65 Anchors = [akTop, akRight] Caption = 'Zav'#345#237't (bez ulo'#382'en'#237')' TabOrder = 4 OnClick = btnZavritClick end object Button1: TButton Left = 1089 Top = 663 Width = 166 Height = 50 Anchors = [akRight, akBottom] Caption = '(HDC) Save tbl' TabOrder = 5 Visible = False OnClick = Button1Click end object btnNuluj: TButton Left = 1089 Top = 594 Width = 253 Height = 50 Anchors = [akRight, akBottom] Caption = '(HDC) Vymazat mno'#382'stv'#237 TabOrder = 6 Visible = False OnClick = btnNulujClick end object dSource: TDataSource DataSet = vTab Left = 1224 Top = 10 end object vTab: TMemTableEh Params = <> Left = 1278 Top = 12 object vTabSortimentK1: TStringField Alignment = taCenter FieldName = 'K1' Visible = False Size = 10 end object vTabSortimentK2: TStringField Alignment = taCenter FieldName = 'K2' Visible = False Size = 10 end object vTabNazevSort: TStringField DisplayLabel = 'Sortiment' FieldName = 'NazevSort' Size = 100 end object vTabSkupZbo: TStringField FieldName = 'SkupZbo' Visible = False Size = 3 end object vTabRegCis: TStringField FieldName = 'RegCis' Size = 30 end object vTabNazev1: TStringField FieldName = 'Nazev1' Size = 100 end object vTabStavSkladu: TFloatField FieldName = 'StavSkladu' DisplayFormat = '0' EditFormat = '0' Precision = 2 end object vTabKeVraceni: TFloatField FieldName = 'KeVraceni' DisplayFormat = '0' EditFormat = '0' Precision = 2 end object vTabIDStavSkladu: TIntegerField FieldName = 'IDStavSkladu' Visible = False end object vTabAktDodavatel: TIntegerField FieldName = 'AktDodavatel' Visible = False end object vTabPriorita: TIntegerField FieldName = 'Priorita' Visible = False end object vTabPoradiSortNazev: TStringField FieldName = 'PoradiSortNazev' Visible = False Size = 100 end object vTabK1K2: TStringField FieldName = 'K1K2' Visible = False end object vTabPoradiVSort: TSingleField FieldName = 'PoradiVSort' Visible = False end object MemTableData: TMemTableDataEh object DataStruct: TMTDataStructEh object PoradiVSort: TMTNumericDataFieldEh FieldName = 'PoradiVSort' NumericDataType = fdtSingleEh AutoIncrement = False DisplayWidth = 20 currency = False Precision = 15 end object K1K2: TMTStringDataFieldEh FieldName = 'K1K2' StringDataType = fdtStringEh DisplayWidth = 20 Visible = False end object PoradiSortNazev: TMTStringDataFieldEh FieldName = 'PoradiSortNazev' StringDataType = fdtStringEh DisplayWidth = 20 Visible = False Size = 100 end object Priorita: TMTNumericDataFieldEh FieldName = 'Priorita' NumericDataType = fdtIntegerEh AutoIncrement = False DisplayWidth = 2 currency = False Precision = 0 end object AktDodavatel: TMTNumericDataFieldEh FieldName = 'AktDodavatel' NumericDataType = fdtIntegerEh AutoIncrement = False DisplayWidth = 20 currency = False Precision = 15 end object IDStavSkladu: TMTNumericDataFieldEh FieldName = 'IDStavSkladu' NumericDataType = fdtIntegerEh AutoIncrement = False DisplayWidth = 20 currency = False Precision = 15 end object KeVraceni: TMTNumericDataFieldEh FieldName = 'KeVraceni' NumericDataType = fdtFloatEh AutoIncrement = False Alignment = taCenter DisplayWidth = 20 DisplayFormat = '0' currency = False Precision = 2 end object StavSkladu: TMTNumericDataFieldEh FieldName = 'StavSkladu' NumericDataType = fdtFloatEh AutoIncrement = False Alignment = taCenter DisplayWidth = 20 DisplayFormat = '0' currency = False Precision = 2 end object Nazev1: TMTStringDataFieldEh FieldName = 'Nazev1' StringDataType = fdtStringEh DisplayWidth = 20 Size = 100 end object RegCis: TMTStringDataFieldEh FieldName = 'RegCis' StringDataType = fdtStringEh DisplayWidth = 20 Size = 30 end object SkupZbo: TMTStringDataFieldEh FieldName = 'SkupZbo' StringDataType = fdtStringEh DisplayWidth = 20 Size = 3 end object NazevSort: TMTStringDataFieldEh FieldName = 'NazevSort' StringDataType = fdtStringEh DisplayWidth = 20 Size = 100 end object K2: TMTStringDataFieldEh FieldName = 'K2' StringDataType = fdtStringEh DisplayWidth = 20 Size = 10 end object K1: TMTStringDataFieldEh FieldName = 'K1' StringDataType = fdtStringEh DisplayWidth = 20 Size = 10 end end object RecordsList: TRecordsListEh end end end end