CR = Code Review. O co chodzi? Zajrzyj tutaj
Pełna lista wszystkich Code Review? Zajrzyj tutaj
https://www.youtube.com/watch?v=0gs1LDbXF0k
Unit1.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString nazwapliku="";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Otwrz1Click(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::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::Zapisz1Click(TObject *Sender)
{
if (nazwapliku!="")
{
tresc->Lines->SaveToFile(nazwapliku);
}
else
{
Form1->Zapiszjako1Click(MainMenu1);
}
}
//---------------------------------------------------------------------------
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);
}
}
}
//---------------------------------------------------------------------------
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::Wytnij1Click(TObject *Sender)
{
tresc->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KopiujCtrlC1Click(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::czcionka1Click(TObject *Sender)
{
if (FontDialog1->Execute())
{
//kroj
tresc->Font->Name = FontDialog1->Font->Name;
//kolor
tresc->Font->Color = FontDialog1->Font->Color;
//rozmiar
tresc->Font->Size = FontDialog1->Font->Size;
//styl
tresc->Font->Style = FontDialog1->Font->Style;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Oprogramie1Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapraszamnabloga1Click(TObject *Sender)
{
ShellExecute(NULL,"open","http://miroslawzelent.pl", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
Unit2.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form2->Close();
}
//---------------------------------------------------------------------------
Paczka z odcinka: POBIERZ