Prvni verze na Git

2026-04-20 16:57:38 +02:00
parent 8b67223830
commit 791121c56d
43 changed files with 10967 additions and 0 deletions
@@ -0,0 +1,173 @@
+object formImportKusovnik: TformImportKusovnik
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = ' Import dat kusovn'#237'ku z CADu'
+  ClientHeight = 715
+  ClientWidth = 1111
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  RoundedCorners = rcOn
+  OnClose = FormClose
+  OnShow = FormShow
+  DesignSize = (
+    1111
+    715)
+  TextHeight = 21
+  object Label1: TLabel
+    Left = 30
+    Top = 24
+    Width = 59
+    Height = 21
+    Caption = 'Zak'#225'zka:'
+  end
+  object selZakazka: TButtonedEdit
+    Left = 30
+    Top = 48
+    Width = 139
+    Height = 29
+    Alignment = taCenter
+    Images = datModul.imgList
+    RightButton.ImageIndex = 0
+    RightButton.Visible = True
+    TabOrder = 0
+    OnRightButtonClick = selZakazkaRightButtonClick
+  end
+  object edtStanice: TLabeledEdit
+    Left = 210
+    Top = 48
+    Width = 57
+    Height = 29
+    Alignment = taCenter
+    EditLabel.Width = 52
+    EditLabel.Height = 21
+    EditLabel.Caption = 'Stanice:'
+    TabOrder = 1
+    Text = ''
+  end
+  object btnImport: TButton
+    Left = 296
+    Top = 40
+    Width = 111
+    Height = 37
+    Caption = 'Import dat'
+    TabOrder = 2
+    OnClick = btnImportClick
+  end
+  object grdKusovnik: TJvDBGrid
+    Left = 12
+    Top = 98
+    Width = 1086
+    Height = 550
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = datModul.dsImportKusovnik
+    DrawingStyle = gdsGradient
+    GradientEndColor = clSkyBlue
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -16
+    TitleFont.Name = 'Segoe UI'
+    TitleFont.Style = []
+    OnDrawColumnCell = grdKusovnikDrawColumnCell
+    OnDblClick = grdKusovnikDblClick
+    OnMouseUp = grdKusovnikMouseUp
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    EditControls = <>
+    AutoSizeRows = False
+    RowsHeight = 30
+    TitleRowHeight = 30
+    OnCanEditCell = grdKusovnikCanEditCell
+    Columns = <
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'Pozice'
+        ReadOnly = True
+        Title.Alignment = taCenter
+        Width = 60
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Oznaceni'
+        ReadOnly = True
+        Title.Caption = 'Ozna'#269'en'#237
+        Width = 246
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Popis'
+        ReadOnly = True
+        Width = 412
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'SZ'
+        ReadOnly = True
+        Title.Alignment = taCenter
+        Title.Caption = 'SK'
+        Width = 47
+        Visible = True
+      end
+      item
+        Alignment = taCenter
+        Expanded = False
+        FieldName = 'RegCis'
+        ReadOnly = True
+        Title.Alignment = taCenter
+        Title.Caption = 'Reg. '#269#237'slo'
+        Width = 118
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Mnozstvi'
+        ReadOnly = True
+        Title.Alignment = taCenter
+        Title.Caption = 'Mno'#382'stv'#237
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'NovaKarta'
+        Title.Alignment = taCenter
+        Title.Caption = 'Nov'#225
+        Width = 64
+        Visible = True
+      end>
+  end
+  object btnStorno: TButton
+    Left = 988
+    Top = 662
+    Width = 111
+    Height = 37
+    Anchors = [akRight, akBottom]
+    Caption = 'Storno'
+    TabOrder = 4
+    OnClick = btnStornoClick
+    ExplicitLeft = 856
+  end
+  object btnZapis: TButton
+    Left = 484
+    Top = 662
+    Width = 129
+    Height = 37
+    Anchors = [akRight, akBottom]
+    Caption = 'Z'#225'pis do TPV'
+    TabOrder = 5
+    OnClick = btnZapisClick
+    ExplicitLeft = 352
+  end
+end