AÇIKLAMA

Bu proje ile birlikte not defteri uygulaması geliştirilmeye çalışılmıştır. Bu program ile birlikte not defteri benzeri programların yapılması konusunda örnek teşkil eder.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

Program Kodu:

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::YeniCtrlN1Click(TObject *Sender)
{
if(RichEdit1->Modified)
{
int a=Application->MessageBox("Değişiklik Var Kayıt Etmek İster misiniz?", "Uyarı",MB_ICONINFORMATION+MB_YESNOCANCEL);
  switch(a)
  {
     case IDYES: KaydetCtrlS1->Click(); RichEdit1->Lines->Clear(); Caption="Hatıra Defteri"; break;
     case IDNO:  RichEdit1->Lines->Clear(); Caption="Hatıra Defteri"; break;
     case IDCANCEL: break;
  }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KaydetCtrlS1Click(TObject *Sender)
{   if(RichEdit1->Modified)
{
if(Caption=="Hatıra Defteri")
{
FarklKaydet1->Click();
 
}
else
{
   RichEdit1->Lines->SaveToFile(Caption);
}}
else
Application->MessageBox("Dosyanızda Bir Değişiklik Olmamıştır","Uyarı",MB_ICONINFORMATION) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ACtrlO1Click(TObject *Sender)
{
if(RichEdit1->Modified)
 
        YeniCtrlN1->Click();
  if(OpenDialog1->Execute())
     {
       RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
       Caption=OpenDialog1->FileName;
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
int yer=0,adet=0;
RichEdit1->HideSelection=false;
SaveDialog1->DefaultExt="htr";
 OpenDialog1->DefaultExt="htr";
OpenDialog1->Filter="Hatıra Dosyaları (*.htr) |*.htr| Bütün Dosyalar (*.*) |*.*";
 SaveDialog1->Filter="Hatıra Dosyaları (*.htr) |*.htr| Bütün Dosyalar (*.*) |*.*";
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FarklKaydet1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
  {
  RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
  Caption=SaveDialog1->FileName;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::YazdrCtrlP1Click(TObject *Sender)
{
PrintDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::k1Click(TObject *Sender)
{
if(RichEdit1->Lines->Count>0)
{
       YeniCtrlN1->Click();
       Form1->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TmnSeCtrlA1Click(TObject *Sender)
{
RichEdit1->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TarihSaat1Click(TObject *Sender)
{
RichEdit1->Text=TimeToStr(Time()) +"   "+ DateToStr(Date());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KesCtrlX1Click(TObject *Sender)
{
RichEdit1->CutToClipboard();
YaptrCtrlV1->Enabled=true;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KopyalaCtrlC1Click(TObject *Sender)
{
RichEdit1->CopyToClipboard();
YaptrCtrlV1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::YaptrCtrlV1Click(TObject *Sender)
{
RichEdit1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SilDel1Click(TObject *Sender)
{
RichEdit1->ClearSelection();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RenkSeimi1Click(TObject *Sender)
{    if(ColorDialog1->Execute())
RichEdit1->Font->Color=ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::YazTipi1Click(TObject *Sender)
{
if(FontDialog1->Execute())
  RichEdit1->Font=FontDialog1->Font;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Dzen1Click(TObject *Sender)
{
if(RichEdit1->Lines->Count==0)
{
  BulCtrlF1->Enabled=false;
  SonrakiniBulCtrl1->Enabled=false;
  DeitirCtrlH1->Enabled=false;
}
else
{
  BulCtrlF1->Enabled=true;
  DeitirCtrlH1->Enabled=true;
  SonrakiniBulCtrl1->Enabled=true;
}
if(RichEdit1->SelText=="")
{
KopyalaCtrlC1->Enabled=false;
KesCtrlX1->Enabled=false;
SilDel1->Enabled=false;
YaptrCtrlV1->Enabled=true;
}
else
{
KopyalaCtrlC1->Enabled=true;
KesCtrlX1->Enabled=true;
SilDel1->Enabled=true;
}
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
 
static yer=0,adet=0;
AnsiString s,f;
int b;
f=FindDialog1->FindText;
s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
if (!FindDialog1->Options.Contains(frMatchCase) )
{
f=f.UpperCase();
s.UpperCase();
}
b=s.Pos(f);
yer=yer+b;
if (b==0)
if (adet==0)
  ShowMessage(f+"Bulunamadı");
  else
  {
  ShowMessage("Arama Tamamlandı");
  FindDialog1->CloseDialog();
  adet=0;
  yer=0;
  }
  else
  {
  RichEdit1->SelStart=yer-1;
  RichEdit1->SelLength=f.Length();
 
  }
  adet++;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BulCtrlF1Click(TObject *Sender)
{
FindDialog1->Options=FindDialog1->Options<<frHideUpDown<<
frHideWholeWord;
FindDialog1->FindText=RichEdit1->SelText;
FindDialog1->Execute();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SonrakiniBulCtrl1Click(TObject *Sender)
{
FindDialog1->Options=FindDialog1->Options<<frHideUpDown<<
frHideWholeWord;
FindDialog1->FindText=RichEdit1->SelText;
FindDialog1->Execute();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::DeitirCtrlH1Click(TObject *Sender)
{
ReplaceDialog1->Options=ReplaceDialog1->Options<<frHideUpDown<<
frHideWholeWord;
ReplaceDialog1->FindText=RichEdit1->SelText;
ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ReplaceDialog1Find(TObject *Sender)
{
AnsiString s,f;
int b,yer,adet;
f=ReplaceDialog1->FindText;
s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
if(!ReplaceDialog1->Options.Contains(frMatchCase))
{
f=f.UpperCase();
s=s.UpperCase();
}
b=s.Pos(f);
yer=yer+b;
if(b==0)
if (adet==0)
ShowMessage(f+"Bulunamadı");
  else
  {
  ShowMessage("Arama Tamamlandı");
  FindDialog1->CloseDialog();
  adet=0;
  yer=0;
  }
  else
  {
  RichEdit1->SelStart=yer-1;
  RichEdit1->SelLength=f.Length();
 
  }
  adet++;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
AnsiString s,f,r,sec;
int b,yer,adet;
bool d;
f=ReplaceDialog1->FindText;
r=ReplaceDialog1->ReplaceText;
s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
if(!ReplaceDialog1->Options.Contains(frMatchCase))
{
f=f.UpperCase();
s=s.UpperCase();
d=(stricmp(RichEdit1->SelText.c_str(),f.c_str())==0);
}
else
d=(RichEdit1->SelText==f);
if(ReplaceDialog1->Options.Contains(frReplace))
{
if(d)
{
RichEdit1->SelText=r;
yer=yer+r.Length()-1;
s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
if(!ReplaceDialog1->Options.Contains(frMatchCase))
s=s.UpperCase();
}
b=s.Pos(f);
yer+=b;
if(b==0)
{
if (adet==0)
ShowMessage(f+"Bulunamadı");
else
ShowMessage("Değiştirme Tamamlandı");
ReplaceDialog1->CloseDialog();
adet=0;
yer=0;
}
else
{
RichEdit1->SelStart=yer-1;
RichEdit1->SelLength=f.Length();
}
adet++;
}
else
{
b=s.Pos(f);
yer+=b;
while(b!=0)
{
adet++;
RichEdit1->SelStart=yer-1;
RichEdit1->SelLength=f.Length();
RichEdit1->SelText=r;
yer+=r.Length()-1;
s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
if(!ReplaceDialog1->Options.Contains(frMatchCase))
s=s.UpperCase();
b=s.Pos(f);
yer+=b;
}
ShowMessage(IntToStr(adet)+ "adet değiştirildi");
ReplaceDialog1->CloseDialog();
adet=0;
yer=0;
 }
 
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::GitCtrlH1Click(TObject *Sender)
{
int a=StrToInt(InputBox("Satır Girişi","Gidilecek Satırı Yazınız",""));
RichEdit1->Lines->Insert(a,"");
RichEdit1->Lines->Delete(a);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::DefterHakknda1Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------