Page History

...

     Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864) 

        Define_Com Class(#PRIM_MD.DropDown) Name(#DropDown) ColumnHeaderHeight(0) DisplayPosition(1) Label('Filter Numbers') Left(8) Parent(#COM_OWNER) PromptIcon('arrow_drop_down') RowLines(False) TabPosition(1) Top(8) DropDownPosition(Bottom) DropDownStyle(DropDown)
        Define_Com Class(#PRIM_MD.DataTableString) Name(#DropDownColumn) ColumnResize(False) ColumnUnits(Proportion) ColumnWidth(1) DisplayPosition(1) Parent(#DropDown) 

        Evtroutine Handling(#Com_owner.CreateInstance) 
   
           Begin_Loop To(100) 

              Add_Entry To_List(#DropDown)
              #DropDown.CurrentItem.Value := ("Item &1").Substitute( #DropDown.Items.ItemCount.AsString ) 

           End_Loop 

        Endroutine 

        Evtroutine Handling(#DropDown.AutoCompleting) Value(#Value) Handled(#Handled) 

              #Handled := True 

              Selectlist Named(#DropDown) 

                 #DropDownColumn.CurrentItem.Visible := #DropDownColumn.CurrentItem.Value.Contains( #Value ) 

              Endselect 

        Endroutine 

     End_Com

See also

All Component Classes

Technical Reference