PRIM_LIST.Columnクラス - ColumnPinnedプロパティ 

リストの右側または左側に列をピン止めします

PRIM_LIST.Columnクラス (PRIM_LIST.Column) のメンバ

データタイプ - 列挙

詳細

ColumnPinned プロパティを使用すると、列をメインリストの本文の左側または右側に配置できます。 

固定列は垂直方向にスクロールしますが、水平スクロールの対象にはならず、常に表示されます。

許容値

列挙値

説明

Left

列はリストの左側に配置される

None

列はリスト本体に配置される

Right

列はリストの右側に配置される

例

列見出しをクリックすると、左に固定されている列の効果を確認できます。 

     Begin_Com Role(*EXTENDS #PRIM_WEB) Height(752) Width(1032) Theme(#SYS_THEME<2015Blue>) LayoutManager(#Layout1) 

        Define_Com Class(#PRIM_TBLO) Name(#Layout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutRow1) DisplayPosition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutColumn1) DisplayPosition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#LayoutColumn1) Manage(#List) Parent(#Layout1) Row(#LayoutRow1) 

        Define_Com Class(#PRIM_LIST) Name(#List) DisplayPosition(1) Left(0) Parent(#COM_OWNER) TabPosition(1) Top(0) Height(752) Width(1032) RowHeight(29)
        Define_Com Class(#PRIM_LIST.Number) Name(#ColumnNumber) ColumnWidth(130) DisplayPosition(1) Increment(1) Parent(#List) Source(#xDemoNumber) Wrap(False)
        Define_Com Class(#PRIM_LIST.Number) Name(#ColumnNumber2) ColumnWidth(340) DisplayPosition(2) Increment(1) Parent(#List) Source(#xDemoNumber_2) Wrap(False)
        Define_Com Class(#PRIM_LIST.String) Name(#ColumnString) ColumnWidth(768) DisplayPosition(3) Parent(#List) Source(#xDemoCaption) 

        Evtroutine Handling(#Com_owner.CreateInstance) 

           Begin_Loop Using(#xDemoNumber) To(100) 

              #xDemoNumber_2 := #xDemoNumber * 100
              #xDemoCaption := ("List item &1").Substitute( #xDemoNumber.AsString ) 

           Add_Entry To_List(#List) 

        End_Loop 

        Endroutine 

        Evtroutine Handling(#ColumnNumber.ColumnClick #ColumnNumber2.ColumnClick #ColumnString.ColumnClick) Com_Sender(#Sender) 

           If (#Sender.ColumnPinned = Left) 

              #Sender.ColumnPinned := None 

           Else 
  
              #Sender.ColumnPinned := Left 

           Endif 

        Endroutine 

     End_Com


参照

すべてのコンポーネント クラス
テクニカルリファレンス

  • No labels