serial UISetupLevelTree Default %Library.TMFormClass %Library.Integer 0 %Library.TMForm %Library.List %Library.TMStringList Huidige LevelDepth (let wel: ook unchecked levels tellen mee) %Library.String 0 %Library.Integer 5 %Library.List Wanneer een preset wordt gekozen uit de combobox, dan wordt het ID (dat gekoppeld is via het data-veld) onthouden in dit property. Echter wanneer de structuur van de levels wordt gewijzigd door de gebruiker (toevoegen,verwijderen,nieuw) dan is het ID dat onthouden werd niet meer representatief voor hetgeen op het scherm staat, dus bij die user-acties zal de property leeg gemaakt worden. %Library.String 0 %Library.List %TMShape %TMShape %TMShape %Library.String 1 %Library.String 1 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMPanel %TMScrollBox initvalue:%String 0 %Status $LB($LB(key1,key2,...,keyx),PresetNaam) PresetNaam,PresetKeys:%String,PresetID:%String="" 0 0 0 Args:%String 0 0 initvalue:%String 0 MApplication initvalue:%String 0 %Library.Status Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 0 %Library.Integer 0 %Library.Boolean 0 Do . New Msg . Set Msg="Deze opdracht verwijdert de huidige instellingen!"_$C(13,10) . Set Msg=Msg_"Bent u zeker dat u wilt doorgaan?" . Set tmpAnswer=MApplication.MessageBox(Msg,..Form.Caption,$$$MBICONQUESTION+$$$MBOKCANCEL+$$$MBDEFBUTTON2) Quit:(tmpAnswer=$$$mrCancel) 0 Do ..lbDeleteLevelBoxes() Quit 1 ]]> 0 CAPTION, KEY->$LB Do ComboBox.FillItems(..INTranslations.Text,..INKeys) ;CATEGORY->DATA (lijnen worden getekend bij overgang van categorie: zie ...cbbDrawItem) New Loop For Loop=0:1:..INTranslations.Count-1 Do . Do ComboBox.Items.SetObjects(Loop,..INTranslations.GetObjects(Loop)) Set ComboBox.OnChangeItem=$LB(%this,"dCOMPEVENTcbbLevelOnChange") Set ComboBox.OnDrawItem=$LB(%this,"dCOMPEVENTcbbDrawItem") Set ComboBox.Tag=Panel ;PARENT Set ComboBox.DropDownCount=18 Set ..aLBCONTAINER(Panel,$$$lbcComboBox)=ComboBox ;---=[CHECKBOX]=--- New CheckBox Set CheckBox=##class(%TMCheckBox).%New($LB(Panel.Address,0)) Set CheckBox.Left=8 Set CheckBox.Top=30 Set CheckBox.Width=16 Set CheckBox.Height=16 Set CheckBox.OnClick=$LB(%this,"dCOMPEVENTchkLevelClick") Set CheckBox.Tag=Panel ;PARENT Set CheckBox.Checked="True" Set ..aLBCONTAINER(Panel,$$$lbcCheckBox)=CheckBox ;Beschikbaar stellen voor gebruik Set ..aLBCONTAINER(Panel,$$$lbcIsAvailable)=1 Set ..aLBCONTAINER(Panel,$$$lbcIsSelected)=0 Quit ]]> 0 0 0 Key:%String 0 0 0 "": ReOrganizeLevelBoxes") Quit Do ..lbUpdateVolgNrs() Quit ]]> Level:%Integer 0 Keys:%List 0 LevelBox:%String,Selected:%Boolean 0 0 %Library.CacheSerialState "%Library.TMFormClass" Address Form Button1 TreeView1 DraggingObject Button2 Button3 Button4 CheckBox1 ComboBox1 Label1 Panel1 Dock1 ScrollBox1 SpeedButton1 SpeedButton2 SpeedButton3 Toolbar1 cbbLevelName chkLevelAvailable lblLevelNr sbLevelContainer btnToevoegen btnAfsluiten btnVerwijderen dckTop tbTop DraggingPanel Panel2 MAXLevelCount LevelCount LevelItems LevelKeys InitKeys ToolbarSep1 ToolbarSep2 btnNieuw ResultKeys btnCancel cbbPresets ResultKeysTranslation PresetKeys pnlControls INKeys INTranslations OUTKeys OUTTranslations Shape1 Shape2 Shape3 OUTPresetID