カレンダー

フィールド名

ADateTime(Datetime, 28)

説明

フィールドをフォーム上にカレンダーとして表示します。

フィールドのソース

BEGIN_COM ROLE(*EXTENDS #PRIM_OBJT)

 

BEGIN_COM ROLE(*Visual #PRIM_EVDT) NAME(#VisualDateTime) HEIGHT(19) WIDTH(370)

 

END_COM

 

BEGIN_COM ROLE(*Visual #PRIM_EVMC) NAME(#VisualCalendar) DEFAULTVISUAL(True) HEIGHT(156) MARGINLEFT(183) USEPICKLIST(False) WIDTH(366)

 

END_COM

END_COM 

フォームのソース

Function Options(*DIRECT)

 

BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) CLIENTHEIGHT(251) CLIENTWIDTH(492) HEIGHT(278) LEFT(467) TOP(163)

DEFINE_COM CLASS(#ADATETIME.Visual) NAME(#ADATETIME) DISPLAYPOSITION(1) LEFT(40) PARENT(#COM_OWNER) TABPOSITION(1) TOP(24)

 

End_Com

 

外観