Changeset 279 for trunk/Forms/UFormNew.lfm

Timestamp:

Feb 14, 2019, 10:52:04 PM (6 years ago)

Author:

chronos

Message:

• Modified: User interface for the list of players moved to the separate form.

File:

• trunk/Forms/UFormNew.lfm (modified) (6 diffs)

trunk/Forms/UFormNew.lfm

@@ -21 +21 @@
     Top = 60
     Width = 806
-    ActivePage = TabSheetRules
+    ActivePage = TabSheetPlayers
     Align = alClient
     BorderSpacing.Around = 4
-    TabIndex = 3
+    TabIndex = 1
     TabOrder = 0
     OnChange = PageControl1Change
@@ -163 +163 @@
       object Panel2: TPanel
         Left = 0
-        Height = 652
+        Height = 596
         Top = 0
         Width = 796
         Align = alClient
         BevelOuter = bvNone
-        ClientHeight = 652
-        ClientWidth = 796
         TabOrder = 0
-        object ListViewPlayers: TListView
-          Left = 4
-          Height = 602
-          Top = 4
-          Width = 788
-          Align = alTop
-          Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Around = 4
-          Columns = <          
-            item
-              Caption = 'Name'
-              Width = 200
-            end          
-            item
-              Caption = 'Type'
-              Width = 100
-            end          
-            item
-              Caption = 'Color'
-              Width = 100
-            end          
-            item
-              Caption = 'Start units'
-              Width = 790
-            end>
-          MultiSelect = True
-          OwnerData = True
-          PopupMenu = PopupMenuPlayers
-          ReadOnly = True
-          RowSelect = True
-          TabOrder = 0
-          ViewStyle = vsReport
-          OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem
-          OnData = ListViewPlayersData
-          OnDblClick = ListViewPlayersDblClick
-          OnKeyPress = ListViewPlayersKeyPress
-          OnKeyUp = ListViewPlayersKeyUp
-          OnSelectItem = ListViewPlayersSelectItem
-        end
-        object ButtonPlayerAdd: TButton
-          Left = 16
-          Height = 25
-          Top = 614
-          Width = 83
-          Action = APlayerAdd
-          Anchors = [akLeft, akBottom]
-          TabOrder = 1
-        end
-        object ButtonPlayerModify: TButton
-          Left = 120
-          Height = 25
-          Top = 614
-          Width = 83
-          Action = APlayerModify
-          Anchors = [akLeft, akBottom]
-          TabOrder = 2
-        end
-        object ButtonPlayerRemove: TButton
-          Left = 224
-          Height = 25
-          Top = 614
-          Width = 83
-          Action = APlayerRemove
-          Anchors = [akLeft, akBottom]
-          TabOrder = 3
-        end
       end
     end
@@ -587 +519 @@
         object ComboBoxWinObjective: TComboBox
           Left = 224
-          Height = 38
+          Height = 42
           Top = 244
           Width = 328
@@ -765 +697 @@
     object ComboBoxGameSystem: TComboBox
       Left = 176
-      Height = 43
+      Height = 42
       Top = 9
       Width = 254
@@ -786 +718 @@
     left = 864
     top = 216
-    object APlayerModify: TAction
-      Caption = 'Modify'
-      OnExecute = APlayerModifyExecute
-    end
-    object APlayerAdd: TAction
-      Caption = 'Add'
-      OnExecute = APlayerAddExecute
-    end
-    object APlayerRemove: TAction
-      Caption = 'Remove'
-      OnExecute = APlayerRemoveExecute
-    end
     object AServerAdd: TAction
       Caption = 'Add'
@@ -814 +734 @@
     left = 864
     top = 360
-  end
-  object PopupMenuPlayers: TPopupMenu
-    left = 864
-    top = 288
-    object MenuItem1: TMenuItem
-      Action = APlayerAdd
-    end
-    object MenuItem2: TMenuItem
-      Action = APlayerModify
-      Default = True
-    end
-    object MenuItem3: TMenuItem
-      Action = APlayerRemove
-    end
   end
   object PopupMenuServers: TPopupMenu