Textbox (Eingabe) >2<

    • Skript

    • Textbox (Eingabe) >2<

      Hier will ich euch mein Textbox Script vorstellen, dass ich aufgrund Anfragen und nicht Idealster Lösung geschrieben habe. Obwohl Textboxen sehr Wichtig sind, greifen die meisten auf get_string zu. Es gibt zwar schon einige Textboxen Scripte aber diese benutzen dann meist keyboard_string, was drei Nachteile hat: 1. Man kann nicht in der Mitte des Textes schreiben 2. Es kann nur eine einzige Textbox verwendet werden 3. Es enthält alle zuletzt getippten Zeichen(Kann man Theoretisch umgehen).
      Welche Vorteile hat dieses Script:
      • Es hat einen Focus
      • Man Kann an einer beliebigen Stellen schreiben. Kann mit dem Pfeiltasten und mit der Maus :!: gewählt werden.
      • Man kann den Text Kopieren, Ausschneiden, Einfügen(An der Stelle des Zeigers).
      • Automatische Anpassung der Textbox.
      • Beliebige Anzahl an Textboxen(Für jede ein Objekt da sie sich keine Variable teilen können.)
      Es ist sehr leicht in der Anwendung. Einfach ein neues Script erstellen, den unteren Script hineinkopieren (strg+c strg+v), den Script draw_textbox nennen und schon kann man ihn wie jede andere Funktion verwenden.
      Die Argumente sind wie folgt(Auch als Komentar im Script):
      argument0 | X Position(Standard x)
      argument1 | Y Position(Standard y)
      argument2 | Grafik der Textbox
      argument3 | Maximale Textlänge
      argument4 | Voreingestellter Text

      Mit Strg+X / Strg+C / Strg+V lässt sich wie gewohnt der Text ausschneiden/kopieren und einfügen.

      Als Rückgabe Wert wird der Text ausgegeben (Eigentlich sinnlos da die Variable TEXT den text schon beinhaltet).

      Script:
      Alt:
      Spoiler anzeigen

      GML-Quellcode

      1. //////////////////////////////////////////////////
      2. // Mit diesem Script kannst du eine //
      3. // Textbox drawen lassen und //
      4. // deren Wert Einlesen //
      5. //////////////////////////////////////////////////
      6. /////////////// Made by Chris987 /////////////////
      9. // Argumente //
      11. /*
      12. Flag 0 | Die X Position
      13. Flag 1 | Die Y Position
      14. Flag 2 | Die Textbox Grafik
      15. Flag 3 | Maximale Zeichen
      16. Flag 4 | Voreingestellter Text
      17. */
      20. ///////////// Variablen Vorbereiten //////////////
      23. if not(variable_local_exists("TEXT")) //Prüft ob schon der Text vorhanden ist.
      24. TEXT = argument4 //Erstelle eine Var mit dem voreingestellten Text.
      26. if not(variable_local_exists("FOCUS")) //Prüft ob schon ein Focus zugewiesen wurde.
      27. FOCUS = false //Erstelle eine Var mit dem Wert false.
      29. if not(variable_local_exists("ZEIGER"))//Prüft ob der Zeiger schon existiert.
      30. ZEIGER = 0 //Setze den Zeiger auf 0.
      32. if not(variable_local_exists("backspace_friction"))//Prüft ob der Zeiger schon existiert.
      33. backspace_friction = 0 //Setze den Zeiger auf 0.
      36. ////////////// Eingabe und Zeugs /////////////////
      39. if(mouse_check_button(mb_any)) //Checkt ob eine Maustaste gedrückt wird.
      40. if(mouse_x > argument0 and mouse_x < argument0 + string_width(string_repeat('A',argument3)) and //Prüft ob sich die Maus(X) im Bereich befindet.
      41. mouse_y > argument1 and mouse_y < argument1 + string_height('A')){ //Prüft ob sich die Maus(Y) im Bereich befindet.
      43. FOCUS = true //Der Focus wird aktiviert
      44. var i;
      45. for(i=0;i<=string_length(TEXT);i+=1)//Durchgeht die Buchstaben um herauszufinden wo der Zeiger gesetzt wird.
      46. {
      47. if(i==string_length(TEXT))
      48. ZEIGER = i
      49. else
      50. {
      51. //if(mouse_x+(string_width(string_char_at(TEXT,i+1))/2) >= string_width(string_copy(TEXT,0,i))+argument0)//Nach dem
      52. if(mouse_x+(string_width(string_char_at(TEXT,i))/2) <= string_width(string_copy(TEXT,0,i+1))+argument0)//Vor dem
      53. {
      54. ZEIGER = i //Dann RICHTIG
      55. break;
      56. }
      57. }
      58. }
      59. }
      60. else
      61. FOCUS = false //Der Focus wird deaktiviert
      66. if(FOCUS){ //Wenn der Focus Aktiv ist dann kann der Text eingegeben werden.
      68. if(keyboard_check(vk_control)) //Wenn strg gedrückt wird...
      69. if(keyboard_check_pressed(vk_anykey)) //Ist dazu da dass es nur einmal passiert wenn man eine Taste drückt.
      70. switch(keyboard_key)
      71. {
      72. case ord('C'): clipboard_set_text(TEXT) break; //Text in die Zwischenablage kopieren.
      73. case ord('V'): if(clipboard_has_text())
      74. {
      75. TEXT = string_insert(clipboard_get_text(),TEXT,ZEIGER+1);
      76. ZEIGER += string_length(clipboard_get_text()); break; //Text aus der Zwischenablage am Zeiger einfügen.
      77. }
      78. case ord('X'): clipboard_set_text(TEXT); TEXT = ""; ZEIGER = 0 break; //Text wird Ausgeschnitten
      79. }
      81. //Löscht den Text durch drücken von entf.
      82. if(keyboard_check_released(vk_delete))
      83. {
      84. TEXT = ""
      85. ZEIGER = 0
      86. }
      88. //Bewegt den Zeiger nach links.
      89. if(keyboard_check_pressed(vk_left))
      90. if not(ZEIGER<=0)
      91. ZEIGER -= 1
      93. //Bewegt den Zeiger nach Rechts.
      94. if(keyboard_check_pressed(vk_right))
      95. if not(ZEIGER>=string_length(TEXT))
      96. ZEIGER += 1
      98. if not(keyboard_check(vk_control))
      99. if(keyboard_check_pressed(vk_anykey))
      100. if((keyboard_key >= 48 and keyboard_key <= 90) or keyboard_check(vk_space) or (keyboard_key >= 186 and keyboard_key <= 222))//Gültige Werte
      101. if not(string_length(TEXT) >= argument3)
      102. {
      103. TEXT = string_insert(keyboard_lastchar,TEXT,ZEIGER+1)//Schreibt den Buchstaben an der Position des Zeigers
      104. ZEIGER += 1
      105. }
      108. if(keyboard_check(vk_backspace))
      109. if not(ZEIGER == 0)
      110. {
      111. backspace_friction += 1
      112. if(backspace_friction >= room_speed / 9 or keyboard_check_pressed(vk_backspace))
      113. {
      114. TEXT = string_delete(TEXT,ZEIGER,1)//Löscht das Zeichen an der Position des Zeigers.
      115. ZEIGER -= 1
      116. backspace_friction = 0
      117. }
      118. }
      120. if(keyboard_check_released(vk_backspace))
      121. backspace_friction = 0
      123. }
      126. //////////// Textbox wird gezeichnet //////////////
      128. draw_sprite_stretched(argument2,FOCUS,argument0,argument1,string_width(string_repeat('A',argument3)),string_height('A'))
      130. draw_text(argument0,argument1,string_replace_all(TEXT,"#","\#"))
      131. if(FOCUS)
      132. draw_line(string_width(string_copy(TEXT,0,ZEIGER))+argument0,argument1,string_width(string_copy(TEXT,0,ZEIGER))+argument0,argument1+string_height('ß'))
      134. //Und zum Schluss den Text Zurückgeben lassen(Was eigentlich Total Sinnlos ist)
      135. return TEXT;
      Alles anzeigen

      Neu:

      GML-Quellcode

      1. //////////////////////////////////////////////////
      2. // Mit diesem Script kannst du eine //
      3. // Textbox drawen lassen und //
      4. // deren Wert Einlesen //
      5. //////////////////////////////////////////////////
      6. /////////////// Made by Chris987 /////////////////
      9. // Argumente //
      11. /*
      12. Flag 0 | Die X Position
      13. Flag 1 | Die Y Position
      14. Flag 2 | Die Textbox Grafik
      15. Flag 3 | Maximale Zeichen
      16. Flag 4 | Voreingestellter Text
      17. */
      20. ///////////// Variablen Vorbereiten //////////////
      23. if not(variable_local_exists("TEXT")) //Prüft ob schon der Text vorhanden ist.
      24. TEXT = argument4 //Erstelle eine Var mit dem voreingestellten Text.
      26. if not(variable_local_exists("FOCUS")) //Prüft ob schon ein Focus zugewiesen wurde.
      27. FOCUS = false //Erstelle eine Var mit dem Wert false.
      29. if not(variable_local_exists("ZEIGER"))//Prüft ob der Zeiger schon existiert.
      30. ZEIGER = 0 //Setze den Zeiger auf 0.
      32. if not(variable_local_exists("Blink"))//Prüft ob Blink schon existiert.
      33. Blink = true //Setze Blink auf 0.
      35. if not(variable_local_exists("TMBL"))//Prüft ob Blink schon existiert.
      36. TMBL = 0 //Setze Blink auf 0.
      38. if not(variable_local_exists("backspace_friction"))//Prüft ob der Zeiger schon existiert.
      39. backspace_friction = 0 //Setze den Zeiger auf 0.
      42. ////////////// Eingabe und Zeugs /////////////////
      45. if(mouse_check_button(mb_any)) //Checkt ob eine Maustaste gedrückt wird.
      46. if(mouse_x > argument0 and mouse_x < argument0 + string_width(string_repeat('A',argument3)) and //Prüft ob sich die Maus(X) im Bereich befindet.
      47. mouse_y > argument1 and mouse_y < argument1 + string_height('A')){ //Prüft ob sich die Maus(Y) im Bereich befindet.
      49. FOCUS = true //Der Focus wird aktiviert
      50. var i;
      51. for(i=0;i<=string_length(TEXT);i+=1)//Durchgeht die Buchstaben um herauszufinden wo der Zeiger gesetzt wird.
      52. {
      53. if(i==string_length(TEXT))
      54. ZEIGER = i
      55. else
      56. {
      57. //if(mouse_x+(string_width(string_char_at(TEXT,i+1))/2) >= string_width(string_copy(TEXT,0,i))+argument0)//Nach dem
      58. if(mouse_x+(string_width(string_char_at(TEXT,i))/2) <= string_width(string_copy(TEXT,0,i+1))+argument0)//Vor dem
      59. {
      60. ZEIGER = i //Dann RICHTIG
      61. break;
      62. }
      63. }
      64. }
      65. }
      66. else
      67. FOCUS = false //Der Focus wird deaktiviert
      72. if(FOCUS){ //Wenn der Focus Aktiv ist dann kann der Text eingegeben werden.
      74. if(keyboard_check(vk_control)) //Wenn strg gedrückt wird...
      75. if(keyboard_check_pressed(vk_anykey)) //Ist dazu da dass es nur einmal passiert wenn man eine Taste drückt.
      76. switch(keyboard_key)
      77. {
      78. case ord('C'): clipboard_set_text(TEXT) break; //Text in die Zwischenablage kopieren.
      79. case ord('V'): if(clipboard_has_text())
      80. {
      81. TEXT = string_insert(clipboard_get_text(),TEXT,ZEIGER+1);
      82. ZEIGER += string_length(clipboard_get_text()); break; //Text aus der Zwischenablage am Zeiger einfügen.
      83. }
      84. case ord('X'): clipboard_set_text(TEXT); TEXT = ""; ZEIGER = 0 break; //Text wird Ausgeschnitten
      85. }
      87. //Löscht den Text durch drücken von entf.
      88. if(keyboard_check_released(vk_delete))
      89. {
      90. TEXT = ""
      91. ZEIGER = 0
      92. }
      94. //Bewegt den Zeiger nach links.
      95. if(keyboard_check_pressed(vk_left))
      96. if not(ZEIGER<=0)
      97. ZEIGER -= 1
      99. //Bewegt den Zeiger nach Rechts.
      100. if(keyboard_check_pressed(vk_right))
      101. if not(ZEIGER>=string_length(TEXT))
      102. ZEIGER += 1
      104. if not(keyboard_check(vk_control))
      105. if(keyboard_check_pressed(vk_anykey))
      106. if((keyboard_key >= 48 and keyboard_key <= 90) or keyboard_check(vk_space) or (keyboard_key >= 186 and keyboard_key <= 222))//Gültige Werte
      107. if not(string_length(TEXT) >= argument3)
      108. {
      109. TEXT = string_insert(keyboard_lastchar,TEXT,ZEIGER+1)//Schreibt den Buchstaben an der Position des Zeigers
      110. ZEIGER += 1
      111. }
      114. if(keyboard_check(vk_backspace))
      115. if not(ZEIGER == 0)
      116. {
      117. backspace_friction += 1
      118. if(backspace_friction >= room_speed / 9 or keyboard_check_pressed(vk_backspace))
      119. {
      120. TEXT = string_delete(TEXT,ZEIGER,1)//Löscht das Zeichen an der Position des Zeigers.
      121. ZEIGER -= 1
      122. backspace_friction = 0
      123. }
      124. }
      126. if(keyboard_check_released(vk_backspace))
      127. backspace_friction = 0
      129. }
      131. ///////// Bringt den Zeiger zum Blinken ///////////
      133. TMBL += 1
      134. if(TMBL >= 15)
      135. {
      136. TMBL = 0
      137. if Blink
      138. Blink = false
      139. else
      140. Blink = true
      141. }
      143. //////////// Textbox wird gezeichnet //////////////
      145. draw_sprite_stretched(argument2,FOCUS,argument0-2,argument1-2,string_width(string_repeat('a',argument3)),string_height('A')+4)
      147. draw_text(argument0,argument1,string_replace_all(TEXT,"#","\#"))
      148. if(FOCUS)
      149. if(Blink)
      150. draw_line(string_width(string_copy(TEXT,0,ZEIGER))+argument0,argument1,string_width(string_copy(TEXT,0,ZEIGER))+argument0,argument1+string_height('ß'))
      Alles anzeigen


      Neuerungen:
      Löschen der Buchstaben lassen sich nun auch durch gedrückt halten der Backspacetaste.
      Grafik ändert sich jetzt durch den Focus. Falls es eine Animation bleiben soll, ersetze in Line 130 FOCUS durch -1.

      Der Script ist zwar noch in Entwicklung, kann aber schon richtig verwendet werden. Und ich rate ab # zu schreiben, es wird zwar angezeigt aber es geschehen dann seltsame Dinge (Ich hab da so eine Vermutung).
      Und zum Schluss noch ein einfaches Beispiel für ein Passwortprogramm. (Erneuert)

      Für Fragen, Wünsche, Kommentare bin ich gerne bereit. ;)

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von Chris987 () aus folgendem Grund: Script Erneuerung

    • Gutes Script, auch wenn ich noch keine Anwendungsmöglichkeit weiß. Bei deinem Beispiel fehlt in Zeile 108 bei draw_text das dritte Argument. Wenn du noch mehrzeiligkeit einfügst und das man beim Textlöschen Backspace nicht ganz oft drücken, sondern halten kann, ist es perfekt.

    • Ups... Da wollte ich wohl das noch schnell mit dem # ändern. :S Ich habe es jetzt Aktuelisiert. Das mit dem Backspace will ich noch ändern, da es sonst zu empfindlich reagieren würde. Mehrzeiliger Text mache ich vieleicht, würde aber dann ein neues Script erstellen, da dies nur für eine Zeile bestimmt ist.

    • Wow...klasse.. :thumbsup:
      Du könntest vielleicht noch einbauen, das Return den Focus wieder deaktiviert, die Entf.-Taste nicht den gesamten Text löscht und das der Zeiger blinkt, nur so als
      Vorschlag :) ..hat ja jeder andere Wünsche an so eine Textbox...ich z.b. habe dazu noch eingestellt das der Mauszeiger verschwindet, wenn FOCUS true ist :)
      Ich schliesse mich Chaos Creator an, ist wirklich ein super Script..danke :!:

    • Hallo. :thumbsup:

      Ich denke das ist ein sehr gutes script. Hab aber Probleme mit deinem argument2. Bekomm immer eine Fehlermeldung wenn ich nicht einen Font_namen eingebe, und dann bekomm ich irgendwelche Grafiken aus meinem Spiel als BG gestretcht.

      Habs im Draw-event drinne. Gehört es da nicht hin? Kannst mal ein Beispiel machen was ein name für dieses Argument2 sein könnte und wo sich diese Grafik befinden muss? Checks nicht!!

      Gruss Wildor
      Aktuelles Game: "Pikslar" mit Online Hiscore





      PS: Will mit dieser Frage mal fragen, ob jemand zur zeit, Zeit hat. Suche Grafiker/Pixler










    • Im argument 2 gibt man die Grafik an, welches als Textboxgrafik gezeichnet wird. Die Grafik muss ein Sprite sein(Also keine Fonts, Backgrounds, oder externe Grafiken). Gib einfach den Namen dieses Sprites ein. Die Schriftart ist die welche man gerade verwendet. Und ja, das Script kommt ins draw event :event_draw: rein. Wenn es noch immer Probleme geben sollte, versuche es mit den alten Script.

    • Kann es sein das dort kein Grafikname mit unterstrich stehen darf?

      z.B. ship_next

      Oder soll man bei Grafiken nie mit Unterstrich arbeiten?
      Aktuelles Game: "Pikslar" mit Online Hiscore





      PS: Will mit dieser Frage mal fragen, ob jemand zur zeit, Zeit hat. Suche Grafiker/Pixler










    • Warum bekom ich bei "score_mouse" ne Fehlermeldung aber bei einem unsichtbaren sprite genannt "no" keine?
      Aktuelles Game: "Pikslar" mit Online Hiscore





      PS: Will mit dieser Frage mal fragen, ob jemand zur zeit, Zeit hat. Suche Grafiker/Pixler










    • Bekomme fehler:

      ERROR in
      action number 3
      of Draw Event
      for object txtbox:

      Trying to draw non-existing sprite.

      Ändere ich den Namen in "score_mouses" (Sprite u. Arg2) dann gehts. Ändere ich den Namen zurück, kommt der Fehler wieder. Liegt wohl am GM!



      Aussedem bekomme ich Argument4 auch nicht hin:

      ERROR in
      action number 3
      of Draw Event
      for object txtbox:

      Error in expression:MAGICMAN
      position 1: Unknown variable MAGICMAN

      EDIT: Mann muss Text in "" eingeben. Oh man!!
      Aktuelles Game: "Pikslar" mit Online Hiscore





      PS: Will mit dieser Frage mal fragen, ob jemand zur zeit, Zeit hat. Suche Grafiker/Pixler










      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Wildor ()

    • Textbox etwas abgeändert auch für GM5 tauglich

      Habe das Script in einige meiner Schreibübungen mit GM8.0 erfolgreich eingebaut. :D Ein großes DANKE für diesen Beitrag.

      Da ich dies auch mit GM8.1 verwirklichen möchte, gibt es ein Problem mit der Eingabe von Umlauten. ?(
      Tippt man z. B ein "ü" und danach z.B. ein "a", dann erscheint nach dem Eintippen von "a" anstatt des vorher angezeigten "ü" die Zeichenfolge "?a?".

      Ich habe es nicht geschafft, das Script so abzuändern, dass diese tolle Script auch mit GM8.1 verwendet werden kann.

      Vielleicht hat jemand eine Idee, wäre schön, wenn dies auch mit GM8.1 einwandfrei funktionieren würde.
      MfG Hubsl

      Etwas abgeändert kann dieses Script auch im GM5 verwendet werden (siehe Wortboxen des Lese-Rechtschreib-Instituts: lrs-legasthenie.at/projekte.html )
      Mit einer Bildschirmtastatur kombiniert ist diese Textbox auch ideal für Android-APKs einsetzbar.

      Nochmals Danke für diesen guten Beitrag!
      Siehe Link: https://hubert-burboeck.at/Testversionen/

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von hubsl () aus folgendem Grund: Webadresse geändert