//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString nazwapliku="";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Otworz1Click(TObject *Sender)
{
        try
        {
                if(OpenDialog1 -> Execute())
                {
                        Text -> Lines -> LoadFromFile(OpenDialog1 -> FileName);
                        nazwapliku=OpenDialog1 -> FileName;
                }
        }
        catch (...)
        {
                ShowMessage("Podany plik nie istnieje, lub jest uszkodzony");
        }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapiszjako1Click(TObject *Sender)
{
        try
        {
                if(SaveDialog1 -> Execute())
                {
                        Text -> Lines -> SaveToFile(SaveDialog1 -> FileName);
                        nazwapliku=SaveDialog1 -> FileName;
                }
        }
        catch (...)
        {
                ShowMessage("Zapis zakoñczy³ siê niepowodzeniem !");
        }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapisz1Click(TObject *Sender)
{
        if(nazwapliku!="")
        {
        Text -> Lines -> SaveToFile(nazwapliku);
        }
        else
        Form1 -> Zapiszjako1Click(MainMenu1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Nowy1Click(TObject *Sender)
{
        if(Application -> MessageBox("Czy na pewno chcesz utworzyæ nowy plik ? ", "PotwierdŸ", MB_YESNOCANCEL | MB_ICONQUESTION)== IDYES)
        {
          if(Application -> MessageBox("Czy chcesz zapisac aktualny plik ? ", "PotwierdŸ", MB_YESNO| MB_ICONQUESTION)== IDYES)
          {
                   if(nazwapliku!="")
                        {
                        Text -> Lines -> SaveToFile(nazwapliku);
                        }
                   else
                        Form1 -> Zapiszjako1Click(MainMenu1);
          }
          else
          {
           Text->Lines->Clear();
           nazwapliku="";
          }
        }


}
//---------------------------------------------------------------------------