Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder Memo nesnesinde Kalın Eğik Altı Çizili Yazma Çalışma Zamanında RadioGroup RadioButton Bileşen Ekleme


Memo nesnesinde Kalın Eğik Altı Çizili Yazma Çalışma Zamanında RadioGroup RadioButton Bileşen Ekleme

AÇIKLAMA

C++ Builder 6 ile uyumludur. 

Proje içerisinde iki farklı konuya değinilmiştir. Memo1 içindeki yazıların kalın(bold), eğik(italic), altı çizili (underline) olup olmamaması 3 adet checkbox kontrolü ile sağlanmıştır. Çıkışta dosyaya kaydet işaretli ise dosya C dizini altında deneme.doc olarak kaydedilmiştir. Uzantının doc olması veriyi formatlı (bold,italic vs) kaydedeceği anlamına gelmez, dolayısıyla sadece düz metin olarak kaydedilir. Radiogroup kısmında ise ekle ve sil butonları yardımıyla RadioButton'lar gruba eklenir ve silinir.

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

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

Üye Kayıt

Program Kodu:

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18. void __fastcall TForm1::CheckBox1Click(TObject *Sender)
  19. {
  20. if(CheckBox1->Checked)
  21. Memo1->Font->Style=Memo1->Font->Style<<fsBold;
  22. else
  23. Memo1->Font->Style=Memo1->Font->Style>>fsBold;
  24. }
  25. //---------------------------------------------------------------------------
  26.  
  27. void __fastcall TForm1::CheckBox2Click(TObject *Sender)
  28. {
  29.  if(CheckBox2->Checked)
  30. Memo1->Font->Style=Memo1->Font->Style<<fsItalic;
  31. else
  32. Memo1->Font->Style=Memo1->Font->Style>>fsItalic;
  33. }
  34. //---------------------------------------------------------------------------
  35. void __fastcall TForm1::CheckBox3Click(TObject *Sender)
  36. {
  37. if(CheckBox3->Checked)
  38. Memo1->Font->Style=Memo1->Font->Style<<fsUnderline;
  39. else
  40. Memo1->Font->Style=Memo1->Font->Style>>fsUnderline;
  41. }
  42. //---------------------------------------------------------------------------
  43. void __fastcall TForm1::CheckBox4Click(TObject *Sender)
  44. {
  45. if(CheckBox4->Checked)
  46. Memo1->Lines->SaveToFile("C:\\deneme.doc");
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TForm1::Button1Click(TObject *Sender)
  50. {
  51. RadioGroup1->Items->Add(InputBox("Yeni Düğme Oluşturma","Düğmenin Başlığını Giriniz","Seçenek"));
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::Button2Click(TObject *Sender)
  55. {
  56. if(RadioGroup1->ItemIndex<0)
  57. Application->MessageBox("Silinecek Butonu Seçiniz","UYARI",MB_ICONINFORMATION);
  58. else
  59. {
  60. int c=Application->MessageBox("Silmek İstediğinizden Eminmisiniz?","SİLME",MB_YESNOCANCEL+MB_ICONQUESTION);
  61. if(c==mrYes)
  62. RadioGroup1->Items->Delete(RadioGroup1->ItemIndex);
  63. }
  64. }
  65. //---------------------------------------------------------------------------
Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Pazartesi, 03 Eylül 2012 15:49 )