s393639/Pracownia_C_Plus_Plus
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Usuń 'Unit1.cpp'

Browse Source
This commit is contained in:
Aleksander Misztal 2019-02-09 11:05:46 +00:00
parent e7c10f1e4a
commit 079fe83ff5
1 changed files with 0 additions and 181 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

181
Unit1.cpp
View File

@ -1,181 +0,0 @@
//---------------------------------------------------------------------------
#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();
}
//---------------------------------------------------------------------------