anchor.diff:    begin
       with DoControl_Target(C) do
         Font.Name:= AValue;
  +    if C is TATListbox then
  +      TATListbox(C).ThemedFont:= false;
       exit;
     end;
   
  
positive.code:   begin
      with DoControl_Target(C) do
        Font.Size:= StrToIntDef(AValue, Font.Size);
      exit;
    end;
  
  
negative.code:   begin
      with DoControl_Target(C) do
        Font.Color:= StrToIntDef(AValue, Font.Color);
      if C is TATListbox then
        TATListbox(C).ThemedFont:= false;
      exit;
    end;
  
  