object formKanbanObj: TformKanbanObj Left = 0 Top = 0 BorderIcons = [biSystemMenu] Caption = 'Kanban objedn'#225'vka' ClientHeight = 624 ClientWidth = 737 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 391 Top = 19 Width = 87 Height = 16 Caption = 'Po'#269'et polo'#382'ek :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblPocetPol: TLabel Left = 489 Top = 4 Width = 24 Height = 45 Caption = '0' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -37 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 26 Top = 24 Width = 65 Height = 16 Caption = 'Dodavatel :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblDodavatel: TLabel Left = 102 Top = 19 Width = 7 Height = 25 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 26 Top = 66 Width = 75 Height = 16 Caption = 'Kanban box :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblWork: TLabel Left = 444 Top = 606 Width = 285 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'lblWork' end object gPolozky: TcxGrid Left = 26 Top = 93 Width = 687 Height = 439 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object vgPolozky: TcxGridDBTableView OnKeyUp = vgPolozkyKeyUp Navigator.Buttons.CustomButtons = <> DataController.DataSource = ds DataController.Summary.DefaultGroupSummaryItems = < item Kind = skSum Position = spFooter Column = vgPolozkyMnozstvi end> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHorzSizing = False OptionsCustomize.ColumnMoving = False OptionsCustomize.GroupBySorting = True OptionsData.Deleting = False OptionsData.Editing = False OptionsData.Inserting = False OptionsSelection.CellSelect = False OptionsView.GroupByBox = False object vgPolozkyIdPohybu: TcxGridDBColumn DataBinding.FieldName = 'IdPohybu' Visible = False end object vgPolozkyIdKanbanBox: TcxGridDBColumn Caption = #268#237'slo boxu' DataBinding.FieldName = 'IdKanbanBox' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter MinWidth = 84 Options.Editing = False Options.Filtering = False Options.AutoWidthSizable = False Options.Grouping = False Options.HorzSizing = False Options.Moving = False Width = 84 end object vgPolozkyRegCis: TcxGridDBColumn Caption = 'Reg. '#269#237'slo' DataBinding.FieldName = 'RegCis' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter MinWidth = 126 Options.Editing = False Options.Filtering = False Options.HorzSizing = False Options.Moving = False Width = 126 end object vgPolozkyNazev: TcxGridDBColumn Caption = 'Popis' DataBinding.FieldName = 'Nazev' PropertiesClassName = 'TcxLabelProperties' MinWidth = 373 Options.Editing = False Options.Filtering = False Options.AutoWidthSizable = False Options.HorzSizing = False Options.Moving = False Options.Sorting = False Width = 373 end object vgPolozkyMnozstvi: TcxGridDBColumn Caption = 'Mno'#382'stv'#237 DataBinding.FieldName = 'Mnozstvi' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter MinWidth = 73 Options.Editing = False Options.Filtering = False Options.AutoWidthSizable = False Options.Grouping = False Options.HorzSizing = False Options.Moving = False Options.Sorting = False Width = 73 end end object lvlgPolozky: TcxGridLevel GridView = vgPolozky end end object btnStorno: TButton Left = 638 Top = 565 Width = 75 Height = 25 Caption = 'Zru'#353'it' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnStornoClick end object btnOK: TButton Left = 490 Top = 565 Width = 75 Height = 25 Caption = 'OK' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnOKClick end object btnGenObj: TButton Left = 558 Top = 12 Width = 155 Height = 29 Caption = 'Generuj v'#253'dejku obal'#367 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = btnGenObjClick end object mLog: TMemo Left = 26 Top = 538 Width = 401 Height = 75 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] Lines.Strings = ( '') ParentFont = False ScrollBars = ssVertical TabOrder = 4 end object edtBox: TEdit Left = 107 Top = 63 Width = 121 Height = 24 Alignment = taCenter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] NumbersOnly = True ParentFont = False TabOrder = 5 OnKeyUp = edtBoxKeyUp end object ds: TDataSource DataSet = vTable Left = 282 Top = 8 end object vTable: TFDMemTable FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 328 Top = 10 object vTableIdPohybu: TIntegerField FieldName = 'IdPohybu' end object vTableIdKanbanBox: TIntegerField FieldName = 'IdKanbanBox' Required = True end object vTableRegCis: TStringField FieldName = 'RegCis' Required = True Size = 30 end object vTableNazev: TStringField FieldName = 'Nazev' Required = True Size = 50 end object vTableMnozstvi: TSmallintField FieldName = 'Mnozstvi' Required = True end end end