anchor.diff:  implementation
   
   uses
  +  System.Types,
  +
     CommCtrl,
     GraphUtil,
     KeymanHints,
  
positive.code: end;
  
  procedure TfrmVisualKeyboard.LoadSettings;
    procedure MoveBounds(R: TRect);
    begin
      if (R.Left < R.Right) and (R.Top < R.Bottom) and (R.Left >= 0) and (R.Top >= 0) and
          (R.Bottom <= Screen.Height) and (R.Right <= Screen.Width) then
        BoundsRect := R;
    end;
    procedure MoveDefault;
    begin
      SetBounds(Screen.WorkAreaRect.Right - Width, Screen.WorkAreaRect.Bottom - Height, Width, Height);
  
negative.code:   VistaMessages,
    MessageIdentifierConsts,
    messageidentifiers,
    BitmapIPicture;
  
  {$R *.DFM}
  
  