Echelon LonMaker - Handbuch (Seite 279)

VARIANT CMyControl::GetLcaValue() {
return COleVariant(InternalGetText());
//der LCA-Wert ist der/die CmyControl-Text/Überschrift
}
void CMyControl::SetLcaValue(const VARIANT FAR& newValue)
{
COleVariant vaLcaValue = newValue;
// Wert in Textformat ändern
vaLcaValue.ChangeType(VT_BSTR);
ASSERT(vaLcaValue.vt == VT_BSTR);
CString strLcaValue(vaLcaValue.bstrVal);
// Überprüfen, ob der Text abweicht
if (strLcaValue != InternalGetText()) {
// Text des Steuerelements festlegen
SetTextNoModify(strLcaValue);
// das ist eine gebundene Eigenschaft -
// Clients zu Änderung benachrichtigen
BoundPropertyChanged(dispidLcaValue);
}
}
LonMaker Benutzerhandbuch 12-15