Prvotni verze pro Giteu

frmPolozkyMD.dfm

@@ -0,0 +1,315 @@
+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