Problem z notatnikiem w c++

Question

Hejka,

Stworzyłem notatnik w obiektowym c++ wszystko działa poza jednym małym szczegółem. Wpisuje tekst i gdy wpiszę literkę "ą" to tekst cały się nagle kasuje. Możliwe, że jest to spowodowane metodą, którą dodałem w postaci zaznaczania całego tekstu na polu memo ale zbindowane jest na Ctrl+a. Proszę o pomoc i z góry dzięki.

 

Answer 1

Kod.

Comments

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString nazwapliku="";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Otwrz1Click(TObject *Sender)
{
   if (OpenDialog1->Execute())
   {
      try {

      tresc->Lines->LoadFromFile(OpenDialog1->FileName);
      nazwapliku = OpenDialog1->FileName;

      }

      catch (...)
      {

          ShowMessage("Błąd podczas otwierania Pliku!\nUpewnij się, że plik istnieje na dysku :)");

      }
   }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapiszjako1Click(TObject *Sender)
{
    if (SaveDialog1->Execute())
   {
      try {

      tresc->Lines->SaveToFile(SaveDialog1->FileName);
      nazwapliku = SaveDialog1->FileName;

      }

      catch (...)
      {

          ShowMessage("Nie udało zapisac się pliku :(");

      }
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapisz1Click(TObject *Sender)
{
        if (nazwapliku!="")
        {
                tresc->Lines->SaveToFile(nazwapliku);
        }

        else {
                Form1->Zapiszjako1Click(MainMenu1);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Nowy1Click(TObject *Sender)
{
        if(Application->MessageBoxA("Czy aby na pewno chcesz utowrzyć nowy plik ? :D"
        ,"Potwierdź",MB_YESNOCANCEL  |  MB_ICONQUESTION) == IDYES )
        {
           tresc->Lines->Clear();
           nazwapliku="";     
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::trescKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if (Shift.Contains(ssCtrl))
    {
      if ((Key == 's') || (Key == 'S'))
      {
        Form1->Zapisz1Click(MainMenu1);
      }

      if ((Key == 'n') || (Key == 'N'))
      {
        Form1->Nowy1Click(MainMenu1);
      }

       if ((Key == 'a') || (Key == 'A'))
      {
        tresc->SelectAll();
      }

    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zakocz1Click(TObject *Sender)
{
        if(Application->MessageBoxA("Czy aby na pewno chcesz zakończyć program?"
        ,"Potwierdź",MB_YESNO  |  MB_ICONQUESTION) == IDYES )
        {
                Application->Terminate();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
           if(Application->MessageBoxA("Czy aby na pewno chcesz zakończyć program?"
        ,"Potwierdź",MB_YESNO  |  MB_ICONQUESTION) == IDNO )
        {
           Action=caNone;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Wytnij1Click(TObject *Sender)
{
        tresc->CutToClipboard();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KopiujCtrlC1Click(TObject *Sender)
{
        tresc->CopyToClipboard();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WklejCtrlV1Click(TObject *Sender)
{
        tresc->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zawijaniewierszy1Click(TObject *Sender)
{
   if (Zawijaniewierszy1->Checked==true)
   {
      Zawijaniewierszy1->Checked=false;
      tresc->WordWrap=false;
      tresc->ScrollBars = ssBoth;

   }
   else
   {
      Zawijaniewierszy1->Checked=true;
      tresc->WordWrap = true;
      tresc->ScrollBars = ssVertical;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::WybierzCzcionk2Click(TObject *Sender)
{
    if (FontDialog1->Execute())
    {
       //kroj
       tresc->Font->Name = FontDialog1->Font->Name;

       //kolor
       tresc->Font->Color = FontDialog1->Font->Color;

       //Rozmiar
       tresc->Font->Size = FontDialog1->Font->Size;

       //Styl
       tresc->Font->Style = FontDialog1->Font->Style;

    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Oprogramie1Click(TObject *Sender)
{
   Form2->ShowModal();    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Zapraszamnabloga1Click(TObject *Sender)
{
        ShellExecute(NULL, "open", "http://mydeb.pl", NULL, NULL, SW_SHOWNORMAL);        
}
//---------------------------------------------------------------------------

 

---

Wiem że nie o to pytałeś,ale jako perfekcjonista nie mógłbym przejść obojętnie "Błąd podczas otwierania Pliku!\nUpewnij się, że plik istnieje na dysku :)" Te "n" chyba jest tam przypadkowo? Zgadza się?

---

Tak szczerzę to chciałem zrobić odstęp między wierszami przyznaje się bez bicia.

Answer 2

spróbuj zmienić literkę a lub A  na np. q || Q do selectAll() i zobacz czy problem nadal występuje. Wydaje mi się ze w momencie tego jak przechwyci kombinacje klawiszy do zaznaczania wszystkiego, zaznacza cały tekst a potem wpisuje ą kasując zaznaczenie.

Comments

Teraz wszystko działa zmieniłem na d. Ale zastanawiam się co było przyczyną i czy da rady binda na ą ustawić.