- Added filter management to TfrmMain

- Changed screen buffer state handling to enums

Client/Tools/UfrmBoundaries.pas

@@ -92,11 +92,13 @@ end;
 procedure TfrmBoundaries.tbMaxZChange(Sender: TObject);
 begin
   seMaxZ.Value := tbMaxZ.Position;
+  frmMain.InvalidateFilter;
 end;
 
 procedure TfrmBoundaries.tbMinZChange(Sender: TObject);
 begin
   seMinZ.Value := tbMinZ.Position;
+  frmMain.InvalidateFilter;
 end;
 
 procedure TfrmBoundaries.MouseLeave(var msg: TLMessage);

Client/Tools/UfrmFilter.lfm

@@ -39,6 +39,7 @@ object frmFilter: TfrmFilter
       'Exclusive'
       'Inclusive'
     )
+    OnClick = rgFilterTypeClick
     TabOrder = 0
   end
   object GroupBox1: TGroupBox
@@ -230,6 +231,7 @@ object frmFilter: TfrmFilter
       Width = 85
       BorderSpacing.Around = 4
       Caption = 'Filter active'
+      OnChange = cbTileFilterChange
       TabOrder = 1
     end
   end
@@ -252,6 +254,7 @@ object frmFilter: TfrmFilter
       Align = alTop
       BorderSpacing.Around = 4
       Caption = 'Filter active'
+      OnChange = cbHueFilterChange
       TabOrder = 0
     end
     object vdtHues: TVirtualDrawTree

Client/Tools/UfrmFilter.pas

@@ -59,11 +59,14 @@ type
     vdtHues: TVirtualDrawTree;
     procedure btnClearClick(Sender: TObject);
     procedure btnDeleteClick(Sender: TObject);
+    procedure cbHueFilterChange(Sender: TObject);
+    procedure cbTileFilterChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure mnuUncheckHuesClick(Sender: TObject);
     procedure mnuCheckHuesClick(Sender: TObject);
+    procedure rgFilterTypeClick(Sender: TObject);
     procedure vdtFilterDragDrop(Sender: TBaseVirtualTree; Source: TObject;
       DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState;
       Pt: TPoint; var Effect: Integer; Mode: TDropMode);
@@ -137,6 +140,11 @@ begin
   end;
 end;
 
+procedure TfrmFilter.rgFilterTypeClick(Sender: TObject);
+begin
+  frmMain.InvalidateFilter;
+end;
+
 procedure TfrmFilter.vdtFilterDragDrop(Sender: TBaseVirtualTree;
   Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
   Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
@@ -160,6 +168,7 @@ begin
         targetTileInfo := Sender.GetNodeData(node);
         targetTileInfo^.ID := sourceTileInfo^.ID;
         cbTileFilter.Checked := True;
+        frmMain.InvalidateFilter;
       end;
       selected := sourceTree.GetNextSelected(selected);
     end;
@@ -191,6 +200,7 @@ begin
   hueInfo := Sender.GetNodeData(Node);
   FCheckedHues.Bits[hueInfo^.ID] := (Sender.CheckState[node] = csCheckedNormal);
   cbHueFilter.Checked := True;
+  frmMain.InvalidateFilter;
 end;
 
 procedure TfrmFilter.vdtHuesDrawNode(Sender: TBaseVirtualTree;
@@ -321,6 +331,16 @@ begin
   vdtFilter.DeleteSelectedNodes;
 end;
 
+procedure TfrmFilter.cbHueFilterChange(Sender: TObject);
+begin
+  frmMain.InvalidateFilter;
+end;
+
+procedure TfrmFilter.cbTileFilterChange(Sender: TObject);
+begin
+  frmMain.InvalidateFilter;
+end;
+
 procedure TfrmFilter.btnClearClick(Sender: TObject);
 begin
   vdtFilter.Clear;