Prvni verze

frmVyberPL.dfm

@@ -0,0 +1,154 @@
+object formVyberPL: TformVyberPL
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = '  Vyberte paletov'#253' list'
+  ClientHeight = 506
+  ClientWidth = 585
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -19
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poOwnerFormCenter
+  TextHeight = 25
+  object GridPanel1: TGridPanel
+    Left = 0
+    Top = 0
+    Width = 585
+    Height = 506
+    Align = alClient
+    ColumnCollection = <
+      item
+        Value = 100.000000000000000000
+      end>
+    ControlCollection = <
+      item
+        Column = 0
+        Control = GridPanel2
+        Row = 2
+      end
+      item
+        Column = 0
+        Control = grdPaletListy
+        Row = 1
+      end>
+    RowCollection = <
+      item
+        Value = 10.000000000000000000
+      end
+      item
+        Value = 80.000000000000000000
+      end
+      item
+        Value = 10.000000000000000000
+      end>
+    TabOrder = 0
+    ExplicitLeft = 186
+    ExplicitTop = 128
+    ExplicitWidth = 185
+    ExplicitHeight = 41
+    object GridPanel2: TGridPanel
+      Left = 1
+      Top = 455
+      Width = 583
+      Height = 50
+      Align = alClient
+      ColumnCollection = <
+        item
+          Value = 50.000000000000000000
+        end
+        item
+          Value = 50.000000000000000000
+        end>
+      ControlCollection = <
+        item
+          Column = 0
+          Control = btnOK
+          Row = 0
+        end
+        item
+          Column = 1
+          Control = btnZrusit
+          Row = 0
+        end>
+      RowCollection = <
+        item
+          Value = 100.000000000000000000
+        end>
+      TabOrder = 0
+      ExplicitLeft = 230
+      ExplicitTop = 98
+      ExplicitWidth = 185
+      ExplicitHeight = 41
+      DesignSize = (
+        583
+        50)
+      object btnOK: TButton
+        Left = 76
+        Top = 5
+        Width = 140
+        Height = 40
+        Anchors = []
+        Caption = 'OK'
+        TabOrder = 0
+        OnClick = btnOKClick
+        ExplicitLeft = 50
+      end
+      object btnZrusit: TButton
+        Left = 366
+        Top = 5
+        Width = 140
+        Height = 40
+        Anchors = []
+        Caption = 'Zru'#353'it'
+        TabOrder = 1
+        OnClick = btnZrusitClick
+        ExplicitLeft = 339
+      end
+    end
+    object grdPaletListy: TDBGrid
+      Left = 1
+      Top = 51
+      Width = 583
+      Height = 404
+      Align = alClient
+      DataSource = dm.dsPaletListy
+      TabOrder = 1
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -19
+      TitleFont.Name = 'Segoe UI'
+      TitleFont.Style = []
+      Columns = <
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'colPaletList'
+          Title.Alignment = taCenter
+          Title.Caption = #268#237'slo PL'
+          Width = 175
+          Visible = True
+        end
+        item
+          Alignment = taCenter
+          Expanded = False
+          FieldName = 'colDatPorizeni'
+          Title.Alignment = taCenter
+          Title.Caption = 'Datum po'#345#237'zen'#237
+          Width = 150
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'colPoznamka'
+          Title.Alignment = taCenter
+          Title.Caption = 'Pozn'#225'mka'
+          Width = 213
+          Visible = True
+        end>
+    end
+  end
+end