procedure TForm1.FillColorOutSideSelection1Click(Sender: TObject);
begin
  if Assigned(cxPageControl1.ActivePage) then
  begin
    ImageEnView := TImageEnView(cxPageControl1.ActivePage.Controls[0]);
    if Assigned(ImageEnView) then
    begin
      ImageEnView.Proc.SaveUndo('Fill color outside selection ' + IntToStr(ImageEnView.Proc.UndoCount));
      ImageEnView.InvertSelection;
      ImageEnView.Proc.Fill(ImageEnView.Background);
      ImageEnView.Update;
      ImageEnView.DeSelect;
    end;
  end;
end;

procedure TForm1.FillAlphaOutside1Click(Sender: TObject);
begin
   if Assigned(cxPageControl1.ActivePage) then
  begin
    ImageEnView := TImageEnView(cxPageControl1.ActivePage.Controls[0]);
    if Assigned(ImageEnView) then
    begin
      ImageEnView.Proc.SaveUndo('Fill alpha outside selection ' + IntToStr(ImageEnView.Proc.UndoCount));
      ImageEnView.InvertSelection;
      ImageEnView.Proc.Fill(clBlack);
      ImageEnView.Proc.SetTransparentColors(ImageEnView.IEBitmap.Pixels[0,
      ImageEnView.IEBitmap.Height - 1], ImageEnView.IEBitmap.Pixels[0, ImageEnView.IEBitmap.Height - 1], 0);
      ImageEnView.Update;
      ImageEnView.DeSelect;
    end;
  end;
end;