XProfan

Deutsch

Beschreibung:

DrawStatusText zeichnet einen Text auf ein Fenster und umgibt diesen Text mit einem Rahmen in der angegebenen Art.

Deklaration:

DEF @DrawStatusText(4) !comctl32.dll,DrawStatusTextA

Parameter:

1.Parameter: Display-Context (DC) des Objektes, auf dem der Text erscheinen soll als LongInt.

2.Parameter: Struktur oder 16 Byte großer Bereich, der die Ecken des zu zeichnenden Rahmens bestimmt. =>
-Byte 0-3 = X-Koordinate der linken obere Ecke des Rahmens.
-Byte 4-7 = Y-Koordinate der linken obere Ecke des Rahmens.
-Byte 8-11 = X-Koordinate der rechten unteren Ecke des Rahmens.
-Byte 12-15 = Y-Koordinate der rechten unteren Ecke des Rahmens.

3.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der den anzuzeigenden Text enthält.

4.Parameter: Flag, der angiebt wie der Rahmen gezeichnet werden soll: =>
-$0 = versenkt
-$100 = kein Rahmen (flach)
-$200 = hervorgehoben

Rückgabewert:

Die Funktion hat keinen Rückgabewert.

Beispiele:

Kompilieren Markieren Separieren

DEF @GetSysColor(1) !"USER32","GetSysColor"
DEF @DrawStatusText(4) !"comctl32.dll","DrawStatusTextA"
DEclare RECT#,TEXT$
SetTrueColor 1
Windowstyle 31
Windowtitle "Statustext"
Window 0,0-640,440
CLS @GetSysColor(15)
DIM RECT#,16
Long RECT#,0=50
Long RECT#,4=50
Long RECT#,8=250
Long RECT#,12=75
Let Text$="Statustext versenkt"
@DrawStatusText(%HDC,RECT#,@ADDR(TEXT$),0)
@DrawStatusText(%HDC2,RECT#,@ADDR(TEXT$),0)
Long RECT#,0=50
Long RECT#,4=100
Long RECT#,8=250
Long RECT#,12=125
Let Text$="Statustext hervorgehoben"
@DrawStatusText(%HDC,RECT#,@ADDR(TEXT$),$200)
@DrawStatusText(%HDC2,RECT#,@ADDR(TEXT$),$200)
Long RECT#,0=50
Long RECT#,4=150
Long RECT#,8=250
Long RECT#,12=175
Let Text$="Statustext flach"
@DrawStatusText(%HDC,RECT#,@ADDR(TEXT$),$100)
@DrawStatusText(%HDC2,RECT#,@ADDR(TEXT$),$100) Sonst kein Repaint!
DISPOSE RECT#

While 0=0

    Waitinput

Wend