Prvni verze

2025-05-21 21:06:33 +02:00
parent a976e7392e
commit fedc940ac4
189 changed files with 72374 additions and 17 deletions
--- a/_plgPlan/frmZavady.dfm
+++ b/_plgPlan/frmZavady.dfm
@ -0,0 +1,113 @@
+object formZavady: TformZavady
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = ' Vyberte '#250'dr'#382'bu'
+  ClientHeight = 470
+  ClientWidth = 482
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  TextHeight = 21
+  object grd1: TGridPanel
+    Left = 0
+    Top = 0
+    Width = 482
+    Height = 470
+    Align = alClient
+    Caption = 'grd1'
+    ColumnCollection = <
+      item
+        Value = 100.000000000000000000
+      end>
+    ControlCollection = <
+      item
+        Column = 0
+        Control = Panel1
+        Row = 1
+      end>
+    RowCollection = <
+      item
+        Value = 5.000000000000000000
+      end
+      item
+        Value = 95.000000000000000000
+      end>
+    TabOrder = 0
+    object Panel1: TPanel
+      Left = 1
+      Top = 24
+      Width = 480
+      Height = 445
+      Align = alClient
+      Anchors = []
+      TabOrder = 0
+      object grdZavady: TJvDBGrid
+        Left = 1
+        Top = 1
+        Width = 478
+        Height = 443
+        Align = alClient
+        DataSource = dm2.dsZavady
+        DrawingStyle = gdsClassic
+        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+        ReadOnly = True
+        TabOrder = 0
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -16
+        TitleFont.Name = 'Segoe UI'
+        TitleFont.Style = []
+        OnDrawColumnCell = grdZavadyDrawColumnCell
+        OnDblClick = grdZavadyDblClick
+        ScrollBars = ssVertical
+        SelectColumnsDialogStrings.Caption = 'Vyberte sloupce'
+        SelectColumnsDialogStrings.OK = '&OK'
+        SelectColumnsDialogStrings.NoSelectionWarning = 'Mus'#237' b'#253't viditeln'#253' aspo'#328' jeden sloupec !'
+        CanDelete = False
+        EditControls = <>
+        RowsHeight = 25
+        TitleRowHeight = 25
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'colID'
+            Visible = False
+          end
+          item
+            Expanded = False
+            FieldName = 'colTyp'
+            Visible = False
+          end
+          item
+            Alignment = taCenter
+            Expanded = False
+            FieldName = 'colKod'
+            Title.Alignment = taCenter
+            Title.Caption = 'Kod'
+            Width = 98
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'colNazev'
+            Title.Alignment = taCenter
+            Title.Caption = 'N'#225'zev'
+            Width = 352
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'colIDPrikaz'
+            Visible = False
+          end>
+      end
+    end
+  end
+end