TextArea nicht bearbeiten

Übersicht

BlitzBasic

BlitzPlus

	schalli Betreff: TextArea nicht bearbeiten	Mo, Sep 24, 2007 16:12 Antworten mit Zitat
Hi, wie kann ich es einstellen, dass ich Text in einer TextArea zwar scrollen kann, aber nicht bearbeiten.

schalli

Betreff: TextArea nicht bearbeiten

Mo, Sep 24, 2007 16:12
Antworten mit Zitat

Hi, wie kann ich es einstellen,
dass ich Text in einer TextArea zwar scrollen kann,
aber nicht bearbeiten.

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Sep 24, 2007 17:55 Antworten mit Zitat
Hallo, das kann man nicht einfach einstellen, du musst das schon selbst in die Hand nehmen Hier mal ein Beispiel Code: [AUSKLAPPEN] [EINKLAPPEN] Startwindow = CreateWindow ("BB test",200,200,500,545,0) Area=CreateTextArea (10,10,450,400,Startwindow) ;Text erstellen For i = 1 To 40 A$= A$+"Ein Test "+ i +Chr(13)+Chr(10) Next SetGadgetText Area,A$ Repeat Ergebnis = WaitEvent (50) Select Ergebnis Case $803 End Case $401 If EventSource ()=Area If A$<>TextAreaText(Area) Then SetGadgetText Area,A$ End If Default End Select Forever
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Sep 24, 2007 17:55
Antworten mit Zitat

Hallo, das kann man nicht einfach einstellen, du musst das schon selbst in die Hand nehmen
Hier mal ein Beispiel
Code: [AUSKLAPPEN]

Startwindow = CreateWindow ("BB test",200,200,500,545,0)
Area=CreateTextArea (10,10,450,400,Startwindow)
;Text erstellen
For i = 1 To 40
A$= A$+"Ein Test "+ i +Chr(13)+Chr(10)
Next
SetGadgetText Area,A$
Repeat
Ergebnis = WaitEvent (50)
Select Ergebnis
Case $803 End
Case $401
If EventSource ()=Area
If A$<>TextAreaText(Area) Then SetGadgetText Area,A$
End If
Default
End Select
Forever

[BB2D | BB3D | BB+]