anchor.diff:    TimerStatusAlt.Enabled:= true;
   end;
   
  +procedure TfmMain.PopupListboxOutputCopyClick(Sender: TObject);
  +begin
  +  SClipboardCopy(ListboxOut.Items.Text);
  +end;
  +
  +procedure TfmMain.PopupListboxOutputClearClick(Sender: TObject);
  +begin
  +  ListboxOut.Items.Clear;
  +  ListboxOut.ItemIndex:= -1;
  +  ListboxOut.ItemTop:= 0;
  +  ListboxOut.Invalidate;
  +end;
  +
  +procedure TfmMain.PopupListboxValidateCopyClick(Sender: TObject);
  +begin
  +  SClipboardCopy(ListboxVal.Items.Text);
  +end;
  +
  +procedure TfmMain.PopupListboxValidateClearClick(Sender: TObject);
  +begin
  +  ListboxVal.Items.Clear;
  +  ListboxVal.ItemIndex:= -1;
  +  ListboxVal.ItemTop:= 0;
  +  ListboxVal.Invalidate;
  +end;
  +
   procedure TfmMain.SetShowMenu(AValue: boolean);
   begin
     if AValue then
  
positive.code:     procedure MsgLogDebug(const AText: string);
      procedure MsgLogToFilename(const AText, AFilename: string; AWithTime: boolean);
      procedure MsgStatusAlt(const AText: string; ASeconds: integer);
      procedure SetFloatBottom(AValue: boolean);
      procedure SetFloatSide(AValue: boolean);
      procedure SetShowFloatGroup1(AValue: boolean);
  
negative.code:   CodeTreeFilterInput.OnChange:= @CodeTreeFilterInputOnChange;
    CodeTreeFilterInput.OnCommand:= @CodeTreeFilterOnCommand;
  
    FPopupListboxOutput:= TPopupMenu.Create(Self);
    mi:= TMenuItem.Create(Self);
    mi.Caption:= msgFileClearList;
    mi.OnClick:= @PopupListboxOutputClearClick;
    FPopupListboxOutput.Items.Add(mi);
    mi:= TMenuItem.Create(Self);
    mi.Caption:= msgEditCopy;
    mi.OnClick:= @PopupListboxOutputCopyClick;
    FPopupListboxOutput.Items.Add(mi);
  
    FPopupListboxValidate:= TPopupMenu.Create(Self);
    mi:= TMenuItem.Create(Self);
    mi.Caption:= msgFileClearList;
    mi.OnClick:= @PopupListboxValidateClearClick;
    FPopupListboxValidate.Items.Add(mi);
    mi:= TMenuItem.Create(Self);
    mi.Caption:= msgEditCopy;
    mi.OnClick:= @PopupListboxValidateCopyClick;
    FPopupListboxValidate.Items.Add(mi);
  
    ListboxOut:= TATListbox.Create(Self);
    ListboxOut.VirtualMode:= false;
    ListboxOut.Parent:= PanelBottom;
    ListboxOut.Align:= alClient;
    ListboxOut.CanGetFocus:= true;
    ListboxOut.OwnerDrawn:= true;
    ListboxOut.PopupMenu:= FPopupListboxOutput;
    ListboxOut.OnDblClick:= @ListboxOutClick;
    ListboxOut.OnDrawItem:= @ListboxOutDrawItem;
    ListboxOut.OnKeyDown:= @ListboxOutKeyDown;
  