anchor.diff:  
   {---------  Detect Shorthand syntax }
   type
  -  TShortHand = (
  -    MarginX, PaddingX, BorderWidthX, BorderX,
  -    BorderTX, BorderRX, BorderBX, BorderLX,
  -    FontX, BackgroundX, ListStyleX, BorderColorX,
  -    BorderStyleX);
  +//  TShortHand = (
  +//    MarginX, PaddingX, BorderWidthX, BorderX,
  +//    BorderTX, BorderRX, BorderBX, BorderLX,
  +//    FontX, BackgroundX, ListStyleX, BorderColorX,
  +//    BorderStyleX);
   
     EParseError = class(Exception);
   
  
positive.code: implementation
  
  const
    ShortHands: array[Low(TShortHand)..High(TShortHand)] of ThtString = (
      'margin', 'padding', 'border-width', 'border',
      'border-top', 'border-right', 'border-bottom', 'border-left',
      'font', 'background', 'list-style', 'border-color',
      'border-style');
  
  const
    NeedPound = True;
  
  //-- BG ---------------------------------------------------------- 26.12.2010 --
  
negative.code:     I: TShortHand;
    begin
      for I := Low(TShortHand) to High(TShortHand) do
        if S = PropWords[I] then
        begin
          Result := True;
          Index := I;
  