XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: Titelzeile eines Fensters kopieren
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Die Titelzeile eines Fensters kopieren
Interessant für Fenster mit Regions
Parameters: Handle des Fensters, x und y Koordinate der Ausgabe
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

Beispiel für Hauptfenster:
Cls
wf_DrawCaption %hwnd,0,10

While 1

    WaitInput

Wend