anchor.diff:    TPSCCustomSectionControl = Class(TControl,IPSCInterface,IPSCValidator)
     private
       FCanvas: TPSCCanvas;
  -    Procedure WMPaint(Var Message: TWMPaint); message WM_PAINT;
  +    Procedure WMPaint(Var Message: TLMPaint); message LM_PAINT;
       Procedure IPSCValidator.InvalidateRect = InvalidateRegion;
       Procedure IPSCValidator.Invalidate = InvalidateControl;
       Procedure InvalidateRegion(Rect: TRect; Erase: Boolean);
  
positive.code:     Begin
        If Slot = Nil Then
          Begin
            If csAlignmentNeeded In ControlState Then
              Begin
                FState := FState + [cbsAdjustingNeeded];
                Exit
              End;
            If FSelectSameColors Then
              UpdateSelection;
            SetUpdating(true);
  
negative.code: 
  {-------------------------------------}
  
  Procedure TPSCCustomColorBox.CMFontChanged(Var Message: TLMessage);
  Begin
    Inherited;
    AdjustSize;
  