XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Ventana: El Titelzeile uno Fensters kopieren
PRFellow-Presentación
Autor: Thomas Hölzer - Alle Rechte vorbehalten
El Titelzeile uno Fensters kopieren
Interessant para Ventana con Regions
Parámetros: Handle des Fensters, x y y Koordinate el Edición
Def DrawCaption(4) !USER32,DrawCaption
Def GetSystemMetrics(1) !USER32,GetSystemMetrics
Def GetDC(1) !USER32,GetDC
Def ReleaseDC(2) !USER32,ReleaseDC
Declarar rect#

Proc wf_DrawCaption

    Parámetros hw&,x%,y%
    Declarar dc&
    Dim rect#,16
    Largo rect#,0=x%
    Largo rect#,4=y%
    Largo rect#,8=Width(hw&)
    Largo rect#,12=Add(y%,GetSystemMetrics(4))
    Let dc&=GetDC(hw&)
    DrawCaption(hw&,dc&,rect#,13)
    Case Equ(%hwnd,hw&): DrawCaption(%hwnd,%hdc2,rect#,13)
    Disponer rect#
    ReleaseDC(hw&,dc&)

ENDPROC

Ejemplo para Ventana principal:
Cls
wf_DrawCaption %hwnd,0,10

Mientras que 1

    WaitInput

Wend