anchor.diff:  
   
   procedure TKMMain.FlashingStart;
  -{$IFNDEF FPC}
  +{$IFNDEF FPC}{$IFDEF MSWindows}
   var
     flashInfo: TFlashWInfo;
  -{$ENDIF}
  -begin
  -  {$IFNDEF FPC}
  +{$ENDIF}{$ENDIF}
  +begin
  +  {$IFNDEF FPC}{$IFDEF MSWindows}
     if (GetForegroundWindow <> gMain.FormMain.Handle) then
     begin
       flashInfo.cbSize := 20;
  
positive.code:     fFlashing := True;
      FlashWindowEx(flashInfo);
    end
    {$ENDIF}
  end;
  
  
  procedure TKMMain.FlashingStop;
  {$IFNDEF FPC}
  var
    flashInfo: TFlashWInfo;
  {$ENDIF}
  begin
    {$IFNDEF FPC}
    if fFlashing then
    begin
      flashInfo.cbSize := 20;
  
negative.code:     fFlashing := False;
      FlashWindowEx(flashInfo);
    end
    {$ENDIF}{$ENDIF}
  end;
  
  
  