Class TCanSaveDialog (unit FmCanSav)

Inherits from

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;

TCanSaveDialog.

Properties

Events

Variables

Button1 : TButton;


Button3 : TButton;


FilenameLabel : TLabel;


Image1 : TImage;


Label2 : TLabel;


SaveAsButton : TButton;


SaveDialog : TSaveDialog;


Filename : String;

Public declarations


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