[ |../../index.htm#lansa/lansa050_2670.htm]
現在地: RAMP-TSガイド > VLF-ONE 5250 フォーム・ラッパー > ラッパーの配置

ラッパーの配置

フォーム・ラッパーにはプロパティ #COM_OWNER.avWrapperAttachment が含まれています。
省略値は CENTER になっており、ラッパーは 5250 画面のを効果的に置換することを意味しています。

ただし、ラッパーの uInitialize メソッドでこの値を TOP、BOTTOM、LEFT、RIGHT に変更することが可能です。この値はラッパーが 5250 画面を基準にした表示位置を示します。
左のラッパー:

 
右のラッパー:

 
上のラッパー:

 
下のラッパー:

以下は表示ごとに画面ラッパーが移動する例です。
Begin_Com Role(*EXTENDS #vf_ac038O) Height(65) Width(233) Layoutmanager(#Layout1)
Define_Com Class(#Prim_VS.style) Name(#Blue) Normbackcolor(0:99:177) Textcolor(White)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Column(#Layout1Column1) Manage(#label1) Parent(#Layout1) Row(#Layout1Row1) Sizing(None)
Define_Com Class(#PRIM_LABL) Name(#label1) Parent(#COM_OWNER) Displayposition(1) Tabposition(1) Tabstop(False) Left(0) Top(20) Height(25) Width(233) Alignment(Center) Verticalalignment(Center)

• -------------------------------------------------------------------------------------------
  Mthroutine Name(uInitialize) Options(*REDEFINE)
  #COM_ANCESTOR.uInitialize
  #COM_OWNER.Styles.add Style(#Blue)
  Endroutine
• -------------------------------------------------------------------------------------------
  Mthroutine Name(SHOW_CURRENT_FORM) Options(*REDEFINE)
  Case (#Com_owner.avWrapperAttachment)
  When (= CENTER)
  #COM_OWNER.avWrapperAttachment := LEFT
  #Com_owner.width := 200
  When (= LEFT)
  #COM_OWNER.avWrapperAttachment := RIGHT
  #Com_owner.width := 200
  When (= RIGHT)
  #COM_OWNER.avWrapperAttachment := TOP
  #Com_owner.Height := 100
  When (= TOP)
  #COM_OWNER.avWrapperAttachment := BOTTOM
  #Com_owner.Height := 100
  When (= BOTTOM)
  #COM_OWNER.avWrapperAttachment := CENTER
  Endcase
  #label1.Caption := "Screen Wrapper - " + #COM_OWNER.avWrapperAttachment
  Endroutine
  End_Com   
   
  [ |../../index.htm#lansa/lansa050_2670.htm]