Page History
[ 
|../../index.htm#lansa/l4wdev03_0290.htm]
現在地:
...
フィールド名
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
...
外観
...
