XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Window: The Headline one Fensters copy
PRFellow-Presentation
Author: Thomas Hölzer - any rights vorbehalten
The Headline one Fensters copy
interestingly for Window with Regions
Parameters: lever the Fensters, x and y Koordinate the spending
Def DrawCaption(4) !USER32,DrawCaption
Def GetSystemMetrics(1) !USER32,GetSystemMetrics
Def GetDC(1) !USER32,GetDC
Def ReleaseDC(2) !USER32,ReleaseDC
Declare rect#

Proc wf_DrawCaption

    Parameters hw&,x%,y%
    Declare dc&
    Dim rect#,16
    Long rect#,0=x%
    Long rect#,4=y%
    Long rect#,8=Width(hw&)
    Long rect#,12=Add(y%,GetSystemMetrics(4))
    Let dc&=GetDC(hw&)
    DrawCaption(hw&,dc&,rect#,13)
    Case Equ(%hwnd,hw&): DrawCaption(%hwnd,%hdc2,rect#,13)
    Dispose rect#
    ReleaseDC(hw&,dc&)

ENDPROC

example for Mainwindow:
Cls
wf_DrawCaption %hwnd,0,10

While 1

    WaitInput

Wend