serial TTreeViewExCNTs,KeyCodesCNTs Default %Library.TMFormClass %Library.TMForm %TMGroupBox %TMGroupBox %TMLabel %TMLabel %TMButton %TMButton %TMButton %TMButton %TMComboBox %TMComboBox %TMCheckListBox %TMGroupBox %TMLabel %TMRichEdit initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Checked:%Boolean="False" cache 0 document literal cache 0 %Library.Boolean document literal Args:%String cache 0 document literal Args:%String cache 0 document literal ROW: "_DestRow) .. Set Pushed=Pushed+1 Set ..lblMsg.Visible="False" If Pushed=0 Do . Do MApplication.MessageBox("Nothing to push...","TTreeViewEx",$$$MBICONINFORMATION) Else Do . Set ..btnAnnuleren.Caption="Sluiten" . If Pushed=1 Do .. Do MApplication.MessageBox("Pushed "_ Pushed _" row property.","TTreeViewEx",$$$MBICONINFORMATION) . Else Do .. Do MApplication.MessageBox("Pushed "_ Pushed _" row properties.","TTreeViewEx",$$$MBICONINFORMATION) If Created'="" Do . Do MApplication.MessageBox("Created destination(s): "_$C(13,10,13,10)_Created,"TTreeViewEx",$$$MBICONINFORMATION) If Unknown'="" Do . Do MApplication.MessageBox("Unknown source(s): "_$C(13,10,13,10)_Unknown,"TTreeViewEx",$$$MBICONERROR) Set ..rePushLog.Visible="False" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Do .. Set ..cbbSourceRow.ItemIndex=0 .. Set ..cbbSourceRow.Enabled="True" . Else Do .. Set ..cbbSourceRow.Enabled="False" .. Set ..cbbSourceRow.Text="No ID's available" ;End of user code s Args=$lb(Sender) q ]]> cache 0 document literal Program:%String cache 0 document literal cache 0 document literal Program:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form CheckListBox1 GroupBox1 GroupBox2 GroupBox3 Label1 Label2 Label3 gbProperties btnAnnuleren btnPush ComboBox1 ComboBox2 ComboBox3 cbbSourceColumn cbbSourceProgram cbbSourceRow cbbProgram TreeView1 tvDestination ImageList1 ilDestination Button1 btnSuggest lblMsg btnRefreshPrograms rePushLog clbDestination