object formGenKoopObj: TformGenKoopObj Left = 0 Top = 0 Caption = ' Generov'#225'n'#237' Koopera'#269'n'#237' objedn'#225'vky' ClientHeight = 678 ClientWidth = 952 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 pgCtrl: TRzPageControl AlignWithMargins = True Left = 3 Top = 3 Width = 946 Height = 672 Hint = '' ActivePage = shNovaObj Align = alClient SoftCorners = True TabIndex = 1 TabOrder = 0 FixedDimension = 27 object shHlavicky: TRzTabSheet Caption = 'Hlavi'#269'ky' object pnl1: TGridPanel AlignWithMargins = True Left = 3 Top = 3 Width = 936 Height = 635 Align = alClient ColumnCollection = < item Value = 33.333333333333340000 end item Value = 33.333333333333340000 end item Value = 33.333333333333310000 end> ControlCollection = < item Column = 0 Control = btnNovaObj Row = 1 end item Column = 1 Control = btnPrijem Row = 1 end item Column = 2 Control = btnReload Row = 1 end item Column = 0 ColumnSpan = 3 Control = grdHlavicky Row = 0 end> RowCollection = < item Value = 85.000000000000000000 end item Value = 15.000000000000000000 end> TabOrder = 0 DesignSize = ( 936 635) object btnNovaObj: TButton Left = 61 Top = 556 Width = 190 Height = 60 Anchors = [] Caption = 'Nov'#225' kooperace' TabOrder = 0 OnClick = btnNovaObjClick end object btnPrijem: TButton Left = 373 Top = 556 Width = 190 Height = 60 Anchors = [] Caption = 'P'#345#237'jem kooperace' TabOrder = 1 end object btnReload: TButton Left = 684 Top = 556 Width = 190 Height = 60 Anchors = [] Caption = 'Obnovit seznam' TabOrder = 2 end object grdHlavicky: TJvDBGrid AlignWithMargins = True Left = 4 Top = 4 Width = 928 Height = 532 Align = alClient Anchors = [] DataSource = dm.dsKoopObjH DrawingStyle = gdsGradient Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ReadOnly = True TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [] ScrollBars = ssVertical 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 = 'ID' Visible = False end item Expanded = False FieldName = 'IDKoopObjH' Visible = False end item Expanded = False FieldName = 'Oznaceni' Title.Caption = 'Ozna'#269'en'#237 Width = 529 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'PozadDodani' Title.Alignment = taCenter Title.Caption = 'Po'#382'adovan'#233' dod'#225'n'#237 Width = 148 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'DatVytvoreni' Title.Alignment = taCenter Title.Caption = 'Datum vytvo'#345'en'#237 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'JePrijem' Title.Alignment = taCenter Title.Caption = 'P'#345#237'jem' Width = 55 Visible = True end> end end end object shNovaObj: TRzTabSheet OnShow = shNovaObjShow Caption = 'Nov'#225' objedn'#225'vka' object pnl2: TGridPanel AlignWithMargins = True Left = 3 Top = 3 Width = 936 Height = 635 Align = alClient ColumnCollection = < item Value = 100.000000000000000000 end> ControlCollection = < item Column = 0 Control = pnl3 Row = 2 end item Column = 0 Control = GridPanel1 Row = 0 end item Column = 0 Control = grdNovePolozky Row = 1 end> RowCollection = < item Value = 20.153297645299770000 end item Value = 69.770053532050350000 end item Value = 10.076648822649870000 end> TabOrder = 0 object pnl3: TGridPanel Left = 1 Top = 570 Width = 934 Height = 64 Align = alClient ColumnCollection = < item Value = 50.000000000000000000 end item Value = 50.000000000000000000 end> ControlCollection = < item Column = 0 Control = btnPolUloz Row = 0 end item Column = 1 Control = btnPolSmaz Row = 0 end> RowCollection = < item Value = 100.000000000000000000 end> TabOrder = 0 DesignSize = ( 934 64) object btnPolUloz: TButton Left = 164 Top = 7 Width = 140 Height = 50 Anchors = [] Caption = 'Ulo'#382'it objedn'#225'vku' TabOrder = 0 OnClick = btnPolUlozClick end object btnPolSmaz: TButton Left = 630 Top = 7 Width = 140 Height = 50 Anchors = [] Caption = 'Smazat' TabOrder = 1 OnClick = btnPolSmazClick end end object GridPanel1: TGridPanel Left = 1 Top = 1 Width = 934 Height = 128 Align = alClient ColumnCollection = < item Value = 33.333333333333340000 end item Value = 33.333333333333340000 end item Value = 33.333333333333310000 end> ControlCollection = < item Column = 0 Control = Label1 Row = 0 end item Column = 1 ColumnSpan = 2 Control = cbKooperanti Row = 0 end item Column = 0 Control = Label2 Row = 1 end item Column = 1 Control = dtPozadDodani Row = 1 end item Column = 0 Control = btnNovaPol Row = 2 end item Column = 2 Control = edtBarcode Row = 2 end item Column = 1 Control = lblTypKodu Row = 2 end> RowCollection = < item Value = 33.333333333333340000 end item Value = 33.333333333333340000 end item Value = 33.333333333333310000 end> TabOrder = 1 DesignSize = ( 934 128) object Label1: TLabel Left = 119 Top = 11 Width = 75 Height = 21 Anchors = [] Caption = 'Kooperant:' ExplicitLeft = 120 end object cbKooperanti: TRzComboBox AlignWithMargins = True Left = 315 Top = 7 Width = 536 Height = 29 Anchors = [akLeft] Style = csDropDownList TabOrder = 0 OnChange = cbKooperantiChange end object Label2: TLabel Left = 63 Top = 53 Width = 187 Height = 21 Anchors = [] Caption = 'Po'#382'adovan'#233' datum dod'#225'n'#237':' ExplicitLeft = 64 end object dtPozadDodani: TDateTimePicker Left = 312 Top = 49 Width = 125 Height = 29 Anchors = [akLeft] Date = 46155.000000000000000000 Time = 0.371777592590660800 TabOrder = 1 end object btnNovaPol: TButton Left = 54 Top = 87 Width = 204 Height = 38 Anchors = [] Caption = 'Nov'#225' polo'#382'ka' TabOrder = 2 OnClick = btnNovaPolClick end object edtBarcode: TEdit Left = 622 Top = 91 Width = 445 Height = 29 Anchors = [] MaxLength = 50 TabOrder = 3 OnExit = edtBarcodeExit end object lblTypKodu: TLabel Left = 465 Top = 95 Width = 4 Height = 21 Anchors = [] ExplicitLeft = 428 end end object grdNovePolozky: TJvDBGrid AlignWithMargins = True Left = 4 Top = 132 Width = 928 Height = 435 Align = alClient DataSource = dm.dsInsOperace DrawingStyle = gdsGradient Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] PopupMenu = pMenu TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [] ScrollBars = ssVertical 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 = 'ID' Visible = False end item Expanded = False FieldName = 'IdPrPostup' Visible = False end item Alignment = taCenter Expanded = False FieldName = 'RegCis' Title.Alignment = taCenter Title.Caption = 'Reg. '#269#237'slo' Width = 150 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'RadaPrikaz' Title.Alignment = taCenter Title.Caption = #344'ada / p'#345#237'kaz' Width = 161 Visible = True end item Expanded = False FieldName = 'IDVPr' Visible = False end item Expanded = False FieldName = 'IdVPrVyssi' Visible = False end item Expanded = False FieldName = 'IDDavkaRodic' Visible = False end item Expanded = False FieldName = 'Doklad' Visible = False end item Expanded = False FieldName = 'Alt' Visible = False end item Expanded = False FieldName = 'Kusy' Title.Alignment = taCenter Width = 78 Visible = True end item Expanded = False FieldName = 'Koef' Visible = False end item Expanded = False FieldName = 'Operace' Width = 409 Visible = True end item Expanded = False FieldName = 'IDKooperace' Visible = False end item Expanded = False FieldName = 'KsNaStr' Visible = False end item Expanded = False FieldName = 'IDRadkuHDCPol' Visible = False end item Expanded = False FieldName = 'KodKoop' Title.Caption = 'Kooperace' Width = 100 Visible = True end> end end end end object pMenu: TPopupMenu Left = 109 Top = 428 object pM1ZmenaMnoz: TMenuItem Caption = 'Zm'#283'na mno'#382'stv'#237 OnClick = pM1ZmenaMnozClick end object N1: TMenuItem Caption = '-' end object pM1Smazat: TMenuItem Caption = 'Smazat' OnClick = pM1SmazatClick end end end