Fixed issue #805: implify code for changing the checkstate

Author: joachimmarder

Demos/Advanced/States.dfm

@@ -77,7 +77,7 @@ object StateForm: TStateForm
     TabOrder = 2
     object CheckBox8: TCheckBox
       Left = 10
-      Top = 118
+      Top = 101
       Width = 190
       Height = 17
       Caption = 'Draw selection pending'
@@ -86,7 +86,7 @@ object StateForm: TStateForm
     end
     object CheckBox9: TCheckBox
       Left = 10
-      Top = 135
+      Top = 118
       Width = 190
       Height = 17
       Caption = 'Draw selecting'
@@ -102,50 +102,41 @@ object StateForm: TStateForm
       Enabled = False
       TabOrder = 2
     end
-    object CheckBox20: TCheckBox
-      Left = 10
-      Top = 33
-      Width = 190
-      Height = 17
-      Caption = 'Mouse check pending'
-      Enabled = False
-      TabOrder = 3
-    end
     object CheckBox21: TCheckBox
       Left = 10
-      Top = 50
+      Top = 33
       Width = 190
       Height = 17
       Caption = 'Middle mouse button down'
       Enabled = False
-      TabOrder = 4
+      TabOrder = 3
     end
     object CheckBox27: TCheckBox
       Left = 10
-      Top = 67
+      Top = 50
       Width = 190
       Height = 17
       Caption = 'Right mouse button down'
       Enabled = False
-      TabOrder = 5
+      TabOrder = 4
     end
     object CheckBox43: TCheckBox
       Left = 10
-      Top = 84
+      Top = 67
       Width = 190
       Height = 17
       Caption = 'Mouse wheel panning'
       Enabled = False
-      TabOrder = 6
+      TabOrder = 5
     end
     object CheckBox44: TCheckBox
       Left = 10
-      Top = 101
+      Top = 84
       Width = 190
       Height = 17
       Caption = 'Mouse wheel scrolling'
       Enabled = False
-      TabOrder = 7
+      TabOrder = 6
     end
   end
   object GroupBox3: TGroupBox
@@ -175,7 +166,7 @@ object StateForm: TStateForm
     end
     object CheckBox15: TCheckBox
       Left = 10
-      Top = 84
+      Top = 16
       Width = 174
       Height = 17
       Caption = 'Incremental search in progress'
@@ -191,15 +182,6 @@ object StateForm: TStateForm
       Enabled = False
       TabOrder = 3
     end
-    object CheckBox18: TCheckBox
-      Left = 10
-      Top = 16
-      Width = 174
-      Height = 17
-      Caption = 'Key check pending'
-      Enabled = False
-      TabOrder = 4
-    end
   end
   object GroupBox4: TGroupBox
     Left = 223
@@ -438,24 +420,14 @@ object StateForm: TStateForm
     Height = 143
     Caption = ' Window related actions: '
     TabOrder = 8
-    object CheckBox22: TCheckBox
-      Left = 10
-      Top = 118
-      Width = 190
-      Height = 17
-      Caption = 'Default node height scale'
-      Enabled = False
-      TabOrder = 0
-      Visible = False
-    end
     object CheckBox26: TCheckBox
       Left = 10
       Top = 67
       Width = 190
       Height = 17
       Caption = 'Tree painting'
       Enabled = False
-      TabOrder = 1
+      TabOrder = 0
     end
     object CheckBox30: TCheckBox
       Left = 10
@@ -464,7 +436,7 @@ object StateForm: TStateForm
       Height = 17
       Caption = 'Window resizing'
       Enabled = False
-      TabOrder = 2
+      TabOrder = 1
     end
     object CheckBox34: TCheckBox
       Left = 10
@@ -473,7 +445,7 @@ object StateForm: TStateForm
       Height = 17
       Caption = 'Tumb tracking (scrollbar)'
       Enabled = False
-      TabOrder = 3
+      TabOrder = 2
     end
     object CheckBox35: TCheckBox
       Left = 10
@@ -482,7 +454,7 @@ object StateForm: TStateForm
       Height = 17
       Caption = 'Updates locked'
       Enabled = False
-      TabOrder = 4
+      TabOrder = 3
     end
     object CheckBox38: TCheckBox
       Left = 10
@@ -491,7 +463,7 @@ object StateForm: TStateForm
       Height = 17
       Caption = 'Windows XP Theme support in use'
       Enabled = False
-      TabOrder = 5
+      TabOrder = 4
     end
     object CheckBox45: TCheckBox
       Left = 10
@@ -500,7 +472,7 @@ object StateForm: TStateForm
       Height = 17
       Caption = 'Treewindow is under construction'
       Enabled = False
-      TabOrder = 6
+      TabOrder = 5
     end
   end
 end

Demos/Advanced/States.pas

@@ -18,7 +18,6 @@   TStateForm = class(TForm)
     CheckBox8: TCheckBox;
     CheckBox9: TCheckBox;
     CheckBox19: TCheckBox;
-    CheckBox20: TCheckBox;
     CheckBox21: TCheckBox;
     CheckBox27: TCheckBox;
     CheckBox43: TCheckBox;
@@ -28,7 +27,6 @@   TStateForm = class(TForm)
     CheckBox11: TCheckBox;
     CheckBox15: TCheckBox;
     CheckBox16: TCheckBox;
-    CheckBox18: TCheckBox;
     GroupBox4: TGroupBox;
     CheckBox5: TCheckBox;
     CheckBox6: TCheckBox;
@@ -55,7 +53,6 @@   TStateForm = class(TForm)
     CheckBox23: TCheckBox;
     CheckBox33: TCheckBox;
     GroupBox8: TGroupBox;
-    CheckBox22: TCheckBox;
     CheckBox26: TCheckBox;
     CheckBox30: TCheckBox;
     CheckBox34: TCheckBox;
@@ -109,11 +106,8 @@ procedure UpdateStateDisplay(CurrentStates, Enter, Leave: TVirtualTreeStates);
       SetActiveState(CheckBox15, tsIncrementalSearching in NewStates);
       SetActiveState(CheckBox16, tsIncrementalSearchPending in NewStates);
       SetActiveState(CheckBox17, tsIterating in NewStates);
-      SetActiveState(CheckBox18, tsKeyCheckPending in NewStates);
       SetActiveState(CheckBox19, tsLeftButtonDown in NewStates);
-      SetActiveState(CheckBox20, tsMouseCheckPending in NewStates);
       SetActiveState(CheckBox21, tsMiddleButtonDown in NewStates);
-      //SetActiveState(CheckBox22, tsNeedScale in NewStates);
       SetActiveState(CheckBox23, tsNeedRootCountUpdate in NewStates);
       SetActiveState(CheckBox24, tsOLEDragging in NewStates);
       SetActiveState(CheckBox25, tsOLEDragPending in NewStates);
@@ -165,11 +159,8 @@ procedure TStateForm.EnableCheckBoxClick(Sender: TObject);
   CheckBox15.Enabled := EnableCheckBox.Checked;
   CheckBox16.Enabled := EnableCheckBox.Checked;
   CheckBox17.Enabled := EnableCheckBox.Checked;
-  CheckBox18.Enabled := EnableCheckBox.Checked;
   CheckBox19.Enabled := EnableCheckBox.Checked;
-  CheckBox20.Enabled := EnableCheckBox.Checked;
   CheckBox21.Enabled := EnableCheckBox.Checked;
-  CheckBox22.Enabled := EnableCheckBox.Checked;
   CheckBox23.Enabled := EnableCheckBox.Checked;
   CheckBox24.Enabled := EnableCheckBox.Checked;
   CheckBox25.Enabled := EnableCheckBox.Checked;