Textarea ohne Cursor

Übersicht BlitzMax, BlitzMax NG Allgemein

Neue Antwort erstellen

 

danibert

Betreff: Textarea ohne Cursor

 BeitragFr, Okt 01, 2010 19:48
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

ich erzeuge wie folgt eine Textarea.

BlitzMax: [AUSKLAPPEN] 
Import maxgui.drivers
Strict

Local MyWindow:TGadget=CreateWindow("TextArea-Beispiel", 40,40,400,400)
Global MyText:TGadget=CreateTextArea(0,0,380,40,MyWindow, 1 | TEXTAREA_READONLY)

SetGadgetText MyText, "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor"

Repeat
  WaitEvent()
  Select EventID()
  Case EVENT_WINDOWCLOSE
     End
  End Select
Forever
End

Ich setze das Gadget auf Readonly. Reinschreiben kann man so nichts mehr, aber trotzdem lässt sich der Cursor in das Feld stellen und Text markieren. Wie kann man das unterbinden?

Danke im Voraus

das wurgel

 BeitragFr, Okt 01, 2010 20:06
Antworten mit Zitat
Benutzer-Profile anzeigen
Prüfen ob was markiert wurde und mit SetGadgetCursor es wieder demarkieren könnte klappen. Allerdings wäre es dann warscheinlich noch markiert solange man die Maus gedrückt hält.
1 ist ungefähr 3

Thunder

 BeitragFr, Okt 01, 2010 20:11
Antworten mit Zitat
Benutzer-Profile anzeigen
das wurgels Vorschlag ist auch das einzige was ich mir vorstellen kann und nein, es bleibt nicht markiert bis man die Maus wieder loslässt, aber es sieht nicht schön aus.
Eine TextArea enthält zwangsläufig einen Cursor, vielleicht ist eine ListBox oder ein Label das Mittel der Wahl?
Eventuell kann man es auch über die WinAPI lösen, aber das wäre dann nicht plattformunabhängig und suchen müsstest du wahrscheinlich selber.

mfg Thunder
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit
 

danibert

 BeitragSa, Okt 02, 2010 8:33
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke für die Tipps. Habe es jetzt so gelöst:
BlitzMax: [AUSKLAPPEN] 
Local MyWindow:TGadget=CreateWindow("TextArea-Beispiel", 40,40,400,400)

Global MyText:TGadget=CreateTextArea(0,0,380,40,MyWindow, 1 | TEXTAREA_READONLY)
SetGadgetText MyText, "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod temporLorem ipsum dolor sit amet"
SetGadgetSensitivity MyText, SENSITIZE_MOUSE


Repeat  
  WaitEvent()  
  Select EventID()  

    Case EVENT_WINDOWCLOSE     
      End  
 
    Case EVENT_MOUSEDOWN
      Select EventSource()

        Case MyText
          ActivateGadget MyWindow		

      EndSelect
  End Select
Forever
End

Silver_Knee

 BeitragSa, Okt 02, 2010 10:22
Antworten mit Zitat
Benutzer-Profile anzeigen
also das TextAreaGadget von B+ kann man wenn man es "disabled" nicht mehr anwählen. Man könnte für windows dessen Style kopieren und für das b+ Gadget anwenden

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group