const
  cFormWidth  = 450;
  cFormHeight = 230;

var
  FMacro: WideString;
  FContains, FBetween: WideString;
  FCondition: Integer;

  AForm: TvxSceneForm;
  AFormCaption: String;
  AMacroEdit: TvxTextBox; AContainsEdit: TvxTextBox; ABetweenEdit: TvxTextBox;
  ACondition: TvxPopupBox;
  ASample: TvxLabel;


procedure UpdateSampleText;
var
  AItem: TImageItem;
begin
  ASample.Text := '';
  AItem := nil;
  if ActiveCollection <> nil then
  begin
    if ActiveCollection.Items.Count > 0 then
      AItem := ActiveCollection.Items.Items[0];
  end;

  if AItem = nil then exit;

  ASample.Text := AItem.ParseMacros(AMacroEdit.Text, nil);
end;

procedure UpdateContainsEditState;
begin
  AContainsEdit.Visible := (ACondition.ItemIndex <> 7) and   // is blank
                           (ACondition.ItemIndex <> 8);      // is not blank

  ABetweenEdit.Visible := (ACondition.ItemIndex = 6);        // between
end;

procedure _MacroChangeTracking(Sender: TObject);
begin
  ASample.Text := '';
  //UpdateSampleText;
end;

procedure _SampleButtonClick(Sender: TObject);
begin
  UpdateSampleText;
end;

procedure _MacroButtonClick(Sender: TObject);
begin
  MacroValuesPopup.Component := AMacroEdit;
  MacroValuesPopup.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

procedure _SaveClick (Sender: Tobject);
var
  AElem: TidElement;
begin
  SaveDialog.Filter := 'Macro Save Files|*.msf';
  SaveDialog.DefaultExt := '.msf';
  SaveDialog.InitialDir := DefaultAppDataDir + WideIncludeTrailingBackslash('Filters');
  if not SaveDialog.Execute then
    exit;

  AForm.Caption := AFormCaption + ' - ' + UTF8Encode(WideExtractFileName(SaveDialog.FileName));

  AElem := TidElement.Create(nil);
  AElem.Prop['FilterMacro']          := AMacroEdit.Text;
  AElem.Prop['FilterMacroContains']  := AContainsEdit.Text;
  AElem.Prop['FilterMacroBetween']   := ABetweenEdit.Text;
  AElem.Prop['FilterMacroCondition'] := ACondition.ItemIndex;
  AElem.SaveAsXMLFile(SaveDialog.FileName);
  AElem.Free;
end;

procedure _LoadClick (Sender: TObject);
var
  AElem: TidElement;
begin
  OpenDialog.Filter     := 'Macro Save Files|*.msf';
  OpenDialog.DefaultExt := '.msf';
  OpenDialog.InitialDir := DefaultAppDataDir + WideIncludeTrailingBackslash('Filters');
  if not OpenDialog.Execute then
    exit;
  AElem := TidElement.Create(nil);
  AElem.LoadFromXMLFile(OpenDialog.FileName);

  AForm.Caption := AFormCaption + ' - ' + UTF8Encode(WideExtractFileName(OpenDialog.FileName));

  FMacro    := '';
  FMacro    := Nvl(AElem.Prop['FilterMacro'], FMacro);
  FContains := '';
  FContains := Nvl(AElem.Prop['FilterMacroContains'], FContains);
  FBetween  := '';
  FBetween  := Nvl(AElem.Prop['FilterMacroBetween'], FBetween);
  FCondition:= 0;
  FCondition:= Nvl(AElem.Prop['FilterMacroCondition'], FCondition);
  AElem.Free;

  AMacroEdit.Text := FMacro;
  AContainsEdit.Text := FContains;
  ABetweenEdit.Text := FBetween;
  ACondition.ItemIndex := FCondition;
  UpdateContainsEditState;
end;

procedure _CondtionChange(Sender: TObject);
begin
  UpdateContainsEditState;
end;

function BuildForm: TvxSceneForm;
var
  ALabel: TvxLabel;
  AEdit: TvxTextBox;
  ACombo: TvxPopupBox;
  AOk: TvxButton;
  ASave: TvxButton;
  ALoad: TvxButton;
  AMacroButton: TvxButton;
  ASampleButton: TvxButton;
begin
  result := TvxSceneForm.Create(nil);
  result.Caption  := AFormCaption;
  result.Position := poScreenCenter;
  result.Width := Round(cFormWidth * result.DPIFactor);
  result.Height := Round(cFormHeight * result.DPIFactor);

  ALabel := TvxLabel.Create(result.Root);
  result.Root.AddObject(ALabel);
  ALabel.Text := 'Macro Command';
  ALabel.TextAlign := vgTextAlignNear;
  ALabel.Position.Point := vgPoint(20, 20);

  AEdit := TvxTextBox.Create(result.Root);
  result.Root.AddObject(AEdit);
  AEdit.Text := FMacro;
  AEdit.Width := 200;
  AEdit.Position.Point := vgPoint(ALabel.Position.X, ALabel.Position.Y + ALabel.Height + 0);
  AEdit.OnChangeTracking := '_MacroChangeTracking';
  AMacroEdit := AEdit;

  AMacroButton := TvxButton.Create(result.Root);
  result.Root.AddObject(AMacroButton);
  AMacroButton.Position.Point := vgPoint(AEdit.Position.X + AEdit.Width, AEdit.Position.Y);
  AMacroButton.Width  := AEdit.Height;
  AMacroButton.Text   := '...';
  AMacroButton.OnClick:= '_MacroButtonClick';

  ASampleButton := TvxButton.Create(result.Root);
  result.Root.AddObject(ASampleButton);
  ASampleButton.Position.Point := vgPoint(AMacroButton.Position.X + AMacroButton.Width, AMacroButton.Position.Y);
  ASampleButton.Width  := 100;
  ASampleButton.Text   := 'show sample';
  ASampleButton.OnClick:= '_SampleButtonClick';
  if ActiveCollection = nil then
    ASampleButton.Visible := False
  else
    ASampleButton.Visible := ActiveCollection.Items.Count > 0;

  ASample := TvxLabel.Create(result.Root);
  result.Root.AddObject(ASample);
  ASample.Text := '';
  ASample.Font.Style := vgFontItalic;
  ASample.Width := cFormWidth - AEdit.Position.X - 10;
  ASample.Height := ASample.Height * 2;
  ASample.TextAlign := vgTextAlignNear;
  ASample.WordWrap := True;
  ASample.Position.Point := vgPoint(AEdit.Position.X, AEdit.Position.Y + AEdit.Height + 0);

  ACombo := TvxPopupBox.Create(result.Root);
  result.Root.AddObject(ACombo);
  //ACombo.Style := csDropDownList;
  ACombo.Items.Clear;
  ACombo.Items.Add('Contains value');
  ACombo.Items.Add('Doesn''t contain value');
  ACombo.Items.Add('Equals');
  ACombo.Items.Add('Doesn''t Equal');
  ACombo.Items.Add('Less Than');
  ACombo.Items.Add('Greater Than');
  ACombo.Items.Add('Between');
  ACombo.Items.Add('Is Blank');
  ACombo.Items.Add('Is Not  Blank');
  ACombo.ItemIndex := FCondition;
  ACombo.Position.Point := vgPoint(20, ASample.Position.Y + ASample.Height + 10);
  ACombo.Width := 150;
  ACombo.TextAlign := vgTextAlignNear;
  ACombo.OnChange := '_CondtionChange'
  ACondition := ACombo;

  AEdit := TvxTextBox.Create(result.Root);
  result.Root.AddObject(AEdit);
  AEdit.Text := FContains;
  AEdit.Width := 200;
  AEdit.Position.Point := vgPoint(ACombo.Position.X, ACombo.Position.Y + ACombo.Height + 10);
  AContainsEdit := AEdit;

  AEdit := TvxTextBox.Create(result.Root);
  result.Root.AddObject(AEdit);
  AEdit.Text := FBetween;
  AEdit.Width := 200;
  AEdit.Position.Point := vgPoint(AContainsEdit.Position.X + AContainsEdit.Width + 10, ACombo.Position.Y + ACombo.Height + 10);
  ABetweenEdit := AEdit;

  AOk := TvxButton.Create(result.Root);
  result.Root.AddObject(AOk);
  AOk.ModalResult := mrOk;
  AOk.Position.Point := vgPoint(ACombo.Position.X, (result.Height / result.DPIFactor) - 10 - AOk.Height);
  AOk.Text := 'OK';
  AOk.Default := True;

  ASave := TvxButton.Create(result.Root);
  result.Root.AddObject(ASave);
  ASave.OnClick := '_SaveClick';
  ASave.Position.Point := vgPoint((result.Width / result.DPIFactor) - 10 - ASave.Width, (result.Height / result.DPIFactor) - 10 - ASave.Height);
  ASave.Text := 'Save';

  ALoad := TvxButton.Create(result.Root);
  result.Root.AddObject(ALoad);
  ALoad.OnClick := '_LoadClick';
  ALoad.Position.Point := vgPoint(ASave.Position.X - 5 - ALoad.Width, (result.Height / result.DPIFactor) - 10 - ALoad.Height);
  ALoad.Text := 'Load';

  UpdateContainsEditState;
end;

function Initialize: Boolean;
begin
  result := True;

  FHit := 0;
  FMacro    := '';
  FMacro    := ReadFromRegistry ('Scripts', 'FilterMacro', FMacro);
  FContains := '';
  FContains := ReadFromRegistry ('Scripts', 'FilterMacroContains', FContains);
  FBetween  := '';
  FBetween  := ReadFromRegistry ('Scripts', 'FilterMacroBetween', FBetween);
  FCondition:= 0;
  FCondition:= ReadFromRegistry ('Scripts', 'FilterMacroCondition', FCondition);

  AFormCaption := 'Filter by Macro Command';
  AForm := BuildForm;
  AForm.ShowModal;
  result := (AForm.ModalResult = mrOk);
  if result then
  begin
    FMacro     := Trim(AMacroEdit.Text);
    FContains  := Trim(AContainsEdit.Text);
    FBetween   := Trim(ABetweenEdit.Text);
    FCondition := ACondition.ItemIndex;
  end;
  AForm.Free;
end;

procedure Finalize;
begin
  MacroValuesPopup.Component := nil;

  WriteToRegistry ('Scripts', 'FilterMacro', FMacro);
  WriteToRegistry ('Scripts', 'FilterMacroContains', FContains);
  WriteToRegistry ('Scripts', 'FilterMacroBetween', FBetween);
  WriteToRegistry ('Scripts', 'FilterMacroCondition', FCondition);
end;

function Filter(AItem: TImageItem): Boolean;
var
  AVal: WideString;
  AContains, ABetween: WideString;
begin
  result := False;
  if FMacro = '' then
    exit;

  AVal      := AItem.ParseMacros (FMacro, nil);
  AContains := AItem.ParseMacros (FContains, nil);
  ABetween  := AItem.ParseMacros (FBetween, nil);

  case FCondition of
    0:  // contains
      result := (WideTextPos (AContains, AVal) > 0);
    1:  // not contains
      result := (WideTextPos (AContains, AVal) = 0);
    2:  // equals
      result := WideSameText (AContains, AVal);
    3:  // not equals
      result := not WideSameText (AContains, AVal);
    4:  // less than
    begin
      if AVal = '' then
        result := False
      else if IsValidNumberString(AContains, False, DecimalSeparator) and
              IsValidNumberString(AVal, False, DecimalSeparator)
      then
        result := (AVal < StrToFloat(AContains))
      else
        result := (WideCompareStr(AVal, AContains) < 0);
    end
    5:  // greater than
    begin
      if AVal = '' then
        result := False
      else if IsValidNumberString(AContains, False, DecimalSeparator) and
              IsValidNumberString(AVal, False, DecimalSeparator)
      then
        result := (AVal > StrToFloat(AContains))
      else
        result := (WideCompareStr(AVal, AContains) > 0);
    end
    6:  // between
    begin
      if (AVal = '') then
        result := False
      else if IsValidNumberString(AContains, False, DecimalSeparator) and
              IsValidNumberString(AVal, False, DecimalSeparator) and
              IsValidNumberString(ABetween, False, DecimalSeparator) and
              IsValidNumberString(AVal, False, DecimalSeparator)
      then
        result := ((AVal >= StrToFloat(AContains)) and (AVal <= StrToFloat(ABetween)))
      else
        result := ((WideCompareStr(AVal, AContains) >= 0) and (WideCompareStr(AVal, ABetween) <= 0));
    end
    7:  // is blank
      result := AVal = '';
    8:  // is not blank
      result := AVal <> '';
  end;
end;