XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
la fenêtre: qui Titelzeile eines Fensters kopieren
PRFellow-Présentation
Autor: Thomas Bois - Alle Rechte vorbehalten
qui Titelzeile eines Fensters kopieren
intéressant pour la fenêtre avec Regions
Paramètres: Handle des Fensters, x et y Koordinate qui Ausgabe
Def DrawCaption(4) !USER32,DrawCaption
Def GetSystemMetrics(1) !USER32,GetSystemMetrics
Def GetDC(1) !USER32,GetDC
Def ReleaseDC(2) !USER32,ReleaseDC
Déclarer rect#

Proc wf_DrawCaption

    Paramètres hw&,x%,y%
    Déclarer dc&
    Faible rect#,16
    Long rect#,0=x%
    Long rect#,4=y%
    Long rect#,8=Width(hw&)
    Long rect#,12=Ajouter(y%,GetSystemMetrics(4))
    Laisser dc&=GetDC(hw&)
    DrawCaption(hw&,dc&,rect#,13)
    Cas Equ(%hwnd,hw&): DrawCaption(%hwnd,%hdc2,rect#,13)
    Dispose rect#
    ReleaseDC(hw&,dc&)

ENDPROC

Beispiel pour Hauptfenster:
Cls
wf_DrawCaption %hwnd,0,10

Tandis que 1

    WaitInput

Wend