serial KeyCodesCNTs Default %Library.TMFormClass %TMBevel %Library.TMForm %Library.ListOfDataTypes %Library.Integer 0 %Library.String 0 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMCheckBox %TMListBox %TMListBox %TMEdit initvalue:%String cache 0 %Status document literal cache 0 %Library.Boolean document literal cache 0 document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Data:%String cache 0 %Library.Integer document literal Data:%String cache 0 %Library.Integer document literal cache 0 %Library.ListOfDataTypes document literal Del:%String cache 0 %Library.String document literal initvalue:%String cache 0 MApplication document literal RemoveFromSource=True: verwijder een element uit de source als het in de dest voorkomt Data:%ListOfDataTypes,RemoveFromSource:%Boolean="True" cache 0 document literal Data:%String,Del:%String,RemoveFromSource:%Boolean="False" cache 0 document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal (..lbDest.Items.Count-2)) //laatste uit lijst (kan niet down) Do ..lbDest.Items.Exchange(..lbDest.ItemIndex,..lbDest.ItemIndex+1) Set ..lbDest.ItemIndex=..lbDest.ItemIndex+1 ;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 Args:%String cache 0 document literal Args:%String cache 0 document literal 1 Do . Set ..chkSortDESC.Enabled="False" . Set ..chkSortDESC.Checked="False" Else If SelIndex=-1 Do . Set ..chkSortDESC.Enabled="False" . Set ..chkSortDESC.Checked="False" Else Do . Set ..chkSortDESC.Enabled="True" . New SortCol . Set SortCol=..lbDest.Items.GetStrings(SelIndex) . If ..rIsDESC(SortCol) Do .. Set ..chkSortDESC.Checked="True" . Else Do .. Set ..chkSortDESC.Checked="False" Set ..chkSortDESC.OnClick=$LB(%this,"chkSortDESCClick") ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Value:%Library.String cache 0 %Library.String document literal Value:%String cache 0 %Library.Boolean document literal Value:%String cache 0 %Library.String document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form SpeedButton1 SpeedButton2 SpeedButton3 SpeedButton4 lbDest lbSource btnAllToDest btnAllToSource btnAnnuleren btnDestDown btnDestUp btnOk btnOneToDest btnOneToSource Bevel1 MaxEntriesInDest btnExtraToDest txtExtraListEntry FullSourceList MinElementsInDest CheckBox1 chkSortDESC