SaveFile()

| aForm, aMemo, aBtnS, aBtnC |

function DoOnResize(sender)
  aMemo.height := aForm.height-60,
  aBtnS.top    := aForm.height-50,
  aBtnC.top    := aForm.height-50,
end,

function save()
   | aDlg, cEndung |

   aDlg        := OpenDlg('Datei auswählen...', 'Text Dateien (*.txt)|*.txt|',
                          'Alle Dateien (*.*)|*.*'),
   aDlg.active := true,
   if aDlg.selected then
      if File(aDlg.filename) then
         if JN('Datei schon vorhanden! Überschreiben?') then
            SaveFile(aMemo.lines, aDlg.filename),
         endif,
      else,
         if TokenCount(aDlg.filename,'.') > 1 then
            cEndung := '',
         else,
            cEndung := '.txt',
         endif,
         SaveFile(aMemo.lines, aDlg.filename + cEndung),
      endif,
   endif,
end,

function DoOnClick(sender)
   case sender.name
      of 'save' :: save(),
      of 'exit' :: CloseForm(aForm),
   endcase,
end,

function DoOnClose(sender, canclose)
   if JN('Wirklich beenden?') then
      canclose := true,
   else,
      canclose := false,
   endif,
end,

aForm         := CreateObject('TForm'),
aForm.caption := 'SaveFile()',
aForm.height  := 500,
aForm.width   := 800,
aForm.left    := SCREENWIDTH - aForm.width,
aForm.top     := 200,

aMemo         := CreateObject('TMemo', '', aForm, aForm),
aMemo.align   := altop,

aBtnS         := CreateObject('TButton', 'save', aForm, aForm),

aBtnS.height  := 20,
aBtnS.width   := 100,
aBtnS.left    := 10,

aBtnC         := CreateObject('TButton', 'exit', aForm, aForm),

aBtnC.height  := 20,
aBtnC.width   := 100,
aBtnC.left    := aBtns.left+115,


AssignEvent(aForm, 'OnResize',     'DoOnResize'),
AssignEvent(aForm, 'OnCloseQuery', 'DoOnClose'),
AssignEvent(aBtnS, 'OnClick',      'DoOnClick'),
AssignEvent(aBtnC, 'OnClick',      'DoOnClick'),

ShowModal(aForm),

// Ergebnis: Eingabefenster mit einem 'Speichern'- und einem 'Beenden'-Button.
//           Der 'Speichern'-Button ruft ein Datenauswahl-Fenster auf,
//           in welchem der Speicherort festgelegt werden kann.
//           Wird eine bereits existierende Datei ausgewählt, wird gefragt,
//           ob diese überschrieben werden soll.