[Module] DateEx - Gadget (all OS)

[Thorsten1867]

DateEx Gadget - Module (all OS / DPI / 64Bit)

• support of Date64
• automatic size adjustment
• support of GUI themes (needs ModuleEx.pbi)

Code: Select all

; DateEx::GetData()            - similar to 'GetGadgetData()'
; DateEx::GetID()              - similar to 'GetGadgetData()', but it uses a string
; DateEx::SetData()            - similar to 'SetGadgetData()'
; DateEx::SetID()              - similar to 'SetGadgetData()', but it uses a string
; DateEx::DisableReDraw()      - deaktivate/aktivate redrawing
; DateEx::Gadget()             - similar to 'DateGadget()'
; DateEx::GetState()           - similar to 'GetGadgetState()'
; DateEx::GetText()            - similar to 'GetGadgetText()'
; DateEx::Hide()               - similar to 'HideGadget()'
; DateEx::SetAutoResizeFlags() - [#MoveX|#MoveY|#Width|#Height]
; DateEx::SetAttribute()       - similar to 'SetGadgetAttribute()'
; DateEx::SetColor()           - similar to 'SetGadgetColor()'
; DateEx::SetFont()            - similar to 'SetGadgetFont()'
; DateEx::SetState()           - similar to 'SetGadgetState()'
; DateEx::SetText()            - similar to 'SetGadgetText()'

Download: DateExModule.pbi

[Cyllceaux]

hey there...

I played a litte bit with Date64 and found this Problem:

Code: Select all

Define dateq.q=Date64::Date_(2100,1,1):Debug Date64::FormatDate_("%dd.%mm.%yyyy", Dateq) ; 01.01.2100
date64::AddDate_(dateq,#PB_Date_Month,1):Debug Date64::FormatDate_("%dd.%mm.%yyyy", Dateq) ; 01.02.2100
date64::AddDate_(dateq,#PB_Date_Month,1):Debug Date64::FormatDate_("%dd.%mm.%yyyy", Dateq) ; 01.02.2100

This looks wrong
Line 493

Code: Select all

 Procedure.q AddDate_Date.q, Type.i, Value.i)