serial KeyCodesCNTs Default %Library.TMFormClass 0 %TMBevel %Library.TMForm %Library.ListOfDataTypes %Library.Integer 0 %Library.String 0 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %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 Args:%String cache 0 document literal %Library.CacheSerialState Address Form SpeedButton1 SpeedButton2 SpeedButton3 SpeedButton4 lbDest lbSource btnAllToDest btnAllToSource btnAnnuleren btnDestDown btnDestUp btnOk btnOneToDest btnOneToSource Bevel1 MaxEntriesInDest btnExtraToDest txtExtraListEntry FullSourceList MinElementsInDest