anchor.diff:  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 --
  
positive.code:     I: TShortHand;
    begin
      for I := Low(TShortHand) to High(TShortHand) do
        if S = ShortHands[I] then
        begin
          Result := True;
          Index := I;
  
negative.code: 
  {---------  Detect Shorthand syntax }
  type
  //  TShortHand = (
  //    MarginX, PaddingX, BorderWidthX, BorderX,
  //    BorderTX, BorderRX, BorderBX, BorderLX,
  //    FontX, BackgroundX, ListStyleX, BorderColorX,
  //    BorderStyleX);
  
    EParseError = class(Exception);
  
  