Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     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