- Fixed memory leak in TfrmFilter (not freeing FCheckedHues)

- Fixed memory leak in TfrmMain (not freeing the strings in the location info nodes)
- Rearranged frmEditAccount to allow region handling
- Added region handling to the client side account specific network packets
- Fixed some more code style inconsistencies in UfrmRegionControl.pas
- Fixed redrawing in TfrmRegionControl
- Fixed memory leak in TAccount (not freeing FRegions)
- Fixed the TModifyRegionResponsePacket ID
- Fixed the content of the TUserListPacket to not contain the list of all regions

Client/UfrmEditAccount.lfm

@@ -1,115 +1,180 @@
 object frmEditAccount: TfrmEditAccount
   Left = 290
-  Height = 186
+  Height = 214
   Top = 171
-  Width = 266
-  ActiveControl = edUsername
+  Width = 261
+  ActiveControl = PageControl1
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
   Caption = 'Edit Account'
-  ClientHeight = 186
-  ClientWidth = 266
+  ClientHeight = 214
+  ClientWidth = 261
   Font.Height = -11
   Position = poOwnerFormCenter
   LCLVersion = '0.9.25'
-  object lblPasswordHint: TLabel
-    Left = 96
-    Height = 28
-    Top = 72
-    Width = 160
-    AutoSize = False
-    Caption = 'Leave empty to leave the password unchanged.'
-    Enabled = False
-    ParentColor = False
-    ParentFont = True
-    WordWrap = True
-  end
-  object lblUsername: TLabel
-    Left = 16
-    Height = 14
-    Top = 20
-    Width = 58
-    Caption = 'Username:'
-    ParentColor = False
-    ParentFont = True
-  end
-  object lblPassword: TLabel
-    Left = 16
-    Height = 14
-    Top = 52
-    Width = 54
-    Caption = 'Password:'
-    ParentColor = False
-    ParentFont = True
-  end
-  object lblAccessLevel: TLabel
-    Left = 16
-    Height = 14
-    Top = 116
-    Width = 63
-    Caption = 'Accesslevel:'
-    ParentColor = False
-    ParentFont = True
-  end
-  object btnOK: TButton
-    Left = 93
-    Height = 25
-    Top = 152
-    Width = 75
-    BorderSpacing.InnerBorder = 4
-    Caption = 'OK'
-    Default = True
-    ModalResult = 1
+  object PageControl1: TPageControl
+    Height = 173
+    Width = 261
+    ActivePage = tsGeneral
+    Align = alClient
     ParentFont = True
+    TabIndex = 0
     TabOrder = 0
+    object tsGeneral: TTabSheet
+      Caption = 'General'
+      ClientHeight = 142
+      ClientWidth = 257
+      ParentFont = True
+      object lblPasswordHint: TLabel
+        Left = 86
+        Height = 28
+        Top = 64
+        Width = 160
+        AutoSize = False
+        Caption = 'Leave empty to leave the password unchanged.'
+        Enabled = False
+        ParentColor = False
+        ParentFont = True
+        WordWrap = True
+      end
+      object lblUsername: TLabel
+        Left = 6
+        Height = 13
+        Top = 12
+        Width = 64
+        Caption = 'Username:'
+        ParentColor = False
+        ParentFont = True
+      end
+      object lblPassword: TLabel
+        Left = 6
+        Height = 13
+        Top = 44
+        Width = 61
+        Caption = 'Password:'
+        ParentColor = False
+        ParentFont = True
+      end
+      object lblAccessLevel: TLabel
+        Left = 6
+        Height = 13
+        Top = 108
+        Width = 71
+        Caption = 'Accesslevel:'
+        ParentColor = False
+        ParentFont = True
+      end
+      object edUsername: TEdit
+        Left = 86
+        Height = 23
+        Top = 8
+        Width = 160
+        Color = clBtnFace
+        ParentFont = True
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object edPassword: TEdit
+        Left = 86
+        Height = 23
+        Top = 40
+        Width = 160
+        EchoMode = emPassword
+        ParentFont = True
+        PasswordChar = '*'
+        TabOrder = 1
+      end
+      object cbAccessLevel: TComboBox
+        Left = 86
+        Height = 23
+        Top = 104
+        Width = 160
+        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+        Items.Strings = (
+          'None'
+          'Viewer'
+          'Normal'
+          'Administrator'
+        )
+        MaxLength = 0
+        ParentFont = True
+        Style = csDropDownList
+        TabOrder = 2
+      end
+    end
+    object tsRegions: TTabSheet
+      Caption = 'Regions'
+      ClientHeight = 142
+      ClientWidth = 257
+      ParentFont = True
+      object Label1: TLabel
+        Left = 8
+        Height = 13
+        Top = 8
+        Width = 241
+        Align = alTop
+        BorderSpacing.Left = 8
+        BorderSpacing.Top = 8
+        BorderSpacing.Right = 8
+        BorderSpacing.Bottom = 4
+        Caption = 'Allowed Regions:'
+        ParentColor = False
+        ParentFont = True
+      end
+      object CheckListBox1: TCheckListBox
+        Left = 8
+        Height = 109
+        Top = 25
+        Width = 241
+        Align = alClient
+        BorderSpacing.Left = 8
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 8
+        BorderSpacing.Bottom = 8
+        ItemHeight = 10
+        ParentFont = True
+        TabOrder = 0
+        TopIndex = -1
+      end
+    end
   end
-  object btnCancel: TButton
-    Left = 181
+  object Panel1: TPanel
+    Left = 8
     Height = 25
-    Top = 152
-    Width = 75
-    BorderSpacing.InnerBorder = 4
-    Cancel = True
-    Caption = 'Cancel'
-    ModalResult = 2
+    Top = 181
+    Width = 245
+    Align = alBottom
+    BorderSpacing.Around = 8
+    BevelOuter = bvNone
+    ClientHeight = 25
+    ClientWidth = 245
     ParentFont = True
     TabOrder = 1
-  end
-  object edUsername: TEdit
-    Left = 96
-    Height = 23
-    Top = 16
-    Width = 160
-    Color = clBtnFace
-    ParentFont = True
-    ReadOnly = True
-    TabOrder = 2
-  end
-  object edPassword: TEdit
-    Left = 96
-    Height = 23
-    Top = 48
-    Width = 160
-    EchoMode = emPassword
-    ParentFont = True
-    PasswordChar = '*'
-    TabOrder = 3
-  end
-  object cbAccessLevel: TComboBox
-    Left = 96
-    Height = 29
-    Top = 112
-    Width = 160
-    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
-    Items.Strings = (
-      'None'
-      'Viewer'
-      'Normal'
-      'Administrator'
-    )
-    MaxLength = 0
-    ParentFont = True
-    Style = csDropDownList
-    TabOrder = 4
+    object btnCancel: TButton
+      Left = 170
+      Height = 25
+      Width = 75
+      Align = alRight
+      BorderSpacing.Left = 4
+      BorderSpacing.InnerBorder = 4
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      ParentFont = True
+      TabOrder = 0
+    end
+    object btnOK: TButton
+      Left = 91
+      Height = 25
+      Width = 75
+      Align = alRight
+      BorderSpacing.Right = 4
+      BorderSpacing.InnerBorder = 4
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      ParentFont = True
+      TabOrder = 1
+    end
   end
 end