anchor.diff:          aRect := AppData.rc;
         end;
       end;
  +    {$ENDIF}
     end;
   var
     Wp: TWindowPlacement;
  
positive.code:   // FindTaskBar returns the Task Bar's position, and fills in
    // ARect with the current bounding rectangle.
    function FindTaskBar(var aRect: TRect): Integer;
    var	AppData: TAppBarData;
    begin
      Result := -1;
      // 'Shell_TrayWnd' is the name of the task bar's window
      AppData.Hwnd := FindWindow('Shell_TrayWnd', nil);
      if AppData.Hwnd <> 0 then
  
negative.code: {$I KaM_Remake.inc}
  interface
  uses
    Classes, ComCtrls, Controls, Buttons, Dialogs, ExtCtrls, Forms, Graphics, Math, Menus, StdCtrls, SysUtils, StrUtils,
    KM_RenderControl, KM_Settings,
    {$IFDEF FPC} LResources, {$ENDIF}
    {$IFDEF MSWindows} ShellAPI, Windows, Messages; {$ENDIF}
    {$IFDEF Unix} LCLIntf, LCLType; {$ENDIF}
  
  
  