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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString nazwapliku="";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Otwrz2Click(TObject *Sender)
{
  if (OpenDialog1->Execute()){

        try{
                tresc->Lines->LoadFromFile(OpenDialog1->FileName);
                nazwapliku = OpenDialog1->FileName;
           }
        catch (...){
        ShowMessage("Błąd otwarcia pliku. Upewnij się, że plik istnieje na dysku");

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

void __fastcall TForm1::Zapisz1Click(TObject *Sender)
{
      if (nazwapliku!=""){
      tresc->Lines->SaveToFile(nazwapliku);
      }
      else{
      Form1->Zapiszjako1Click(MainMenu1);

      }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapiszjako1Click(TObject *Sender)
{
 if (SaveDialog1->Execute()){

        try{
                tresc->Lines->SaveToFile(SaveDialog1->FileName);
                nazwapliku = SaveDialog1->FileName;
           }
        catch (...){
        ShowMessage("Zapis zakończył się niepowodzeniem.");
        }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Nowy1Click(TObject *Sender)
{
        if(Application->MessageBox("Czy na pewno utworzyć nowy plik ?","Potwierdź",
        MB_YESNOCANCEL | MB_ICONQUESTION) == IDYES ){
        tresc->Lines->Clear();
        nazwapliku="";
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::trescKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Shift.Contains(ssCtrl))
        {
                if((Key == 's') || (Key =='S')){
                   Form1->Zapisz1Click(MainMenu1);
                }
        }
        if (Shift.Contains(ssCtrl))
        {
                if((Key == 'n') || (Key =='N')){
                   Form1->Otwrz2Click(MainMenu1);
                }
        }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Zakocz1Click(TObject *Sender)
{
        if(Application->MessageBox("Czy na pewno zakończyć program ?","Potwierdź",
        MB_YESNO | MB_ICONQUESTION) == IDYES ){
        Application->Terminate();
        }


}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
     if(Application->MessageBox("Czy na pewno zakończyć program ?","Potwierdź",
        MB_YESNO | MB_ICONQUESTION) == IDNO ){
        Action=caNone;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Wytnijcrtx1Click(TObject *Sender)
{
        tresc->CutToClipboard();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Kopiiuj1Click(TObject *Sender)
{
     tresc->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WklejCtrlV1Click(TObject *Sender)
{
     tresc->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zawijaniewierszy1Click(TObject *Sender)
{

        if(Zawijaniewierszy1->Checked==true)
        {
          Zawijaniewierszy1->Checked=false;
          tresc->WordWrap=false;
          tresc->ScrollBars = ssBoth;

        }
        else
        {
          Zawijaniewierszy1->Checked=true;
          tresc->WordWrap=true;
          tresc->ScrollBars = ssVertical;

        }





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

void __fastcall TForm1::Ccionka1Click(TObject *Sender)
{
        if(FontDialog1->Execute())
        {
        tresc->Font->Name = FontDialog1->Font->Name;

        tresc->Font->Color = FontDialog1->Font->Color;

        tresc->Font->Size = FontDialog1->Font->Size;

        tresc->Font->Style = FontDialog1->Font->Style;
        }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Oprogramie1Click(TObject *Sender)
{
        Form2->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::WujekGoogle1Click(TObject *Sender)
{
        ShellExecute(NULL,"open","https://www.google.pl", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Kalkulator1Click(TObject *Sender)
{
        Form3->ShowModal();
}
//---------------------------------------------------------------------------