Prvni verze na Git

frmUnit12.dfm

@@ -0,0 +1,92 @@
+object frmRozdelMat: TfrmRozdelMat
+  Left = 0
+  Top = 0
+  Caption = '  Rozd'#283'len'#237' materi'#225'lu'
+  ClientHeight = 440
+  ClientWidth = 1030
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnResize = FormResize
+  OnShow = FormShow
+  TextHeight = 13
+  object btnQuit: TButton
+    Left = 929
+    Top = 398
+    Width = 90
+    Height = 25
+    Caption = 'Storno'
+    Default = True
+    ModalResult = 2
+    TabOrder = 0
+    OnClick = btnQuitClick
+  end
+  object btnPrevod: TButton
+    Left = 767
+    Top = 398
+    Width = 101
+    Height = 25
+    Caption = 'Generuj p'#345'evodky'
+    ModalResult = 1
+    TabOrder = 1
+  end
+  object gRozpad2: TJvDBGrid
+    Left = 2
+    Top = 6
+    Width = 1020
+    Height = 375
+    DataSource = dsRozpad2
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDrawColumnCell = gRozpad2DrawColumnCell
+    OnKeyUp = gRozpad2KeyUp
+    OnMouseMove = gRozpad2MouseMove
+    OnEditChange = gRozpad2EditChange
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    RowsHeight = 17
+    TitleRowHeight = 17
+  end
+  object dsRozpad: TDataSource
+    DataSet = tabRozpad
+    Left = 598
+    Top = 380
+  end
+  object tabRozpad: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 524
+    Top = 380
+  end
+  object dsRozpad2: TDataSource
+    DataSet = tabRozpad2
+    Left = 286
+    Top = 376
+  end
+  object tabRozpad2: TFDMemTable
+    FetchOptions.AssignedValues = [evMode]
+    FetchOptions.Mode = fmAll
+    ResourceOptions.AssignedValues = [rvSilentMode]
+    ResourceOptions.SilentMode = True
+    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
+    UpdateOptions.CheckRequired = False
+    UpdateOptions.AutoCommitUpdates = True
+    Left = 206
+    Top = 378
+  end
+end