anchor.diff:  {------------------------------------------------}
   
   Function PSCDialogUnitsToPixelsX(X: Integer): Integer;
  +{$IFDEF WINDOWS}
   Var
     BaseUnitX: Integer;
   Begin
     BaseUnitX := GetDialogBaseUnits And $0000FFFF;
     Result := (X * BaseUnitX) Div 4;
  +{$ELSE}
  +begin
  +  Result := X * 2;
  +{$ENDIF}
   End;
   
   {------------------------------------------------}
   
   Function PSCDialogUnitsToPixelsY(Y: Integer): Integer;
  +{$IFDEF WINDOWS}
   Var
     BaseUnitY: Integer;
   Begin
     BaseUnitY := (GetDialogBaseUnits And $FFFF0000) Shr 16;
     Result := (Y * BaseUnitY) Div 8;
  -End;
  +{$ELSE}
  +begin
  +  Result := Y * 2;
  +{$ENDIF}
  +end;
   
   {-------------------------------------------------------------------------}
   
  
positive.code: 
  Function PSCSysDTFormatToRec: TPSCDateTimeFormatRec;
  Begin
    Result.ShortTimeFormat := SysUtils.ShortTimeFormat;
    Result.ShortDateFormat := SysUtils.ShortDateFormat;
    Result.LongDateFormat := SysUtils.LongDateFormat;
    Result.LongTimeFormat := SysUtils.LongTimeFormat;
    Result.DateSeparator := SysUtils.DateSeparator;
    Result.TimeSeparator := SysUtils.TimeSeparator;
    Result.TimeAMString := SysUtils.TimeAMString;
    Result.TimePMString := SysUtils.TimePMString;
  End;
  
  {------------------------------}
  
  Procedure PSCRecToSysDTFormat(Const Rec: TPSCDateTimeFormatRec);
  Begin
    SysUtils.ShortTimeFormat := Rec.ShortTimeFormat;
    SysUtils.ShortDateFormat := Rec.ShortDateFormat;
    SysUtils.LongDateFormat := Rec.LongDateFormat;
    SysUtils.LongTimeFormat := Rec.LongTimeFormat;
    SysUtils.DateSeparator := Rec.DateSeparator[1];
    SysUtils.TimeSeparator := Rec.TimeSeparator[1];
    SysUtils.TimeAMString := Rec.TimeAMString;
    SysUtils.TimePMString := Rec.TimePMString;
  End;
  
  {------------------------------------------------------------------}
  
negative.code:       GetLocaleInfo(Locale, LocaleType, @Result[1], L);
      end
    else
  {$ELSE}
  begin
  {$ENDIF}
      Result := Default;
  end;
  
  {-------------------------------------------------------------------------}
  
  function PSCGetDateFormatted(ALocale: Integer; dwFlags: Cardinal;
    const ADate: TDateTime;const AFormat: String): String;
  {var
    SystemTime: TSystemTime;
    L : integer;
  begin
  