Hazır Program

Anasayfa Programlama C++ Builder Not Defteri Programı


Not Defteri Programı

Pazartesi, 22 Haziran 2009 17:00 Burhan ŞENYUVA
E-posta Yazdır

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.

Projenin Tamamını Aşağıdaki Linkten İndirebilirsiniz.

Program Kodu:

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. #include "Unit2.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18.  
  19. void __fastcall TForm1::YeniCtrlN1Click(TObject *Sender)
  20. {
  21. if(RichEdit1->Modified)
  22. {
  23. int a=Application->MessageBox("Değişiklik Var Kayıt Etmek İster misiniz?", "Uyarı",MB_ICONINFORMATION+MB_YESNOCANCEL);
  24.   switch(a)
  25.   {
  26.      case IDYES: KaydetCtrlS1->Click(); RichEdit1->Lines->Clear(); Caption="Hatıra Defteri"; break;
  27.      case IDNO:  RichEdit1->Lines->Clear(); Caption="Hatıra Defteri"; break;
  28.      case IDCANCEL: break;
  29.   }
  30. }
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TForm1::KaydetCtrlS1Click(TObject *Sender)
  34. {   if(RichEdit1->Modified)
  35. {
  36. if(Caption=="Hatıra Defteri")
  37. {
  38. FarklKaydet1->Click();
  39.  
  40. }
  41. else
  42. {
  43.    RichEdit1->Lines->SaveToFile(Caption);
  44. }}
  45. else
  46. Application->MessageBox("Dosyanızda Bir Değişiklik Olmamıştır","Uyarı",MB_ICONINFORMATION) ;
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TForm1::ACtrlO1Click(TObject *Sender)
  50. {
  51. if(RichEdit1->Modified)
  52.  
  53.         YeniCtrlN1->Click();
  54.   if(OpenDialog1->Execute())
  55.      {
  56.        RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
  57.        Caption=OpenDialog1->FileName;
  58.      }
  59. }
  60. //---------------------------------------------------------------------------
  61. void __fastcall TForm1::FormCreate(TObject *Sender)
  62. {
  63.  
  64. int yer=0,adet=0;
  65. RichEdit1->HideSelection=false;
  66. SaveDialog1->DefaultExt="htr";
  67.  OpenDialog1->DefaultExt="htr";
  68. OpenDialog1->Filter="Hatıra Dosyaları (*.htr) |*.htr| Bütün Dosyalar (*.*) |*.*";
  69.  SaveDialog1->Filter="Hatıra Dosyaları (*.htr) |*.htr| Bütün Dosyalar (*.*) |*.*";
  70.  
  71. }
  72. //---------------------------------------------------------------------------
  73. void __fastcall TForm1::FarklKaydet1Click(TObject *Sender)
  74. {
  75. if(SaveDialog1->Execute())
  76.   {
  77.   RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
  78.   Caption=SaveDialog1->FileName;
  79.   }
  80. }
  81. //---------------------------------------------------------------------------
  82. void __fastcall TForm1::YazdrCtrlP1Click(TObject *Sender)
  83. {
  84. PrintDialog1->Execute();
  85. }
  86. //---------------------------------------------------------------------------
  87. void __fastcall TForm1::k1Click(TObject *Sender)
  88. {
  89. if(RichEdit1->Lines->Count>0)
  90. {
  91.        YeniCtrlN1->Click();
  92.        Form1->Close();
  93. }
  94. }
  95. //---------------------------------------------------------------------------
  96. void __fastcall TForm1::TmnSeCtrlA1Click(TObject *Sender)
  97. {
  98. RichEdit1->SelectAll();
  99. }
  100. //---------------------------------------------------------------------------
  101. void __fastcall TForm1::TarihSaat1Click(TObject *Sender)
  102. {
  103. RichEdit1->Text=TimeToStr(Time()) +"   "+ DateToStr(Date());
  104. }
  105. //---------------------------------------------------------------------------
  106. void __fastcall TForm1::KesCtrlX1Click(TObject *Sender)
  107. {
  108. RichEdit1->CutToClipboard();
  109. YaptrCtrlV1->Enabled=true;
  110.  
  111. }
  112. //---------------------------------------------------------------------------
  113. void __fastcall TForm1::KopyalaCtrlC1Click(TObject *Sender)
  114. {
  115. RichEdit1->CopyToClipboard();
  116. YaptrCtrlV1->Enabled=true;
  117. }
  118. //---------------------------------------------------------------------------
  119. void __fastcall TForm1::YaptrCtrlV1Click(TObject *Sender)
  120. {
  121. RichEdit1->PasteFromClipboard();
  122. }
  123. //---------------------------------------------------------------------------
  124. void __fastcall TForm1::SilDel1Click(TObject *Sender)
  125. {
  126. RichEdit1->ClearSelection();
  127. }
  128. //---------------------------------------------------------------------------
  129. void __fastcall TForm1::RenkSeimi1Click(TObject *Sender)
  130. {    if(ColorDialog1->Execute())
  131. RichEdit1->Font->Color=ColorDialog1->Color;
  132. }
  133. //---------------------------------------------------------------------------
  134. void __fastcall TForm1::YazTipi1Click(TObject *Sender)
  135. {
  136. if(FontDialog1->Execute())
  137.   RichEdit1->Font=FontDialog1->Font;        
  138. }
  139. //---------------------------------------------------------------------------
  140. void __fastcall TForm1::Dzen1Click(TObject *Sender)
  141. {
  142. if(RichEdit1->Lines->Count==0)
  143. {
  144.   BulCtrlF1->Enabled=false;
  145.   SonrakiniBulCtrl1->Enabled=false;
  146.   DeitirCtrlH1->Enabled=false;
  147. }
  148. else
  149. {
  150.   BulCtrlF1->Enabled=true;
  151.   DeitirCtrlH1->Enabled=true;
  152.   SonrakiniBulCtrl1->Enabled=true;
  153. }
  154. if(RichEdit1->SelText=="")
  155. {
  156. KopyalaCtrlC1->Enabled=false;
  157. KesCtrlX1->Enabled=false;
  158. SilDel1->Enabled=false;
  159. YaptrCtrlV1->Enabled=true;
  160. }
  161. else
  162. {
  163. KopyalaCtrlC1->Enabled=true;
  164. KesCtrlX1->Enabled=true;
  165. SilDel1->Enabled=true;
  166. }
  167. }
  168. //---------------------------------------------------------------------------
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175. void __fastcall TForm1::FindDialog1Find(TObject *Sender)
  176. {
  177.  
  178. static yer=0,adet=0;
  179. AnsiString s,f;
  180. int b;
  181. f=FindDialog1->FindText;
  182. s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
  183. if (!FindDialog1->Options.Contains(frMatchCase) )
  184. {
  185. f=f.UpperCase();
  186. s.UpperCase();
  187. }
  188. b=s.Pos(f);
  189. yer=yer+b;
  190. if (b==0)
  191. if (adet==0)
  192.   ShowMessage(f+"Bulunamadı");
  193.   else
  194.   {
  195.   ShowMessage("Arama Tamamlandı");
  196.   FindDialog1->CloseDialog();
  197.   adet=0;
  198.   yer=0;
  199.   }
  200.   else
  201.   {
  202.   RichEdit1->SelStart=yer-1;
  203.   RichEdit1->SelLength=f.Length();
  204.  
  205.   }
  206.   adet++;
  207. }
  208. //---------------------------------------------------------------------------
  209.  
  210. void __fastcall TForm1::BulCtrlF1Click(TObject *Sender)
  211. {
  212. FindDialog1->Options=FindDialog1->Options<<frHideUpDown<<
  213. frHideWholeWord;
  214. FindDialog1->FindText=RichEdit1->SelText;
  215. FindDialog1->Execute();
  216. }
  217. //---------------------------------------------------------------------------
  218.  
  219. void __fastcall TForm1::SonrakiniBulCtrl1Click(TObject *Sender)
  220. {
  221. FindDialog1->Options=FindDialog1->Options<<frHideUpDown<<
  222. frHideWholeWord;
  223. FindDialog1->FindText=RichEdit1->SelText;
  224. FindDialog1->Execute();        
  225. }
  226. //---------------------------------------------------------------------------
  227.  
  228. void __fastcall TForm1::DeitirCtrlH1Click(TObject *Sender)
  229. {
  230. ReplaceDialog1->Options=ReplaceDialog1->Options<<frHideUpDown<<
  231. frHideWholeWord;
  232. ReplaceDialog1->FindText=RichEdit1->SelText;
  233. ReplaceDialog1->Execute();
  234. }
  235. //---------------------------------------------------------------------------
  236.  
  237. void __fastcall TForm1::ReplaceDialog1Find(TObject *Sender)
  238. {
  239. AnsiString s,f;
  240. int b,yer,adet;
  241. f=ReplaceDialog1->FindText;
  242. s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
  243. if(!ReplaceDialog1->Options.Contains(frMatchCase))
  244. {
  245. f=f.UpperCase();
  246. s=s.UpperCase();
  247. }
  248. b=s.Pos(f);
  249. yer=yer+b;
  250. if(b==0)
  251. if (adet==0)
  252. ShowMessage(f+"Bulunamadı");
  253.   else
  254.   {
  255.   ShowMessage("Arama Tamamlandı");
  256.   FindDialog1->CloseDialog();
  257.   adet=0;
  258.   yer=0;
  259.   }
  260.   else
  261.   {
  262.   RichEdit1->SelStart=yer-1;
  263.   RichEdit1->SelLength=f.Length();
  264.  
  265.   }
  266.   adet++;
  267.  
  268. }
  269. //---------------------------------------------------------------------------
  270.  
  271. void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
  272. {
  273. AnsiString s,f,r,sec;
  274. int b,yer,adet;
  275. bool d;
  276. f=ReplaceDialog1->FindText;
  277. r=ReplaceDialog1->ReplaceText;
  278. s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
  279. if(!ReplaceDialog1->Options.Contains(frMatchCase))
  280. {
  281. f=f.UpperCase();
  282. s=s.UpperCase();
  283. d=(stricmp(RichEdit1->SelText.c_str(),f.c_str())==0);
  284. }
  285. else
  286. d=(RichEdit1->SelText==f);
  287. if(ReplaceDialog1->Options.Contains(frReplace))
  288. {
  289. if(d)
  290. {
  291. RichEdit1->SelText=r;
  292. yer=yer+r.Length()-1;
  293. s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
  294. if(!ReplaceDialog1->Options.Contains(frMatchCase))
  295. s=s.UpperCase();
  296. }
  297. b=s.Pos(f);
  298. yer+=b;
  299. if(b==0)
  300. {
  301. if (adet==0)
  302. ShowMessage(f+"Bulunamadı");
  303. else
  304. ShowMessage("Değiştirme Tamamlandı");
  305. ReplaceDialog1->CloseDialog();
  306. adet=0;
  307. yer=0;
  308. }
  309. else
  310. {
  311. RichEdit1->SelStart=yer-1;
  312. RichEdit1->SelLength=f.Length();
  313. }
  314. adet++;
  315. }
  316. else
  317. {
  318. b=s.Pos(f);
  319. yer+=b;
  320. while(b!=0)
  321. {
  322. adet++;
  323. RichEdit1->SelStart=yer-1;
  324. RichEdit1->SelLength=f.Length();
  325. RichEdit1->SelText=r;
  326. yer+=r.Length()-1;
  327. s=RichEdit1->Text.SubString(yer+1,RichEdit1->Text.Length()-yer+1);
  328. if(!ReplaceDialog1->Options.Contains(frMatchCase))
  329. s=s.UpperCase();
  330. b=s.Pos(f);
  331. yer+=b;
  332. }
  333. ShowMessage(IntToStr(adet)+ "adet değiştirildi");
  334. ReplaceDialog1->CloseDialog();
  335. adet=0;
  336. yer=0;
  337.  }
  338.  
  339. }
  340. //---------------------------------------------------------------------------
  341.  
  342.  
  343.  
  344.  
  345. void __fastcall TForm1::GitCtrlH1Click(TObject *Sender)
  346. {
  347. int a=StrToInt(InputBox("Satır Girişi","Gidilecek Satırı Yazınız",""));
  348. RichEdit1->Lines->Insert(a,"");
  349. RichEdit1->Lines->Delete(a);
  350. }
  351. //---------------------------------------------------------------------------
  352.  
  353. void __fastcall TForm1::DefterHakknda1Click(TObject *Sender)
  354. {
  355. Form2->Show();
  356. }
  357. //---------------------------------------------------------------------------
  358.  
  359.  

Yorumlar
Yeni Ekle Ara
+/-
Yorum yaz
Adınız:
E-posta:
 
Web Sayfas1:
Başlık:
UBB Kodu:
[b] [i] [u] [url] [quote] [code] [img] 
 
 
:angry::0:confused::cheer:B):evil::silly::dry::lol::kiss::D:pinch:
:(:shock::X:side::):P:unsure::woohoo::huh::whistle:;):s
:!::?::idea::arrow:
 
Lütfen resimdeki güvenlik kodunu giriniz.
metin   |88.231.210.xxx |2009-07-11 12:30:46
Süper Bir Program Ekleyen ve yapana çok çok teşekkürler
Yanıtla | Alıntı
0 0

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."

Son Güncelleme ( Cumartesi, 11 Temmuz 2009 16:41 )  

Anamenü

Diğer Menü

Üye Giriş Formu



Kimler Çevrimiçi

Yok