XProfan

English

Description:

DrawStatusText draw a Text on one Window and surrounding this Text with a welt in the angegebenen manner.

Deklaration:

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

Parameter:

1.Parameter: display-Context (DC) the Objektes, on the the Text attend should as LongInt.

2.Parameter: Structure or 16 byte great area, the The corners the To zeichnenden Rahmens certainly. =>
-byte 0-3 = X-Koordinate the left upper corner the Rahmens.
-byte 4-7 = Y-Koordinate the left upper corner the Rahmens.
-byte 8-11 = X-Koordinate the rechten downstairs corner the Rahmens.
-byte 12-15 = Y-Koordinate the rechten downstairs corner the Rahmens.

3.Parameter: address one Strings or Memory-Variable with a String, the whom anzuzeigenden Text contains.

4.Parameter: Flag, the angiebt How the welt drawn go should: =>
-$0 = versenkt
-$100 = no welt (levelly)
-$200 = highlighted

Return Value:

The function has none Return Value.

Examples:

Compile Mark Separation

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) otherwise no Repaint!
DISPOSE RECT#

While 0=0

    Waitinput

Wend