- Changed TfrmFilter to enable tile and hue filter on tile/hue list changes

- Changed TfrmFilter placement to be off by -4 in x and y direction
- Disabled "scroll to center" in TfrmMain's TileList
- Disabled unncessary drag operations in TfrmMain's TileList

Client/Tools/UfrmBoundaries.lfm

@@ -3,7 +3,7 @@ object frmBoundaries: TfrmBoundaries
   Height = 154
   Top = 171
   Width = 212
-  ActiveControl = tbMinZ
+  ActiveControl = Panel1
   BorderIcons = []
   BorderStyle = bsToolWindow
   Caption = 'Boundaries'
@@ -12,10 +12,10 @@ object frmBoundaries: TfrmBoundaries
   Font.Height = -11
   OnClose = FormClose
   OnDeactivate = FormDeactivate
-  LCLVersion = '0.9.25'
+  LCLVersion = '0.9.27'
   object tbMinZ: TTrackBar
     Left = 8
-    Height = 34
+    Height = 36
     Top = 39
     Width = 196
     Frequency = 10
@@ -24,15 +24,14 @@ object frmBoundaries: TfrmBoundaries
     OnChange = tbMinZChange
     PageSize = 1
     Position = -128
-    ScalePos = trTop
     Align = alTop
     BorderSpacing.Around = 8
     TabOrder = 0
   end
   object tbMaxZ: TTrackBar
     Left = 8
-    Height = 34
+    Height = 36
-    Top = 112
+    Top = 114
     Width = 196
     Frequency = 10
     Max = 127
@@ -40,7 +39,6 @@ object frmBoundaries: TfrmBoundaries
     OnChange = tbMaxZChange
     PageSize = 1
     Position = 127
-    ScalePos = trTop
     Align = alTop
     BorderSpacing.Around = 8
     TabOrder = 1
@@ -55,26 +53,26 @@ object frmBoundaries: TfrmBoundaries
     BevelOuter = bvNone
     ClientHeight = 23
     ClientWidth = 196
-    ParentFont = True
     TabOrder = 2
     object lblMinZ: TLabel
+      Left = 0
       Height = 23
+      Top = 0
       Width = 148
       Align = alClient
       Caption = 'Minimum Z:'
       Layout = tlCenter
       ParentColor = False
-      ParentFont = True
     end
     object seMinZ: TSpinEdit
       Left = 148
       Height = 23
+      Top = 0
       Width = 48
       Align = alRight
       MaxValue = 127
       MinValue = -128
       OnChange = seMinZChange
-      ParentFont = True
       TabOrder = 0
       Value = -128
     end
@@ -82,33 +80,33 @@ object frmBoundaries: TfrmBoundaries
   object Panel2: TPanel
     Left = 8
     Height = 23
-    Top = 81
+    Top = 83
     Width = 196
     Align = alTop
     BorderSpacing.Around = 8
     BevelOuter = bvNone
     ClientHeight = 23
     ClientWidth = 196
-    ParentFont = True
     TabOrder = 3
     object lblMaxZ: TLabel
+      Left = 0
       Height = 23
+      Top = 0
       Width = 148
       Align = alClient
       Caption = 'Maximum Z:'
       Layout = tlCenter
       ParentColor = False
-      ParentFont = True
     end
     object seMaxZ: TSpinEdit
       Left = 148
       Height = 23
+      Top = 0
       Width = 48
       Align = alRight
       MaxValue = 127
       MinValue = -128
       OnChange = seMaxZChange
-      ParentFont = True
       TabOrder = 0
       Value = 127
     end

Client/Tools/UfrmBoundaries.pas

@@ -21,7 +21,7 @@
  * CDDL HEADER END
  *
  *
- *      Portions Copyright 2007 Andreas Schneider
+ *      Portions Copyright 2009 Andreas Schneider
  *)
 unit UfrmBoundaries;
 
@@ -63,6 +63,9 @@ var
 
 implementation
 
+uses
+  UfrmMain;
+
 { TfrmBoundaries }
 
 procedure TfrmBoundaries.FormClose(Sender: TObject;

Client/Tools/UfrmFilter.lfm

@@ -2,13 +2,13 @@ object frmFilter: TfrmFilter
   Left = 290
   Height = 492
   Top = 171
-  Width = 236
+  Width = 232
   ActiveControl = rgFilterType.RadioButton0
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsToolWindow
   Caption = 'Filter'
   ClientHeight = 492
-  ClientWidth = 236
+  ClientWidth = 232
   Font.Height = -11
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -18,7 +18,7 @@ object frmFilter: TfrmFilter
     Left = 4
     Height = 40
     Top = 4
-    Width = 228
+    Width = 224
     Align = alTop
     AutoFill = True
     BorderSpacing.Around = 4
@@ -32,7 +32,7 @@ object frmFilter: TfrmFilter
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
     ClientHeight = 26
-    ClientWidth = 226
+    ClientWidth = 222
     Columns = 2
     ItemIndex = 0
     Items.Strings = (
@@ -45,128 +45,42 @@ object frmFilter: TfrmFilter
     Left = 4
     Height = 259
     Top = 48
-    Width = 228
+    Width = 224
     Align = alClient
     BorderSpacing.Around = 4
     Caption = 'Tile filter'
     ClientHeight = 245
-    ClientWidth = 226
+    ClientWidth = 222
     TabOrder = 1
     object Label1: TLabel
+      AnchorSideLeft.Control = GroupBox1
+      AnchorSideTop.Control = cbTileFilter
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBox1
+      AnchorSideRight.Side = asrBottom
       Left = 4
       Height = 30
       Top = 30
-      Width = 218
+      Width = 214
-      Align = alTop
+      Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 4
       Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.'
       ParentColor = False
       WordWrap = True
     end
-    object vdtFilter: TVirtualDrawTree
-      Tag = 1
-      Cursor = 63
-      Left = 4
-      Height = 151
-      Top = 64
-      Width = 218
-      Align = alClient
-      BorderSpacing.Around = 4
-      BorderStyle = bsSingle
-      DefaultNodeHeight = 44
-      DragType = dtVCL
-      Header.AutoSizeIndex = 0
-      Header.Columns = <      
-        item
-          Position = 0
-          Text = 'ID'
-        end      
-        item
-          Position = 1
-          Text = 'Tile'
-          Width = 44
-        end      
-        item
-          Position = 2
-          Text = 'Name'
-          Width = 100
-        end>
-      Header.DefaultHeight = 17
-      Header.Options = [hoColumnResize, hoDrag, hoVisible]
-      Header.ParentFont = True
-      Header.Style = hsFlatButtons
-      TabOrder = 0
-      TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
-      TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
-      OnDragOver = vdtFilterDragOver
-      OnDragDrop = vdtFilterDragDrop
-      OnDrawNode = vdtFilterDrawNode
-    end
-    object pnlControls: TPanel
-      Left = 4
-      Height = 22
-      Top = 219
-      Width = 218
-      Align = alBottom
-      BorderSpacing.Around = 4
-      BevelOuter = bvNone
-      ClientHeight = 22
-      ClientWidth = 218
-      TabOrder = 1
-      object btnDelete: TSpeedButton
-        Left = 84
-        Height = 22
-        Hint = 'Delete'
-        Top = 0
-        Width = 23
-        Color = clBtnFace
-        Glyph.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          20000000000000040000640000006400000000000000000000004F91AB005588
-          9C0043718A004E6974003E4B4C00457796003E6A950037556C005C7E8800548B
-          A00031464100FFFFFF002B3238002D3B430074B9C8007FC4D5004788A7004A92
-          B500435E6F002E3040002E3538003D5E7B003853BEFF3551BDFF304BBCFF2E4E
-          B8FF303B3600FFFFFF00313637002C2D2B00588997007BC3D400365F8400396E
-          9A003B6282003A5564004255C6FF3C52CCFF757AE8FF8F92EEFF8F92EEFF7178
-          E4FF334DC1FF2B4AB7FFFFFFFF0036423900486B710061B4CE00396F9600375C
-          83004085B1004959CBFF5C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84
-          EEFF9EA0F4FF515DD7FF2B4AB7FFFFFFFF00354C4C004D94AF00375D7F003348
-          5C005361CFFF616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56
-          E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8FFFFFFFF004A90A6003B5864003D5B
-          6A004B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59
-          E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF57929C00498BA40047676D005C62
-          D7FF818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59
-          E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBAFF54839500FFFFFF005F63
-          DAFFA1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-          FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCFF6FA2AF00000000006469
-          DBFFAFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-          FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEFF58B2E00000000000676A
-          DEFFA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F
-          ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0FF000000000800000000E8
-          1D007D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84
-          F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF000000000000000001000100DB12
-          C0006A69E0FFA3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92
-          F9FF768CF8FFA8B6F8FF636EE3FF4557C7FF00000000000000002401AD00BA02
-          AE002301AE006A69E0FFAAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9
-          FBFFBAC7FCFF707BE9FF4C5BCCFFBB02F00000010000D8000000000000000000
-          000008000000010008006A6ADFFF8E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4
-          F4FF6670E2FF535ED1FF5031DE005031DE002501AC00B902AD000D040400F804
-          0500F20005000A0106000C040500F8040600686ADDFF6364DCFF6164DAFF5D63
-          D9FFF2000700F804610000000000710900005031DE005031DE004034DE004034
-          DE0068B0E00068B0E0000E049300F8049500F2009500070102000F049500F804
-          0200F2000200080104000E040200F8040400F200040009010500
-        }
-        NumGlyphs = 0
-        OnClick = btnDeleteClick
-        ShowHint = True
-        ParentShowHint = False
-      end
     object btnClear: TSpeedButton
-        Left = 108
+      AnchorSideLeft.Control = btnDelete
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideRight.Control = GroupBox1
+      AnchorSideRight.Side = asrCenter
+      AnchorSideBottom.Control = btnDelete
+      AnchorSideBottom.Side = asrBottom
+      Left = 30
       Height = 22
       Hint = 'Clear'
-        Top = 0
+      Top = 219
-        Width = 23
+      Width = 22
+      Anchors = [akLeft, akBottom]
       Color = clBtnFace
       Glyph.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
@@ -209,36 +123,132 @@ object frmFilter: TfrmFilter
       ShowHint = True
       ParentShowHint = False
     end
+    object btnDelete: TSpeedButton
+      AnchorSideLeft.Control = GroupBox1
+      AnchorSideBottom.Control = GroupBox1
+      AnchorSideBottom.Side = asrBottom
+      Left = 4
+      Height = 22
+      Hint = 'Delete'
+      Top = 219
+      Width = 22
+      Anchors = [akLeft, akBottom]
+      BorderSpacing.Around = 4
+      Color = clBtnFace
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        20000000000000040000640000006400000000000000000000004F91AB005588
+        9C0043718A004E6974003E4B4C00457796003E6A950037556C005C7E8800548B
+        A00031464100FFFFFF002B3238002D3B430074B9C8007FC4D5004788A7004A92
+        B500435E6F002E3040002E3538003D5E7B003853BEFF3551BDFF304BBCFF2E4E
+        B8FF303B3600FFFFFF00313637002C2D2B00588997007BC3D400365F8400396E
+        9A003B6282003A5564004255C6FF3C52CCFF757AE8FF8F92EEFF8F92EEFF7178
+        E4FF334DC1FF2B4AB7FFFFFFFF0036423900486B710061B4CE00396F9600375C
+        83004085B1004959CBFF5C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84
+        EEFF9EA0F4FF515DD7FF2B4AB7FFFFFFFF00354C4C004D94AF00375D7F003348
+        5C005361CFFF616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56
+        E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8FFFFFFFF004A90A6003B5864003D5B
+        6A004B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59
+        E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF57929C00498BA40047676D005C62
+        D7FF818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59
+        E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBAFF54839500FFFFFF005F63
+        DAFFA1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCFF6FA2AF00000000006469
+        DBFFAFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEFF58B2E00000000000676A
+        DEFFA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F
+        ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0FF000000000800000000E8
+        1D007D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84
+        F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF000000000000000001000100DB12
+        C0006A69E0FFA3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92
+        F9FF768CF8FFA8B6F8FF636EE3FF4557C7FF00000000000000002401AD00BA02
+        AE002301AE006A69E0FFAAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9
+        FBFFBAC7FCFF707BE9FF4C5BCCFFBB02F00000010000D8000000000000000000
+        000008000000010008006A6ADFFF8E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4
+        F4FF6670E2FF535ED1FF5031DE005031DE002501AC00B902AD000D040400F804
+        0500F20005000A0106000C040500F8040600686ADDFF6364DCFF6164DAFF5D63
+        D9FFF2000700F804610000000000710900005031DE005031DE004034DE004034
+        DE0068B0E00068B0E0000E049300F8049500F2009500070102000F049500F804
+        0200F2000200080104000E040200F8040400F200040009010500
+      }
+      NumGlyphs = 0
+      OnClick = btnDeleteClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object vdtFilter: TVirtualDrawTree
+      Tag = 1
+      AnchorSideLeft.Control = GroupBox1
+      AnchorSideTop.Control = Label1
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBox1
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = btnDelete
+      Cursor = 63
+      Left = 4
+      Height = 151
+      Top = 64
+      Width = 214
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      BorderSpacing.Around = 4
+      BorderStyle = bsSingle
+      DefaultNodeHeight = 44
+      DragType = dtVCL
+      Header.AutoSizeIndex = 0
+      Header.Columns = <      
+        item
+          Position = 0
+          Text = 'ID'
+        end      
+        item
+          Position = 1
+          Text = 'Tile'
+          Width = 44
+        end      
+        item
+          Position = 2
+          Text = 'Name'
+          Width = 100
+        end>
+      Header.DefaultHeight = 17
+      Header.Options = [hoColumnResize, hoDrag, hoVisible]
+      Header.ParentFont = True
+      Header.Style = hsFlatButtons
+      TabOrder = 0
+      TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+      TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
+      OnDragOver = vdtFilterDragOver
+      OnDragDrop = vdtFilterDragDrop
+      OnDrawNode = vdtFilterDrawNode
     end
     object cbTileFilter: TCheckBox
+      AnchorSideLeft.Control = GroupBox1
+      AnchorSideTop.Control = GroupBox1
       Left = 4
       Height = 22
       Top = 4
-      Width = 218
+      Width = 85
-      Align = alTop
       BorderSpacing.Around = 4
       Caption = 'Filter active'
-      Checked = True
+      TabOrder = 1
-      State = cbChecked
-      TabOrder = 2
     end
   end
   object GroupBox2: TGroupBox
     Left = 4
     Height = 168
     Top = 320
-    Width = 228
+    Width = 224
     Align = alBottom
     BorderSpacing.Around = 4
     Caption = 'Hue filter'
     ClientHeight = 154
-    ClientWidth = 226
+    ClientWidth = 222
     TabOrder = 2
     object cbHueFilter: TCheckBox
       Left = 4
       Height = 22
       Top = 4
-      Width = 218
+      Width = 214
       Align = alTop
       BorderSpacing.Around = 4
       Caption = 'Filter active'
@@ -249,7 +259,7 @@ object frmFilter: TfrmFilter
       Left = 4
       Height = 120
       Top = 30
-      Width = 218
+      Width = 214
       Align = alClient
       BorderSpacing.Around = 4
       BorderStyle = bsSingle
@@ -267,7 +277,7 @@ object frmFilter: TfrmFilter
         item
           Position = 2
           Text = 'Name'
-          Width = 158
+          Width = 154
         end>
       Header.DefaultHeight = 17
       Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
@@ -287,7 +297,7 @@ object frmFilter: TfrmFilter
     Left = 0
     Height = 5
     Top = 311
-    Width = 236
+    Width = 232
     Align = alBottom
     ResizeAnchor = akBottom
   end

Client/Tools/UfrmFilter.pas

@@ -21,7 +21,7 @@
  * CDDL HEADER END
  *
  *
- *      Portions Copyright 2007 Andreas Schneider
+ *      Portions Copyright 2009 Andreas Schneider
  *)
 unit UfrmFilter;
 
@@ -51,7 +51,6 @@ type
     Label1: TLabel;
     mnuUncheckHues: TMenuItem;
     mnuCheckHues: TMenuItem;
-    pnlControls: TPanel;
     pnlRandomPreset: TPanel;
     pmHues: TPopupMenu;
     rgFilterType: TRadioGroup;
@@ -114,8 +113,8 @@ begin
   upperLeft := frmMain.pcLeft.ClientToScreen(Point(frmMain.pcLeft.Width, 0));
   lowerLeft := frmMain.pcLeft.ClientToScreen(Point(frmMain.pcLeft.Width,
     frmMain.pcLeft.Height));
-  Left := upperLeft.x;
+  Left := upperLeft.x - 4;
-  Top := upperLeft.y;
+  Top := upperLeft.y - 4;
   Height := lowerLeft.y - upperLeft.y;
 
   SetWindowParent(Handle, frmMain.Handle);
@@ -160,6 +159,7 @@ begin
         node := Sender.AddChild(nil);
         targetTileInfo := Sender.GetNodeData(node);
         targetTileInfo^.ID := sourceTileInfo^.ID;
+        cbTileFilter.Checked := True;
       end;
       selected := sourceTree.GetNextSelected(selected);
     end;
@@ -190,6 +190,7 @@ var
 begin
   hueInfo := Sender.GetNodeData(Node);
   FCheckedHues.Bits[hueInfo^.ID] := (Sender.CheckState[node] = csCheckedNormal);
+  cbHueFilter.Checked := True;
 end;
 
 procedure TfrmFilter.vdtHuesDrawNode(Sender: TBaseVirtualTree;

Client/UfrmMain.lfm

@@ -148,6 +148,7 @@ object frmMain: TfrmMain
         BorderSpacing.Right = 4
         DefaultNodeHeight = 44
         DragMode = dmAutomatic
+        DragOperations = []
         DragType = dtVCL
         Header.AutoSizeIndex = 2
         Header.Columns = <        
@@ -175,7 +176,7 @@ object frmMain: TfrmMain
         TreeOptions.AutoOptions = [toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
         TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
         TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toStaticBackground]
-        TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toCenterScrollIntoView]
+        TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
         OnClick = vdtTilesClick
         OnDrawNode = vdtTilesDrawNode
         OnEnter = vdtTilesEnter