EMPolar-plgEMPDeleniTrubek/frmPolozkyMD.dfm

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