anchor.diff:    if st.BgColor=clNone then
       C.Brush.Color:= FColorBg;
   
  -  S:= cExample;
  -  NWidth:= C.TextWidth(S);
  -  C.TextOut(ARect.Right-NWidth, ARect.Top, S);
  +  NWidth:= C.TextWidth(cExample);
  +  C.TextOut(ARect.Right-NWidth, ARect.Top, cExample);
   
     if st.BorderColorBottom<>clNone then
     begin
  
positive.code: var
    C: TCanvas;
    st: TecSyntaxFormat;
    S: string;
    NWidth: integer;
  begin
    if (AIndex<0) or (AIndex>=ListStyles.Items.Count) then exit;
  
negative.code:   else
      C.Brush.Color:= clWindow;
  
    C.Font.Color:= clWindowText;
    C.Font.Style:= [];
    C.TextOut(ARect.Left+cIndent, ARect.Top, ListStyles.Items[AIndex]);
  end;
  
  procedure TfmColorSetup.OKButtonClick(Sender: TObject);
  