anchor.diff:  
   { TfmConsole }
   
  +procedure TfmConsole.DoGetLineColor(const AText: UnicodeString; var AColorFont, AColorBg: TColor);
  +begin
  +  if SBeginsWith(AText, '>>>') then
  +    AColorFont:= clPurple
  +  else
  +  if AText='Traceback (most recent call last):' then
  +  begin
  +    AColorFont:= clWhite;
  +    AColorBg:= clRed;
  +  end;
  +end;
  +
   procedure TfmConsole.DoAddLine(const Str: string);
   begin
     with memo do
  
positive.code: 
  procedure TfmConsole.FormCreate(Sender: TObject);
  begin
    ed:= TATComboEdit.Create(Self);
    ed.Parent:= Self;
    ed.Align:= alBottom;
  
negative.code: 
    memo.WantTabs:= false;
    memo.TabStop:= true;
    memo.AdapterForHilite:= FAdapter;
  
    IsDoubleBuffered:= UiOps.DoubleBuffered;
  
  