anchor.diff:    FGarbage := TObjectList.Create(true);
   
     ScaleFontForMagnification(MainLabel.Font);
  +
  +  FResultsColor := RGBToColor(234,218,104);
  +  FInfosColor := RGBToColor(191,255,255);
  +  FWarningsColor := RGBToColor(255,156,108);
  +  FErrorsColor := clRed;
   end;
   
   procedure TPerformedOperationResultsDlg.FormCloseQuery(Sender: TObject; var CanClose: boolean);
  
positive.code:     ScaleFontForMagnification(memo.Font);
    end;
  
    procedure AddMemoOperations (aIndex : integer; aOperations : TPerformedOperations);
    var
      lb : TListBox;
      i : integer;
  
negative.code:   (Control as TListBox).Canvas.Brush.Color:=tmpColor;  //Set background color
    (Control as TListBox).Canvas.FillRect(ARect);      //Draw a filled rectangle
    (Control as TListBox).Canvas.TextRect(ARect, 2, ARect.Top, (Control as TListBox).Items[Index]);  //Draw Itemtext
  end;
  
  procedure TPerformedOperationResultsDlg.OnDrawSingleListLBItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState);
  var
    tmpColor: TColor;                       //Background color
    prefix : string;
  begin
    if odSelected in State then
      tmpColor := clHighlight
    else
      tmpColor:= clWhite;
  
    prefix := '';
    if Assigned((Control as TListBox).Items.Objects[Index]) and ((Control as TListBox).Items.Objects[Index] is TPerformedOperation) then
    begin
      if ((Control as TListBox).Items.Objects[Index] as TPerformedOperation).Level <> '' then
        prefix := '[' + ((Control as TListBox).Items.Objects[Index] as TPerformedOperation).Level + '] ';
      if ((Control as TListBox).Items.Objects[Index] as TPerformedOperation).Level = TPerformedOperation.ERROR then
        tmpColor := FErrorsColor
      else if ((Control as TListBox).Items.Objects[Index] as TPerformedOperation).Level = TPerformedOperation.WARNING then
        tmpColor := FWarningsColor
      else if ((Control as TListBox).Items.Objects[Index] as TPerformedOperation).Level = TPerformedOperation.RESULT then
        tmpColor := FResultsColor;
    end;
    (Control as TListBox).Canvas.Brush.Color:=tmpColor;  //Set background color
    (Control as TListBox).Canvas.FillRect(ARect);      //Draw a filled rectangle
    (Control as TListBox).Canvas.TextRect(ARect, 2, ARect.Top, prefix + (Control as TListBox).Items[Index]);  //Draw Itemtext
  end;
  
  procedure TPerformedOperationResultsDlg.OnDblClickLB(Sender: TObject);
  