anchor.diff:  interface
   
   uses
  -  Classes, SysUtils, Controls, Graphics, LMessages,
  +  Classes, SysUtils, Controls, Graphics,
     StdCtrls, Forms, ComCtrls, ExtCtrls, Math,
     LCLType,
     LCLIntf,
  
positive.code:   DoEmulatedModalClose;
    IdClicked:= -1;
    DoEvent(-1, FEventOnClose, AppVariantNil);
  end;
  
  procedure TFormDummy.LMSize(var Msg: TLMessage);
  begin
    inherited;
    if Msg.WParam and 127 = SIZE_MINIMIZED then
      DoEvent(-1, FEventOnMinimize, AppVariantNil);
  end;
  
  function TFormDummy.IdFocused: integer;
  
negative.code:       WindowState:= wsNormal;
        Show;
      end;
  
    if WindowState=wsMinimized then
      DoEvent(-1, FEventOnMinimize, AppVariantNil);
  end;
  
  procedure TFormDummy.DoOnControlMenu(Sender: TObject; MousePos: TPoint;
  