Changeset 16 for trunk/UKConfig.pas

Timestamp:

Jan 8, 2016, 5:09:58 PM (8 years ago)

Author:

chronos

Message:

• Added: Preparation for filtering of non visible nodes.

File:

• trunk/UKConfig.pas (modified) (7 diffs)

trunk/UKConfig.pas

@@ -33 +33 @@
     Parent: TExpression;
     function Show: String; virtual;
+    function CanBeTrue: Boolean; virtual;
     procedure GetList(List: TStringList); virtual;
     constructor Create; virtual;
@@ -44 +45 @@
   TExpressionVar = class(TExpression)
     Name: string;
-    Node: TMenuNode;
+    //Node: TMenuNode;
     Negative: Boolean;
     Compare: TCompareType;
     Value: string;
+    function CompareValue: Boolean;
+    function CanBeTrue: Boolean; override;
     constructor Create; override;
     procedure GetList(List: TStringList); override;
@@ -88 +91 @@
     function GetTopNode: TMenuNode; virtual;
     function FindNode(ID: string): TMenuNode; virtual;
+    function CanBeVisible: Boolean;
     property Visible: Boolean read GetVisible;
   end;
@@ -138 +142 @@
 { TExpressionVar }
 
+function TExpressionVar.CompareValue: Boolean;
+begin
+
+end;
+
+function TExpressionVar.CanBeTrue: Boolean;
+begin
+  if Compare = ctNone then begin
+
+  end else
+  if Compare = ctEqual then begin
+    Result := Result and CompareValue;
+  end else
+  if Compare = ctNotEqual then begin
+    Result := Result and not CompareValue;
+  end;
+//  Result := Node.CanBeVisible;
+end;
+
 constructor TExpressionVar.Create;
 begin
@@ -176 +199 @@
   end;
   if Assigned(Parent) then Result := '(' + Result + ')';
+end;
+
+function TExpression.CanBeTrue: Boolean;
+var
+  I: Integer;
+begin
+  if ExpOperator = eoAnd then begin
+    Result := True;
+    for I := 0 to Items.Count - 1 do
+      Result := Result and TExpression(Items[I]).CanBeTrue;
+  end else
+  if ExpOperator = eoOr then begin
+    Result := False;
+    for I := 0 to Items.Count - 1 do
+      Result := Result or TExpression(Items[I]).CanBeTrue;
+  end;
 end;
 
@@ -320 +359 @@
   I: Integer;
 begin
-  if ID <> '' then List.Add(ID);
+  if ID <> '' then List.AddObject(ID, Self);
   for I := 0 to Items.Count - 1 do
   with TMenuNode(Items[I]) do begin
@@ -403 +442 @@
     end;
   end;
+end;
+
+function TMenuNode.CanBeVisible: Boolean;
+begin
+  // TODO
+  // Check if it can be selected manually if manual option
+  // Check if it can be selected automatically by other option
+
 end;