| Class TCanSaveDialog (unit FmCanSav) |
TForm
3 Nov 97: - added CanSaveDialog.Free in finalization 9 Nov 97: - ifdef'd that statement out for Delphi 1
| Constructors |
| Functions |
procedure SaveAsButtonClick(Sender: TObject);
function Execute(Filename: String): Boolean;| Properties |
| Events |
| Variables |
Button1 : TButton;
Button3 : TButton;
FilenameLabel : TLabel;
Image1 : TImage;
Label2 : TLabel;
SaveAsButton : TButton;
SaveDialog : TSaveDialog;
Filename : String;| Constructors |
| Functions |
procedure SaveAsButtonClick(Sender: TObject);
function Execute(Filename: String): Boolean;TCanSaveDialog.SaveAsButtonClick
| Properties |
| Events |
| Variables |
Button1 : TButton;
Button3 : TButton;
FilenameLabel : TLabel;
Image1 : TImage;
Label2 : TLabel;
SaveAsButton : TButton;
SaveDialog : TSaveDialog;
Filename : String;Public declarations