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 )  
404 Not Found

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.