; KurzmeldungMaus.bb

Fenster = 1
Zeilen = 3

If Zeilen < 1 Then Zeilen = 1
If Zeilen > 8 Then Zeilen = 8

Dim Satz$(Zeilen)

Satz(0) = \"Okay\"
Satz(1) = \"Dies ist ein Textfenster.\"
Satz(2) = \"Wenn Sie das lesen können,\"
Satz(3) = \"Hat alles funktioniert.\"

If AufX = 0 Or AufY = 0 Then
 AufX = 800
 AufY = 600
EndIf

Pointer = LoadImage(\"C:\Programmieren\pointer.bmp\")

Graphics AufX,AufY

While KeyDown(1) <> 1

SetBuffer BackBuffer()
Cls
Color 255,255,255

If Fenster = 1 Then 

DrawImage Pointer,MouseX(),MouseY()	; Maus zeichnen

For I = 0 To 2		                ; Fenster zeichnen
 Rect (AufX/2)-(AufX/4)+I,(AufY/2)-(AufY/6)+I,AufX/2-2*I,AufY/3-2*I,0
Next

For I = 0 To 1			; Button zeichnen
 Rect (AufX/2)-(AufX/20)+I,(AufY/2)+(AufY/15)+(AufY/60)+I,AufX/10-2*I,AufY/20-2*I,0
Next

If MouseX() > (AufX/2)-(AufX/20) And MouseX() < (AufX/2)-(AufX/20)+(AufX/10) Then	; Buttonkontakt abfragen
 If MouseY() > (AufY/2)+(AufY/15)+(AufY/60) And MouseY() < (AufY/2)+(AufY/15)+(AufY/60)+(AufY/20) Then
  Color 127,127,127
  Rect (AufX/2)-(AufX/20)+2,(AufY/2)+(AufY/15)+(AufY/60)+2,AufX/10-4,AufY/20-4,1
  Color 0,0,0
 EndIf
EndIf

Text AufX/2,(AufY/2)+(AufY/10)+(AufY/60),Satz(0),1,1	 ; Button beschriften

For I = 1 To Zeilen			; Breiteste Zeile bestimmen
 For J = I+1 To Zeilen
  If StringWidth(Satz(I)) > StringWidth(Satz(J)) Then Breitest = I
 Next
 For J = I-1 To 1 Step -1
  If StringWidth(Satz(I)) > StringWidth(Satz(J)) Then Breitest = I
 Next
Next

For I = 1 To Zeilen			; Fügt Leerstellen zur Normierung
 While StringWidth(Satz(I)) < StringWidth(Satz(Breitest) ; der Längen hinzu
  Satz(I) = LSet$(Satz(I),Len(Satz(I))+1)
 Wend
Next

For I = 1 To Zeilen			; Gibt den Inhalt aus
 Text (AufX/2)-(AufX/4)+(AufX/20),(AufY/2)-(AufY/6)+(AufY/15)+(I-1)*FontHeight(),Satz(I),0,1
Next

If KeyDown(28) = 1 Then Fenster = 0         ; Beendet durch Enter

EndIf

If Fenster = 0 Then End

Flip
Wend