anchor.diff:  Procedure TPSCCustomFontBox.RemeasureItems(Index: Integer);
   Var
     I: Integer;
  -  MeasureItemMsg: TWMMeasureItem;
  +  MeasureItemMsg: TLMMeasureItem;
     MeasureItemStruct: TMeasureItemStruct;
   
     Procedure DoMeasureItem(Index: Integer);
  
positive.code:     MeasureItemStruct.itemWidth := Width;
      MeasureItemStruct.itemHeight := ItemHeight;
      Dispatch(MeasureItemMsg);
      Perform(LB_SETITEMHEIGHT,Index,
        MakeLParam(MeasureItemStruct.itemHeight,0))
    End;
  
  Begin
  
negative.code:         Result := I <> -1;
          If Result Then
            Begin
              FontParams.Value := Integer(Items.Objects[I]);
              FontParams.FontType := FontParams.FontType Or FontType;
              Items.Objects[I] := TObject(FontParams.Value)
            End
        End
    End;
  