anchor.diff:      fFlashing := False;
       FlashWindowEx(flashInfo);
     end
  -  {$ENDIF}
  +  {$ENDIF}{$ENDIF}
   end;
   
   
  
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: 
  
  procedure TKMMain.FlashingStart;
  {$IFNDEF FPC}{$IFDEF MSWindows}
  var
    flashInfo: TFlashWInfo;
  {$ENDIF}{$ENDIF}
  begin
    {$IFNDEF FPC}{$IFDEF MSWindows}
    if (GetForegroundWindow <> gMain.FormMain.Handle) then
    begin
      flashInfo.cbSize := 20;
  