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