Can DefaultOptions := "ChooseNone" for the datetime control to Blank? The problem is when I transfer the info to excel worksheet, the values still shows up, even if the checkbox is not checked.
Code: Select all
class DateTime extends Tabs.Tab.Workspace.GenericControl
{
ControlType := "DateTime"
DefaultOptions := "ChooseNone"
New()
{
MsgBox, % this.GuiControlGet() ;remove later
}
DateTimeChanged(_CtrlHwnd, _GuiEvent, _EventInfo, _ErrorLevel:="")
{
MsgBox, % this.GuiControlGet() ;remove later
}
Clear()
{
this.GuiControl("", A_Now)
this.GuiControl("", "")
this.GuiControl("", "")
}
Code: Select all
WorkbookPopulate(MyWorkbook, TabsObj) {
for TabNumber, ThisTab in TabsObj.TabList {
for ControlType, ThisControlType in ThisTab.Workspace.Controls {
; Special case: skip the TabOrder object TODO maybe this should be rethought? On
; the other hand, this simplifies adding controls to the TabOrder
if (ControlType = "TabOrder")
continue
for ControlName, ThisControl in ThisControlType {
if (ThisControl.ExcelCell != "") {
MyValue := ThisControl.GuiControlGet()
; Change MyValue as a special case for Checkboxes
if (ControlType = "Checkbox") {
;~ MyValue := MyValue = 1 ? "a" : "c" ; Use "Marlett" font in template
MyValue := MyValue = 1 ? Chr(0x2713) : "" ;Chr(0x2610)
;Chr(0x2610) - BALLOT BOX
;Chr(0x2611) - BALLOT BOX WITH CHECK
;Chr(0x2612) - BALLOT BOX WITH X
;Chr(0x2713) - CHECK MARK
;Chr(0x2714) - HEAVY CHECK MARK
}
if (ControlType = "DateTime")
FormatTime, MyValue, %MyValue%, MMMM dd, yyyy
MyWorkbook.Sheets(ThisControl.ExcelSheet).Range(ThisControl.ExcelCell).Value
:= MyValue
}
}
}
}
}
Results
-