- 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/Tools/UfrmFilter.lfm

@@ -11,6 +11,7 @@ object frmFilter: TfrmFilter
   ClientWidth = 236
   Font.Height = -11
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnShow = FormShow
   LCLVersion = '0.9.25'
   object rgFilterType: TRadioGroup
@@ -56,7 +57,7 @@ object frmFilter: TfrmFilter
     object Label1: TLabel
       Left = 4
       Height = 28
-      Top = 29
+      Top = 28
       Width = 216
       Align = alTop
       BorderSpacing.Around = 4
@@ -69,15 +70,14 @@ object frmFilter: TfrmFilter
       Tag = 1
       Cursor = 63
       Left = 4
-      Height = 151
-      Top = 61
+      Height = 152
+      Top = 60
       Width = 216
       Align = alClient
       BorderSpacing.Around = 4
       BorderStyle = bsSingle
       DefaultNodeHeight = 44
       DragType = dtVCL
-      Header.Font.Height = -11
       Header.Options = [hoColumnResize, hoDrag, hoVisible]
       Header.ParentFont = True
       Header.Style = hsFlatButtons
@@ -214,7 +214,7 @@ object frmFilter: TfrmFilter
     end
     object cbTileFilter: TCheckBox
       Left = 4
-      Height = 21
+      Height = 20
       Top = 4
       Width = 216
       Align = alTop
@@ -240,7 +240,7 @@ object frmFilter: TfrmFilter
     TabOrder = 2
     object cbHueFilter: TCheckBox
       Left = 4
-      Height = 21
+      Height = 20
       Top = 4
       Width = 216
       Align = alTop
@@ -252,14 +252,13 @@ object frmFilter: TfrmFilter
     object vdtHues: TVirtualDrawTree
       Cursor = 63
       Left = 4
-      Height = 118
-      Top = 29
+      Height = 119
+      Top = 28
       Width = 216
       Align = alClient
       BorderSpacing.Around = 4
       BorderStyle = bsSingle
       Header.AutoSizeIndex = 2
-      Header.Font.Height = -11
       Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
       Header.ParentFont = True
       Header.Style = hsFlatButtons

Client/Tools/UfrmFilter.pas

@@ -61,6 +61,7 @@ type
     procedure btnClearClick(Sender: TObject);
     procedure btnDeleteClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure mnuUncheckHuesClick(Sender: TObject);
     procedure mnuCheckHuesClick(Sender: TObject);
@@ -308,6 +309,11 @@ begin
   //FCheckedHues.Bits[0] := True;
 end;
 
+procedure TfrmFilter.FormDestroy(Sender: TObject);
+begin
+  if FCheckedHues <> nil then FreeAndNil(FCheckedHues);
+end;
+
 procedure TfrmFilter.btnDeleteClick(Sender: TObject);
 begin
   vdtFilter.DeleteSelectedNodes;