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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character


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 )  
amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım