• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

[CR] Obiektowy C++ (#8): Własny Notatnik w Builderze

VPS Starter Arubacloud
+3 głosów
1,657 wizyt
pytanie zadane 14 maja 2016 w Nasze poradniki przez Mirosław Zelent Nałogowiec (34,750 p.)

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​

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

+4 głosów
1 odpowiedź 2,242 wizyt
+1 głos
2 odpowiedzi 2,087 wizyt
+1 głos
1 odpowiedź 2,091 wizyt

92,455 zapytań

141,263 odpowiedzi

319,100 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...