フィールド名
PROGRESS(Signed2,0)
説明
フィールドをフォーム上にプログレス・バーとして表示します。
PROGRESSという、長さが2の符号つき数値フィールドを作成します。フィールド・コンポーネントのソースから、PRIM_EVEFビジュアライゼーションを削除し、代わりにプログレス・バー・ビジュアライゼーションを追加してください。いったんフィールドを保存し、ビジュアライゼーションを使用します。
フィールドのソース
Begin_Com Role(*EXTENDS #PRIM_OBJT)
Begin_Com Role(*Visual #PRIM_EVPB) Name(#VisualProgress) Defaultvisual(True) Height(19) Width(209)
End_Com
End_Com
フォームのソース
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(130) Clientwidth(492) Height(157) Left(304) Top(155)
Define_Com Class(#PROGRESS.Visual) Name(#PROGRESS) Displayposition(1) Height(57) Labelhoralignment(Center) Labelposition(Top) Left(112) Marginleft(0) Margintop(19) Parent(#COM_OWNER) Tabposition(1) Top(16) Width(233)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_INC) Caption('Increment') Displayposition(2) Left(112) Parent(#COM_OWNER) Tabposition(2) Top(88)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_DEC) Caption('Decrement') Displayposition(3) Left(264) Parent(#COM_OWNER) Tabposition(3) Top(88)
Evtroutine Handling(#PHBN_INC.Click)
Change Field(#STD_IDNO) To('#PROGRESS + 1')
Change Field(#PROGRESS) To(#STD_IDNO)
Endroutine
Evtroutine Handling(#PHBN_DEC.Click)
Change Field(#STD_IDNO) To('#PROGRESS - 1')
Change Field(#PROGRESS) To(#STD_IDNO)
Endroutine
End_Com
外観
