[Wx] wxTextCtrl und Ereignisse bei Tastendruck (Graphische Oberflächen)

[thread]19636[/thread]

[Wx] wxTextCtrl und Ereignisse bei Tastendruck

Tags: perl5 GUI WxPerl Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+3 replies
Gast Jürgen

2015-04-30 10:00
Hallo Perl-Community,

leider bin ich wieder mal auf eure Hilfe angewiesen:

Ich habe mir eine GUI mit WxFormBuilder erstellt.
Konkret geht es um das Widget "wxTextCtrl"

Ich nutze das Control zur einfachen Texteingabe.
Ich hätte nun gerne, dass ich bei folgenden Tastendrücke, folgende "Dinge" passieren:
- Tabulator-Taste: es sollen zwei Leerzeichen anstatt eines Tabs ausgegeben werden
- ESC-Taste: das gesamte Fenster soll einfach geschlossen werden

Ich habe es schon mit folgendem versucht, aber der Erfolg war mäßig :(
- mit Hilfe des Events "EVT_CHAR" in eine Funktion springen. Hier habe ich dann mittels:
Code (perl): (dl )

1 2

my ( $this, $event ) = @_; my $key = $event->GetKeyCode();
den Key-Code ausgelesen, und wenn er dem Wert des Tabulator-Taste entspricht, dann gebe ich auf das TextCtrl zwei Leerzeich aus.
So weit - so gut: mein Problem ist jetzt aber, dass ich keine anderen Eingaben mehr in dem TextCtrl sehe - ich kann nur noch mit der TAB-Taste Leerzeichen "reinmachen" :(

Nächster Versuch: in der eben beschriebenen Funktion habe ich den Code folgendermaßen erweitert:
Code (perl): (dl )

1 2 3 4 5 6 7 8

if ( $key == WXK_TAB ){ $this->FindWindow(Wx::XmlResource::GetXRCID('textCtrl_usr_input'))->AppendText(' '); } else{ if($key >= 32 ){ $this->FindWindow(Wx::XmlResource::GetXRCID('textCtrl_usr_input'))->AppendText(sprintf("%c", $key)); } }
Damit machte die TAB-Taste zwei Leerzeichen und ich kann meine "Buchstaben" schön eingeben.
Wenn ich jedoch Tasten wie "DEL", Pfeiltasten etc benutze, macht er mir nur komische Zeichen und ich kann im Text nicht mehr navigieren :(

Für das "Schließen" des Fensters mittels "ESC"-Taste hab ich noch nicht den leisesten Ansatz, da die ESC-Taste wohl keinen Key-Code hat :(

Was mache ich falsch?

Achja - nud vielleicht weiß auch jemand, wie ich es anstelle, dass wenn ich am Zeilenanfang zwei Leerzeichen habe, dass ich beim Springen in eine neue Zeile mittels "Enter" automatisch auch zwei Leerezichen am Anfang bekomme...

Kann mich bitte jemand in die richtigige Richtung schubsen?

Grüße
Jürgen
Last edited: 2015-04-30 10:12:35 +0200 (CEST)
- lichtkind
  
  2015-04-30 11:01
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  also als erstes mach mal eine else klausel auf und schreib da rein $event->Skip();
  
  Code (perl): (dl )
  
  1 2 3
  
  if ($key == WXK_TAB){ .. else { $event->Skip(); }
  
  das bewirkt: daß im else fall dein programm normal (default) auf die tastatur reagiert wird und nur deine spezialfälle das normalverhalten überschreiben(andere if und elsif klauseln). Ansonst hättest du den kompletten even gekapert har har und uss dich um jeden tastendruck sorgen.
  
  das zweite ist halt einfacher mit der STC zu machen weil dort jede zeile ihre einrückung kennt. aber wenn du &Wx::WXK_RETURN, abfängst dann muss du halt die logik zu fuss einprogrammieren und weil ein Skip danach noch das "\n" einfügen würde. also schaun in welcher zeile sind wir diese einlesen leerzeichen matchen länge abfragen usw.
  Last edited: 2015-05-01 13:10:36 +0200 (CEST)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- GUIfreund
  
  2015-05-01 19:30
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Guest Jürgen
  Ich habe mir eine GUI mit WxFormBuilder erstellt.
  Konkret geht es um das Widget "wxTextCtrl"
  Ich nutze das Control zur einfachen Texteingabe.
  Ich hätte nun gerne, dass ich bei folgenden Tastendrücke, folgende "Dinge" passieren:
  [...........]
  - ESC-Taste: das gesamte Fenster soll einfach geschlossen werden
  
  Ich würde da erst noch eine Nachfrage einbauen. Die Antwort darauf kostet nicht viel Zeit, aber bei einem Versehen kann sie großen Ärger ersparen, wenn viel Text drin stand.
  Gruß
  GUIfreund

View all threads created 2015-04-30 10:00.