anchor.diff:  
   {------------------------------------------------------------------}
   
  +function PSCColorToIdent(Color: Longint; var Ident: String): Boolean;
  +begin
  +  Result := ColorToIdent(Color, Ident);
  +end;
  +
  +function PSCIdentToColor(const Ident: string; var Color: Longint): Boolean;
  +begin
  +  Result := IdentToColor(Ident, Color);
  +end;
  +
   initialization
     PSCSetExternalProcs(TPSCExternalProcs.Create);
  -  RegisterIntegerConsts(TypeInfo(TPSCColor), IdentToColor, ColorToIdent);
  +  RegisterIntegerConsts(TypeInfo(TPSCColor), PSCIdentToColor, PSCColorToIdent);
   End.
   
   
  
positive.code: procedure TPSCCustomControlAncestor.InvalidateRect(const R:TRect);
  begin
    If HandleAllocated then
      Windows.InvalidateRect(Handle,@R,False);
  end;
  
  {------------------------------------------------------------------}
  
negative.code: 
  Function PSCGetClipRgn(Control: TControl; Canvas: TCanvas): TPSCRegion;
  Begin
    Result := LCLIntf.CreateRectRgnIndirect(Control.ClientRect);
    LCLIntf.GetClipRgn(Canvas.Handle,Result);
  End;
  
  {------------------------------------------------------------------}
  
  Procedure PSCDeleteClipRgn(Rgn: TPSCRegion);
  Begin
    LCLIntf.DeleteObject(Rgn);
  End;
  
  {------------------------------------------------------------------}
  
  Procedure PSCSelectClipRgn(Canvas: TCanvas; Rgn: TPSCRegion);
  Begin
    LCLIntf.SelectClipRgn(Canvas.Handle,Rgn);
  End;
  
  {---------------------------------------------------------}
  