serial TTreeViewExCNTs,KeyCodesCNTs Default %Library.TMFormClass %Library.TMForm %TMGroupBox %TMGroupBox %TMLabel %TMLabel %TMLabel %TMButton %TMButton %TMButton %TMButton %TMComboBox %TMComboBox %TMComboBox %TMGroupBox %TMImageList %TMLabel %TMRichEdit %TMTreeView 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_", COL: "_DestCol) ... Set Pushed=Pushed+1 .. Else Do ... Set Unknown=Unknown_"("_SrcRow_": "_SrcCol_") "_cnCode_", "_ccCode_$C(13,10) 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 _" column property.","TTreeViewEx",$$$MBICONINFORMATION) . Else Do .. Do MApplication.MessageBox("Pushed "_ Pushed _" column 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" .. Do ..cbbSourceRowClick($LB(0)) . Else Do .. Set ..cbbSourceRow.Enabled="False" .. Set ..cbbSourceRow.Text="No ID's available" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal 0 Do .. Set ..cbbSourceColumn.ItemIndex=0 .. Set ..cbbSourceColumn.Enabled="True" . Else Do .. Set ..cbbSourceColumn.Enabled="False" .. Set ..cbbSourceColumn.Text="No ID's available" ;End of user code s Args=$lb(Sender) q ]]> cache 0 document literal Program:%String cache 0 document literal Program,RowID:%String cache 0 document literal cache 0 document literal Program:%String cache 0 document literal Node:%TMTreeNode cache 0 document literal Args:%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