object formPolozkyMD: TformPolozkyMD Left = 0 Top = 0 BorderIcons = [biSystemMenu] Caption = 'Test' ClientHeight = 829 ClientWidth = 781 Color = clSkyBlue CustomTitleBar.CaptionAlignment = taCenter CustomTitleBar.Control = custTitleBar CustomTitleBar.Enabled = True CustomTitleBar.Height = 31 CustomTitleBar.SystemColors = False CustomTitleBar.BackgroundColor = 9074280 CustomTitleBar.ForegroundColor = clYellow CustomTitleBar.InactiveBackgroundColor = clWhite CustomTitleBar.InactiveForegroundColor = 10066329 CustomTitleBar.ButtonForegroundColor = clWhite CustomTitleBar.ButtonBackgroundColor = 9074280 CustomTitleBar.ButtonHoverForegroundColor = 65793 CustomTitleBar.ButtonHoverBackgroundColor = 10456447 CustomTitleBar.ButtonPressedForegroundColor = 65793 CustomTitleBar.ButtonPressedBackgroundColor = 12168612 CustomTitleBar.ButtonInactiveForegroundColor = 65793 CustomTitleBar.ButtonInactiveBackgroundColor = 13551038 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [] GlassFrame.Enabled = True GlassFrame.Top = 31 Position = poOwnerFormCenter StyleElements = [seFont, seClient] OnCreate = FormCreate OnShow = FormShow DesignSize = ( 781 829) TextHeight = 32 object Label1: TLabel AlignWithMargins = True Left = 7 Top = 34 Width = 95 Height = 32 Caption = 'Materi'#225'l' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [fsBold] ParentFont = False end object lblMaterial: TLabel Left = 119 Top = 34 Width = 270 Height = 32 AutoSize = False Caption = 'lblMaterial' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [fsBold] ParentFont = False end object lblRegCis: TLabel Left = 8 Top = 67 Width = 616 Height = 32 AutoSize = False Caption = 'lblRegCis' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 408 Top = 34 Width = 93 Height = 32 Caption = 'skladem:' end object lblAltMatCapt: TLabel Left = 8 Top = 108 Width = 196 Height = 32 Caption = 'N'#225'hradn'#237' materi'#225'l:' end object lblSkladem: TLabel Left = 510 Top = 34 Width = 118 Height = 32 AutoSize = False Caption = '0123,45' end object lblDelkaCelkem: TLabel Left = 153 Top = 744 Width = 523 Height = 32 Alignment = taCenter Anchors = [akRight, akBottom] AutoSize = False Caption = 'lblDelkaCelkem' ExplicitLeft = 8 end object Panel1: TPanel Left = 6 Top = 170 Width = 769 Height = 571 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 ExplicitWidth = 624 DesignSize = ( 769 571) object Label2: TLabel Left = 214 Top = 0 Width = 110 Height = 32 Caption = 'V'#253'r. p'#345#237'kaz' end object Label3: TLabel Left = 460 Top = 0 Width = 69 Height = 32 Caption = 'D'#283'len'#237 end object lblNadobaSort: TLabel Left = 612 Top = 0 Width = 90 Height = 32 Caption = 'N'#225'doba' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 22 Top = 0 Width = 120 Height = 32 Caption = 'P'#345#237'kaz '#345#237'd'#237'c'#237 end object ctrlPolozkyMD: TControlList AlignWithMargins = True Left = 2 Top = 35 Width = 761 Height = 661 Anchors = [akLeft, akTop, akRight] ItemHeight = 60 ItemMargins.Left = 0 ItemMargins.Top = 0 ItemMargins.Right = 0 ItemMargins.Bottom = 0 ParentColor = False TabOrder = 0 OnBeforeDrawItem = ctrlPolozkyMDBeforeDrawItem ExplicitWidth = 616 object lblDeleni: TLabel Left = 455 Top = -2 Width = 102 Height = 32 Alignment = taRightJustify Caption = 'lblDeleni' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [fsBold] ParentFont = False end object lblNadoba: TLabel Left = 609 Top = -2 Width = 110 Height = 32 Alignment = taRightJustify Caption = 'lblNadoba' end object lblRegCisPrikaz: TLabel Left = 217 Top = 25 Width = 243 Height = 32 AutoSize = False Caption = 'lblRegCisPrikaz' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False end object lblRadaPrikaz: TLabel Left = 217 Top = -2 Width = 124 Height = 30 Caption = 'lblRadaPrikaz' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False end object lblRezatUhel: TLabel Left = 598 Top = 25 Width = 131 Height = 32 Alignment = taRightJustify Caption = 'lblRezatUhel' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -24 Font.Name = 'Segoe UI' Font.Style = [fsItalic] ParentFont = False end object lblRadaPrikazFin: TLabel Left = 18 Top = -2 Width = 151 Height = 30 Caption = 'lblRadaPrikazFin' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False end object lblRegCisPrikazFin: TLabel Left = 18 Top = 25 Width = 243 Height = 32 AutoSize = False Caption = 'lblRegCisPrikazFin' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Segoe UI' Font.Style = [] ParentFont = False end end end object btnNaPilu: TButton Left = 218 Top = 778 Width = 146 Height = 47 Anchors = [akRight, akBottom] Caption = 'Na PILU' TabOrder = 1 OnClick = btnNaPiluClick ExplicitLeft = 73 end object btnStorno: TButton Left = 609 Top = 778 Width = 146 Height = 47 Anchors = [akRight, akBottom] Caption = 'Storno' TabOrder = 2 OnClick = btnStornoClick ExplicitLeft = 464 end object custTitleBar: TTitleBarPanel Left = 0 Top = 0 Width = 781 Height = 30 CustomButtons = <> ExplicitWidth = 636 end object grdAltMaterial: TStringGrid Left = 210 Top = 108 Width = 563 Height = 58 Anchors = [akLeft, akTop, akRight] ColCount = 3 FixedCols = 0 RowCount = 2 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goFixedRowDefAlign] TabOrder = 4 OnDrawCell = grdAltMaterialDrawCell OnMouseUp = grdAltMaterialMouseUp ExplicitWidth = 418 end end