1 TCHUI.TMemo,TCHUI.TProxyControl 0 AValue:%String %Status gewone TMemo.TextSet uitvoering (1) // YES -> reeds bezig met het updaten van eigen + andere binded TpcMemo controls? // YES -> gewone TMemo.TextSet uitvoering (2) // NO -> Update van eigen + andere binded TpcMemos starten (via FSetFieldData) (3) // PS: // ChangingControls property vermijdt recursie If (..IsProxyBinded()) && ('..pxDataSource.ChangingControls) Do . Do ..pxDataSource.FSetFieldData(%this,..DataField,AValue) //(3) . Set Result=$$$OK Else Do . If ..DoNotSetMyValue Do .. Set Result=$$$OK . Else Do .. Set Result=##class(TCHUI.TMemo)%this.TextSet(AValue) //(1) & (2) Quit Result ]]> AValue:%String KillFocusOk:%Boolean