Amigos saludos,
tengo un problemilla sin resolver tengo un actionmanager donde agrege el TFileSaveAs lo que pasa es que no guarda el archivo o sea lo guarda al parecer no lo se aparece en los archivos recientes solamente
en eventos esta
Dialog - FileSaveAs1.SaveDialog
en propiedades
Dialog- FileSaveAs1.SaveDialog
se expande para dar opciones filter,defaultext, etc...
tengo todo eso configurado pero no logro saber porque no lo guarda
en el evento OnAccept verifico la ruta donde se guarda y aparece bien
este es el codigo del form
Código Delphi
[-]unit QRpreview;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRPrntr,quickrpt, ToolWin, ActnMan, ActnCtrls,XPActnCtrls, XPStyleActnCtrls,
StdActns, ActnList, ImgList, ComCtrls, StdCtrls, Buttons, ExtCtrls,
QRExport, QRPDFFilt;
type
TPreview = class(TForm)
QRPreview1: TQRPreview;
ActionManager1: TActionManager;
ImageList1: TImageList;
FileSaveAs1: TFileSaveAs;
FilePrintSetup1: TFilePrintSetup;
ActionToolBar1: TActionToolBar;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FileSaveAs1Accept(Sender: TObject);
private
public
end;
var
Preview: TPreview;
implementation
uses main, reporte;
{$R *.dfm}
procedure TPreview.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Mainform.Enabled := true;
end;
procedure TPreview.FileSaveAs1Accept(Sender: TObject);
begin
showmessage(FileSaveAs1.Dialog.FileName);
end;
end.