serial KeyCodesCNTs Default %Library.TMFormClass 0 2 0 1 3 -1 1 2 4 3 1 2 %Library.String "Group Decode Editor" Sys.GroupDecode %Library.TMForm %Library.String 1 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton UI.Utils.GroupDecode.dlgItem $$$NULLOREF %TMImageList %TMLabel %TMLabel %TMLabel %TMLabel %TMListView %TMPanel %TMPanel %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal ; Ctl3D = False ; HideSelection = False ; HotTrackStyles = [] ; MultiSelect = True ; ReadOnly = True ; RowSelect = True ; SmallImages = ilItems ; TabOrder = 1 ; ViewStyle = vsReport ; OnDblClick = lvItemsDblClick ; OnKeyDown = lvItemsKeyDown ; OnSelectItem = lvItemsSelectItem ; end ; end ; object ilItems: CImageList ; Left = 118 ; Top = 98 ; end ;end ]]> Args:%String 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 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 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)_"> "_ExecCode,..Form.Caption,$$$MBICONEXCLAMATION) Quit "" ]]> cache 0 document literal cache 0 document literal cache 0 %Library.Integer document literal cache 0 document literal Item:Sys.GroupDecode.emItem cache 0 %Library.Integer document literal Item:%TMListItem cache 0 document literal lbStatus:%List cache 0 %Library.Boolean document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal ID:%String cache 0 %Library.List document literal cache 0 %Library.String document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal ID:%String cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal object Do iFILLOBJECT() New SaveOk Set SaveOk=0 ;Checken of het object reeds eerder is bewaard, anders extra geg opvragen If ..CurrentObject.%Id()="" Do . Set SaveOk=..lbStatusOK($$oSAVE()) . Do:(SaveOk) ..objUpdateInterface(..#oaFirstSave) Else Do . Set SaveOk=..lbStatusOK($$oSAVE()) Quit SaveOk ;------------------------------------------------------------------------------ oSAVE() New Status Set Status=..CurrentObject.%Save() Quit:($$$ISERR(Status)) $LB(..#lbsError,$$ParseStatus^vhLib(Status),$$$MBICONEXCLAMATION) Quit $LB(..#lbsOk) ;------------------------------------------------------------------------------ iFILLOBJECT() Set ..CurrentObject.Name=..txtName.Text Quit ]]> cache 0 %Library.Boolean document literal ObjectAction:%Integer cache 0 document literal cache 0 %Library.List document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form CurrentObject AppTitle btnOpen Button1 pnlLeft SpeedButton1 SpeedButton2 SpeedButton3 SpeedButton4 Panel1 pnlClient SpeedButton5 SpeedButton6 SpeedButton7 SpeedButton8 Edit1 Label1 Label2 ListView1 SpeedButton10 SpeedButton9 btnAddItem btnClearList btnClose btnDelItem btnNew btnSave btnSaveAs btnTestLong btnTestShort lvItems txtName lblItems lblName pmAddItem pmAddItemExisting pmAddItemNew pmDelItem pmiDelItemFromCurGroup pmiDelItemPermanently btnDelete btnExit lblTestOUT txtTestIN lblTestOUTLong lblTestOUTShort btnTest pnlDetail lblCondition lblType frmItem ilItems