Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure CmdSaveClick(Sender: TObject);

Source

190   procedure TPSMainForm.CmdSaveClick(Sender: TObject);
191   begin
192     if SaveDialog.Execute then
193     begin
194       Screen.Cursor := crHourglass;
195   
196       try
197         Memo.Lines.SaveToFile(SaveDialog.FileName);
198       finally
199         Screen.Cursor := crDefault;
200       end;
201     end;
202   end;