diff --git a/Unit1.~cpp b/Unit1.~cpp deleted file mode 100644 index 6bc7771..0000000 --- a/Unit1.~cpp +++ /dev/null @@ -1,181 +0,0 @@ -//--------------------------------------------------------------------------- - -#include -#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(); -} -//--------------------------------------------------------------------------- -