XProfan

Déclarer dateedit1%, dateedit2%
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"User32","GetSysColor"
Def GetParent(1) !"User32","GetParent"
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11

Proc CreateElements

    Fenêtre Style 26 | 512 | 2048
    Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 280, 0 - 318, 188
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    dateedit1% = Créer("DateEdit", %hwnd, Date$(0), 24, 32, 120, 24)
    dateedit2% = Créer("DateEdit", %hwnd, Date$(0), 160, 32, 120, 24)

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)

    Tandis que 1

        WaitInput
        Cas %umessage = 16 : BREAK

        Si Clicked(dateedit1%)'#window

            SetText dateedit2%,GetText $(dateedit1%)

        ElseIf Clicked(dateedit2%)'#window

            Imprimer GetText $(dateedit2%)+ "Von DateEdit1% übernommen!"

        EndIf

    Endwhile

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main
Fin

 $H Windows.ph
 $H Messages.ph
 $H commctrl.ph
Déclarer OldTest&,ende%
Struct POINT = \
x&, \
y&
Struct SYSTEMTIME = \
wYear%, \
wMonth%, \
wDayOfWeek%, \
wDay%, \
wHour%, \
wMinute%, \
wSecond%, \
wMilliseconds%
Struct MCHITTESTINFO = \
cbSize&, \
pt!POINT, \
uHit&, \
st!SYSTEMTIME

Proc Get_MonthCalHit

    Déclarer DATA#, HIT%
    Faible DATA#,MCHITTESTINFO
    DATA#.cbSize& = SizeOf(DATA#)
    DATA#.pt!x& = %MouseX - 500
    DATA#.pt!y& = %MouseY - 150
    Var QT% = SendMessage(KAL1&,$100E,0,DATA#)' $100E = $1000 + 14 = HITTEST
    Var TEXT$ = str$(DATA#.st!wDay%)+"."+str$(DATA#.st!wMonth%)+"."+str$(DATA#.st!wYear%)
    Messagebox(TEXT$,"HITFLAG "+Str$(QT%),$40000)
    Dispose DATA#
    RETOUR QT%

ENDPROC

WINDOW 0,0 - 800,600
Var KAL1& = Contrôle("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)

WhileNot Ende%

    Waitinput

    Si %Key = 2

        Ende% = 1

    D'autre

        Get_MonthCalHit

    EndIf

Endwhile