透明性と不透明性
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(114) Clientwidth(522) Height(152) Left(106) Top(204) Width(538)
Define_Com Class(#PRIM_PANL) Name(#Details) Displayposition(1) Height(108) Left(15) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(13) Width(338)
Define_Com Class(#PRIM_PANL) Name(#Address) Displayposition(2) Enabled(False) Height(108) Left(15) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(13) Width(338)
Define_Com Class(#PRIM_PHBN) Name(#MoveToFront) Caption('Show Address') Displayposition(3) Left(360) Parent(#COM_OWNER) Tabposition(3) Top(8) Width(153)
Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Componentversion(1) Displayposition(1) Height(20) Left(8) Parent(#Details) Tabposition(1)
Define_Com Class(#SURNAME.Visual) Name(#SURNAME) Componentversion(1) Displayposition(2) Height(20) Left(8) Parent(#Details) Tabposition(2) Top(24)
Define_Com Class(#GIVENAME.Visual) Name(#GIVENAME) Componentversion(1) Displayposition(3) Height(20) Left(8) Parent(#Details) Tabposition(3) Top(48)
Define_Com Class(#ADDRESS1.Visual) Name(#ADDRESS1) Componentversion(1) Displayposition(1) Height(20) Left(8) Parent(#Address) Tabposition(1) Width(300)
Define_Com Class(#ADDRESS2.Visual) Name(#ADDRESS2) Componentversion(1) Displayposition(2) Height(20) Left(8) Parent(#Address) Tabposition(2) Top(24) Usepicklist(False) Width(300)
Define_Com Class(#ADDRESS3.Visual) Name(#ADDRESS3) Componentversion(1) Displayposition(3) Height(20) Left(8) Parent(#Address) Tabposition(3) Top(48) Width(300)
Define_Com Class(#POSTCODE.Visual) Name(#POSTCODE) Componentversion(1) Displayposition(4) Height(20) Left(8) Parent(#Address) Tabposition(4) Top(72) Usepicklist(False) Width(249)
Evtroutine Handling(#MoveToFront.Click)
If (#Details.DisplayPosition <> 1)
#Details.DisplayPosition := 1
#Details.enabled := True
#Address.enabled := False
#MoveToFront.Caption := "Show Address"
Else
#Address.DisplayPosition := 1
#Details.enabled := False
#Address.enabled := True
#MoveToFront.Caption := "Show Details"
Endif
Endroutine
End_Com