serial KeyCodesCNTs Default %Library.TMFormClass %Library.String %Library.Integer 150 %Library.TMForm %TMLabel %Library.List %Library.List %TMButton %TMSpeedButton %TMButton %TMCheckListBox %TMLabel %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPanel %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Event:%String,Args:%String="" cache 0 document literal Id:%Library.String cache 0 %Library.Boolean document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Do . Set ..Form.ModalResult=$$$mrOk ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal ClassName:%Library.String cache 0 %Library.Boolean document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 1000 Do . Set FC=1000 Set ..FetchCeiling=FC Set Sender.Caption="Fetch count ("_FC_")" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form pnlObjects CheckListBox1 btnExtra btnOk lblMsg Button1 btnAnnuleren clbObjects FetchCeiling pmExtra pmiRefresh OnProgress pmiFetchCount pmiSep1 pmiFetchAll FClassName pmiDebugMode pmiSep2 OUTIds Label1 txtOpenId pmiClearSelection