unit xExtDlgs;

interface
  Uses ExtDlgs;

type
  TSavePictureDialog=class(ExtDlgs.TSavePictureDialog)
    public
    function Execute:boolean; override;
  end;


implementation
  Uses Forms, xDialogs;

function TSavePictureDialog.Execute:boolean;
  var OldFormStyle:tFormStyle; Changed:boolean;
begin
  Changed:=GetFormStyle(OldFormStyle);
  Result:=Inherited Execute;
  SetFormStyle(OldFormStyle, Changed);
end;

end.