XProfan

Français

Beschreibung:

DrawStatusText zeichnet une Text sur un la fenêtre et umgibt cette Text avec einem cadre dans qui angegebenen Art.

Deklaration:

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

paramètre:

1.paramètre: Display-Context (DC) des Objektes, sur dem qui Text erscheinen soll comme LongInt.

2.paramètre: Struktur ou bien 16 Byte großer Bereich, qui qui Ecken des trop zeichnenden Rahmens bestimmt. =>
-Byte 0-3 = X-Koordinate qui linken obere coin des Rahmens.
-Byte 4-7 = Y-Koordinate qui linken obere coin des Rahmens.
-Byte 8-11 = X-Koordinate qui rechten unteren coin des Rahmens.
-Byte 12-15 = Y-Koordinate qui rechten unteren coin des Rahmens.

3.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den anzuzeigenden Text contient.

4.paramètre: Flag, qui angiebt comment qui cadre gezeichnet volonté soll: =>
-$0 = versenkt
-$100 = ne...aucune cadre (flach)
-$200 = hervorgehoben

Rückgabewert:

qui Funktion hat keinen Rückgabewert.

Beispiele:

Kompilieren Marque Séparation

DEF @GetSysColor(1) !"User32","GetSysColor"
DEF @DrawStatusText(4) !"comctl32.dll","DrawStatusTextA"
DEclare RECT#,TEXT$
SetTrueColor 1
Windowstyle 31
Windowtitle "Statustext"
Fenêtre 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
Laisser 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
Laisser 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
Laisser Text$="Statustext flach"
@DrawStatusText(%HDC,RECT#,@ADDR(TEXT$),$100)
@DrawStatusText(%HDC2,RECT#,@ADDR(TEXT$),$100) Sonst ne...aucune Repaint!
DISPOSE RECT#

Tandis que 0=0

    Waitinput

Wend