Changeset 196 for trunk/Forms/UFormNew.lfm

Timestamp:

May 16, 2018, 9:56:24 AM (6 years ago)

Author:

chronos

Message:

• Added: Allow to manage list of servers where to connect as client.

File:

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

trunk/Forms/UFormNew.lfm

@@ -21 +21 @@
     Top = 4
     Width = 1061
-    ActivePage = TabSheet2
+    ActivePage = TabSheetMode
     Align = alClient
     BorderSpacing.Around = 4
-    TabIndex = 2
+    TabIndex = 0
     TabOrder = 0
     object TabSheetMode: TTabSheet
       Caption = 'Mode'
-      ClientHeight = 297
-      ClientWidth = 759
+      ClientHeight = 523
+      ClientWidth = 1053
       object RadioButtonModeLocal: TRadioButton
         Left = 10
@@ -90 +90 @@
       object ListViewServers: TListView
         Left = 26
-        Height = 97
+        Height = 291
         Top = 181
-        Width = 326
+        Width = 334
         Anchors = [akTop, akLeft, akBottom]
         Columns = <        
@@ -103 +103 @@
             Width = 200
           end>
+        MultiSelect = True
+        OwnerData = True
+        PopupMenu = PopupMenuServers
+        ReadOnly = True
+        RowSelect = True
         TabOrder = 5
         ViewStyle = vsReport
+        OnData = ListViewServersData
+        OnDblClick = AServerModifyExecute
+        OnKeyPress = ListViewServersKeyPress
+        OnSelectItem = ListViewServersSelectItem
+      end
+      object Button1: TButton
+        Left = 27
+        Height = 31
+        Top = 484
+        Width = 94
+        Action = AServerAdd
+        Anchors = [akLeft, akBottom]
+        TabOrder = 6
+      end
+      object Button2: TButton
+        Left = 240
+        Height = 31
+        Top = 484
+        Width = 94
+        Action = AServerRemove
+        Anchors = [akLeft, akBottom]
+        TabOrder = 7
+      end
+      object Button3: TButton
+        Left = 136
+        Height = 30
+        Top = 484
+        Width = 94
+        Action = AServerModify
+        Anchors = [akLeft, akBottom]
+        TabOrder = 8
       end
     end
@@ -137 +173 @@
           end>
         OwnerData = True
-        PopupMenu = PopupMenu1
+        PopupMenu = PopupMenuPlayers
         ReadOnly = True
         RowSelect = True
@@ -557 +593 @@
   object ActionList1: TActionList
     Images = Core.ImageListSmall
-    left = 256
-    top = 440
+    left = 568
+    top = 296
     object APlayerModify: TAction
       Caption = 'Modify player'
@@ -571 +607 @@
       OnExecute = APlayerRemoveExecute
     end
+    object AServerAdd: TAction
+      Caption = 'Add'
+      OnExecute = AServerAddExecute
+    end
+    object AServerRemove: TAction
+      Caption = 'Remove'
+      OnExecute = AServerRemoveExecute
+    end
+    object AServerModify: TAction
+      Caption = 'Modify'
+      OnExecute = AServerModifyExecute
+    end
   end
   object OpenPictureDialog1: TOpenPictureDialog
-    left = 424
-    top = 440
-  end
-  object PopupMenu1: TPopupMenu
-    left = 128
-    top = 440
+    left = 568
+    top = 360
+  end
+  object PopupMenuPlayers: TPopupMenu
+    left = 568
+    top = 232
     object MenuItem1: TMenuItem
       Action = APlayerAdd
@@ -590 +638 @@
     end
   end
+  object PopupMenuServers: TPopupMenu
+    left = 121
+    top = 317
+    object MenuItem4: TMenuItem
+      Action = AServerAdd
+    end
+    object MenuItem6: TMenuItem
+      Action = AServerModify
+    end
+    object MenuItem5: TMenuItem
+      Action = AServerRemove
+    end
+  end
 end