Textarea (Win, Linux) unterschiedlich

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	Shogo Betreff: Textarea (Win, Linux) unterschiedlich	Sa, Apr 18, 2009 20:09 Antworten mit Zitat
Sorry für den Thread Titel mir ist nichts besseres eingefallen. Also mal zum Problem. Ich habe mir unter Linux einen kleinen Editor geschrieben der Automatisch Kleinbuchstaben in Großbuchstaben umwandelt und davor ein Leerzeichen setzt. Code: [AUSKLAPPEN] [EINKLAPPEN] 'Grossschreibung If ButtonState(NC1_Button_gross) = True Then text2 = Upper(text) SetTextAreaText(textarea, text2, curser-1, 1) End If 'Lerrzeichen EinfÃ¼gen If ButtonState(NC1_Button_leerzeichen) = True Then text2 = Upper(text) For be =EachIn befehle_list If text2 = be.buchstabe Then text2 = TextAreaText(textarea, curser - 2, 2) If LSet(text2, 1) = " " Or LSet(text2, 1) = "~n" Then Exit text2 = " " + RSet(text2, 1) SetTextAreaText(textarea, text2, curser-1, 1) End If Next End If Unter Linux geht das super. Unter Windows eigentlich auch nur das er mir den curser dann vor den geänderte Buchstaben(also der curser steht dann links) schiebt und so der Editor nutzlos ist. Hat da jemand eine Idee oder kennt einen Befehl um den curser zu verschieben.(Hab schon in der Bmax Hilfe nachgeschaut aber viellleicht habe ich ja etwas übersehen.) Martin

Shogo

Betreff: Textarea (Win, Linux) unterschiedlich

Sa, Apr 18, 2009 20:09
Antworten mit Zitat

Sorry für den Thread Titel mir ist nichts besseres eingefallen.

Also mal zum Problem. Ich habe mir unter Linux einen kleinen Editor geschrieben der Automatisch Kleinbuchstaben in Großbuchstaben umwandelt und davor ein Leerzeichen setzt.

Code: [AUSKLAPPEN]

'Grossschreibung
If ButtonState(NC1_Button_gross) = True Then
   text2 = Upper(text)
   SetTextAreaText(textarea, text2, curser-1, 1)
End If

'Lerrzeichen EinfÃ¼gen
If ButtonState(NC1_Button_leerzeichen) = True Then
   text2 = Upper(text)
   For be =EachIn befehle_list
      If text2 = be.buchstabe Then
         text2 = TextAreaText(textarea, curser - 2, 2)
         If LSet(text2, 1) = " " Or LSet(text2, 1) = "~n" Then Exit
         text2 = " " + RSet(text2, 1)
         SetTextAreaText(textarea, text2, curser-1, 1)
      End If
   Next
End If

Unter Linux geht das super.
Unter Windows eigentlich auch nur das er mir den curser dann vor den geänderte Buchstaben(also der curser steht dann links) schiebt und so der Editor nutzlos ist.

Hat da jemand eine Idee oder kennt einen Befehl um den curser zu verschieben.(Hab schon in der Bmax Hilfe nachgeschaut aber viellleicht habe ich ja etwas übersehen.)

Martin

	jsp	So, Apr 19, 2009 12:06 Antworten mit Zitat
Gibt leider keinen offensichtlichen Befehl fuer, aber: SelectTextAreaText( YourText:TGadget,(TextAreaText(YourText).length),0 ) setzt zum Beispiel den Cursor ans Ende des Textes in der TextArea. Der SelectTextAreaText Befehl setzt auch den Cursor, somit kann man steuern wohin der soll. Guter Nebeneffekt ist unter anderem, dass die TextArea automatisch in den Bereich scrollt, wo der Cursor hingesetzt wurde.
Logic Gui Professional a Gui Designer for MaxGui

jsp

So, Apr 19, 2009 12:06
Antworten mit Zitat

Gibt leider keinen offensichtlichen Befehl fuer, aber:
SelectTextAreaText( YourText:TGadget,(TextAreaText(YourText).length),0 )

setzt zum Beispiel den Cursor ans Ende des Textes in der TextArea.

Der SelectTextAreaText Befehl setzt auch den Cursor, somit kann man steuern wohin der soll. Guter Nebeneffekt ist unter anderem, dass die TextArea automatisch in den Bereich scrollt, wo der Cursor hingesetzt wurde.

Logic Gui Professional a Gui Designer for MaxGui

	Shogo	So, Apr 19, 2009 16:14 Antworten mit Zitat
Hat super funktioniert, Danke.
BlitzMax; BlitzPlus Ubuntu 8.10; Windows XP SP3: Intel P4 3,2 Ghz \| 2048 MB Ram \| GeForce 9600 GT 1024 MB Ram

Shogo

So, Apr 19, 2009 16:14
Antworten mit Zitat

Hat super funktioniert, Danke.

BlitzMax; BlitzPlus Ubuntu 8.10; Windows XP SP3: Intel P4 3,2 Ghz | 2048 MB Ram | GeForce 9600 GT 1024 MB Ram

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

Nach Oben

BlitzBasic Portal

Textarea (Win, Linux) unterschiedlich

Shogo

Betreff: Textarea (Win, Linux) unterschiedlich

jsp

Shogo