Standaard events: - OnChange >> #Orig - OnEnter >> #Orig - OnExit >> #Orig - OnKeyDown >> #Orig - OnKeyPress >> #Orig

Extra events:
OnChangeItem  >>                       Args=$LB(Sender,PrevIndex)
OnBeforeFillItems  >>  #Orig         Args=$LB(Sender)
OnAfterFillItems >>  #Orig             Args=$LB(Sender)

]]> serial %Const,KeyCodesCNTs,UILibCtrlCNTs Default %Library.TMComboBox %Library.String -1 %Library.String 1 Collection of the drop-down list options. Use %TMString methods (Add, Insert, Move, Delete, IndexOf) to operate with separate items. %VHSys.Lib.TMStrings %Library.String "False" %Library.String "False" Geeft als argumenten terug: $LB(Sender)

Te plaatsen in de OnCreate() method van de FormClass:

Set ..cboExample.OnAfterFillItems=$lb(%this,"cboExampleOnAfterFillItems")

]]> %Library.String Geeft als argumenten terug: $LB(Sender)

Te plaatsen in de OnCreate() method van de FormClass:

Set ..cboExample.OnBeforeFillItems=$lb(%this,"cboExampleOnBeforeFillItems")

]]> %Library.String Geeft als argumenten terug: $LB(Sender,PrevIndex)

Te plaatsen in de OnCreate() method van de FormClass:

Set ..cboExample.OnChangeItem=$lb(%this,"cboExampleChangeItem")

]]> %Library.List For internal use. generator initvalue:%String 0 %Library.Status Wist alle Items (keys en text) in de ComboBox. 0 Kopieert alle Items van één TComboBox (FromCombo) naar deze TComboBox. Als de parameter SetSelected=1, dan wordt ook het geselecteerde item van FromCombo overgenomen FromCombo:UI.Lib.Ctrl.TComboBox,SetSelected:%Boolean=0 0 UI.Lib.Ctrl.TComboBox For internal use TextBegin:%String 0 Als ForceTrigger = 1, dan wordt de event sowieso getriggered, ook als PrevIndex=..ItemIndex (Default ForceTrigger=0) PrevIndex:%Integer,ForceTrigger:%Integer=0 0 "_..ItemIndex) Quit:('ForceTrigger)&&(PrevIndex=..ItemIndex) Do tciFTriggerEvent(..OnChangeItem,$LB(%this,PrevIndex)) Set ..FPrevIndex=..ItemIndex Quit ;============================================================================= tciFTriggerEvent(Event,Args) Quit:(Event="") //$LI(Event,1)=ORef waar de eventhandling is terug te vinden //$LI(Event,2)=Naam van het uit te voeren event, te vinden in object met als oref=$LI(Event,1) Do ..HandleEvent($LI(Event,1),$LI(Event,2),.Args) Quit ]]> Event:%String,Args:%String="" 0 ResetItem )
Verdere uitleg: zie method SetTextItems() van de klasse VHSys.Lib.TMStrings
]]> Text:%String,Keys:%List,ResetItem:%Integer,CheckFlags:%Integer,RemoveFlags:%Integer 0 %Library.String Args:%String 0 Args:%String 0 Args:%String cache 0 document literal Args:%String 0 Args:%String cache 0 document literal de originele OnKeyDownOrig() method van TComboBox moet steeds opgeroepen worden

de parameter Args moet hierbij als .Local doorgegeven worden

de lijn "s Args=$lb(Sender,Key,Shift)", komende na ";End of user code", MOET in commentaar gezet worden (of verwijderen)

Method: ..cboExampleKeyDown(Args)

...
;Beginning of user code
...
Do Sender.OnKeyDownOrig(.Args)
...
;End of user code
//s Args=$lb(Sender,Key,Shift)
q

]]> Args:%String 0 -1) ..ItemIndex=..ItemIndex-1 . Do okdSelectItem . Do ..FTriggerChangeItem(..FPrevIndex) Else If Key=$$$keyDown Do . Set:(..ItemIndex<..Items.Count) ..ItemIndex=..ItemIndex+1 . Do okdSelectItem . Do ..FTriggerChangeItem(..FPrevIndex) Else If Key=$$$keyHome Do . Set ..ItemIndex=$S(..Items.Count>0:0, 1:-1) ; eerste item, of -1 als items="" . Do okdSelectItem . Do ..FTriggerChangeItem(..FPrevIndex) Else If Key=$$$keyEnd Do . Set:(..ItemIndex<..Items.Count) ..ItemIndex=..Items.Count-1 . Do okdSelectItem . Do ..FTriggerChangeItem(..FPrevIndex) ; Do not pass parameter values to ComboBox control Set Key=0 ;End of user code s Args=$lb(Sender,Key,Shift) q okdSelectItem Do ..SelectAll() Set ..FUserInput="" Quit ]]> de belangrijke informatie bij het gebruik van deze Method/Event is analoog aan de OnKeyDownOrig() method.]]> Args:%String 0 Index:%Integer 0 Key:%String 0 Text:%String 0 0 %Library.String 0 %Library.String SetIndex() is 100% gelijk aan SelectByIndex() Index:%Integer 0 Msg:%String 0 %Library.CacheSerialState Address ClassName CloseFromClient Parent Align Anchors AutoSize BiDiMode Caption ClientHeight ClientWidth Color Constraints Cursor DockOrientation DragCursor DragKind DragMode Enabled Font Height Hint Left Name OnCanResize OnClick OnConstrainedResize OnDblClick OnDragDrop OnDragOver OnEndDock OnEndDrag OnMouseDown OnMouseMove OnMouseUp OnResize OnStartDock OnStartDrag ParentBiDiMode ParentColor ParentFont ParentShowHint PopupMenu ScalingFlags ShowHint Tag Text Top Visible Width BevelEdges BevelInner BevelKind BevelOuter BevelWidth BorderWidth Brush ControlCount Ctl3D DockSite HelpContext OnDockDrop OnDockOver OnEnter OnExit OnGetSiteInfo OnKeyDown OnKeyPress OnKeyUp OnMouseWheel OnMouseWheelDown OnMouseWheelUp ParentCtl3D TabOrder TabStop UseDockManager WheelAccumulator Canvas CharCase DropDownCount DroppedDown ItemHeight ItemIndex Items MaxLength OnChange OnDrawItem OnDropDown OnMeasureItem Query SelLength SelStart SelText Sorted Style PropName ComboInput OnChangeItem PrevIndex FPrevIndex OnAfterFillItems OnBeforeFillItems LookUpOnExit KeepAllKeys