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

Anasayfa Programlama C++ Builder Form Ölçekleme Kes Yapıştır Kopyala Aktif Bileşen


Form Ölçekleme Kes Yapıştır Kopyala Aktif Bileşen

C++ Builder 6 ile uyumludur.

AÇIKLAMA

Bu projede birbiri üzerine binmiş nesnelerden seçileni öne getirme,bunun yanında bu bileşenler üzerinde bulunan metinlerde kes,kopyala  ve yapıştır işlemlerine değinilmiştir. Bunlardan ayrı olarakda form içinde bulunan bileşenlerinde istenilen oradan büyütüp küçültülme (ölçekleme) işlemlerine de yer verilmiştir.

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;    int p=100,a;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18.  
  19.  
  20. void __fastcall TForm1::Memo1DblClick(TObject *Sender)
  21. {
  22. Form1->ActiveControl->SendToBack();
  23. }
  24. //---------------------------------------------------------------------------
  25.  
  26. void __fastcall TForm1::Memo1Click(TObject *Sender)
  27. {
  28. Form1->ActiveControl->BringToFront();
  29. }
  30. //---------------------------------------------------------------------------
  31.  
  32. void __fastcall TForm1::KES1Click(TObject *Sender)
  33. {
  34. if(Memo1->SelText=="")
  35. ShowMessage("Seçili Kısım Yok");
  36. else
  37. Memo1->CutToClipboard();
  38. }
  39. //---------------------------------------------------------------------------
  40.  
  41. void __fastcall TForm1::YAPITIR1Click(TObject *Sender)
  42. {
  43. if(Form1->ActiveControl==Memo1)
  44. {
  45. Memo1->PasteFromClipboard();
  46. Memo1->Lines->Add("");
  47. }
  48. if(Form1->ActiveControl==Memo2)
  49. {
  50. Memo2->PasteFromClipboard();
  51. Memo2->Lines->Add("");
  52. }
  53. if(Form1->ActiveControl==Memo3)
  54. {
  55. Memo3->PasteFromClipboard();
  56. Memo3->Lines->Add("");
  57. }
  58. }
  59. //---------------------------------------------------------------------------
  60. void __fastcall TForm1::KOPYALA1Click(TObject *Sender)
  61. {
  62. if(Memo1->SelText=="")
  63. ShowMessage("Seçili Kısım Yok");
  64. else
  65. Memo1->CopyToClipboard();
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::ComboBox1Change(TObject *Sender)
  69. {
  70.  
  71. a=StrToInt(ComboBox1->Text);
  72. Form1->ScaleBy(100,p);
  73. Form1->ScaleBy(a,100);
  74. p=a;
  75.  
  76. }
  77. //---------------------------------------------------------------------------
  78.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Perşembe, 07 Nisan 2011 22:53 )