🚀 go-pugleaf

Oczywiście niesławne XE2 :)

Przenoszę sobie projekt do XE2. W jednym miejscu postanowiłem użyć 
TsSpinEdit z pakietu AlphaControls. Dziedziczy on ze standardowego 
VCLowego TSpinEdit. A zatem implementuje observatora niezbędnego do 
LiveBindings. Utworzyłem sobie TBindScopeDB, mam TBindingList, a w nim 
TBindLink, przypisałem ów TsSpinEdit do pola z DataSet 
(DataSet->DataSource->BindScopeDB), tworząc odpowiednie wyrażenia do 
formatowania, parsowania i zerowania. Niestety działa to tylko w jedną 
stronę - TsSpinEdit aktualizuje swoją wartość, natomiast ręczne zmiany 
jego wartości nie są uwzględniane w DataSecie, ani nie powodują zmiany 
jego stanu (dsBrowse->dsEdit). Analogiczne utworzone LiveBingings dla 
TsEdit (dziedziczące z TEdit) działa bez problemu, co więcej - dba o typ 
wprowadzanych danych (liczby) z automatu. W obu przypadkach lista 
powiązań używa AppManagera (UseAppManager = True). Poniżej kod obu 
powiązań. Oczywiście notyfikowanie listy po zmianach TsSpinedit 
(OnClick, OnChange): lbMaxListeners.Notify(Sender, '') nic nie daje.

dla TsEdit:

object bndlnkMaxListeners: TBindLink
   Category = 'Links'
   SourceMemberName = 'MAXLISTENERS'
   ControlComponent = edtMaxListeners
   SourceComponent = bsdbClassrooms
   ParseExpressions = <
     item
       ControlExpression = 'Text'
       SourceExpression = 'AsInteger'
     end>
   FormatExpressions = <
     item
       ControlExpression = 'Text'
       SourceExpression = 'AsInteger'
     end>
   ClearExpressions = <
     item
       ControlExpression = 'Text'
       SourceExpression = '"clear"'
     end>
end

dla TsSpinEdit:

object bndlnkMaxListenersSE: TBindLink
   Category = 'Links'
   SourceMemberName = 'MAXLISTENERS'
   ControlComponent = seMaxListeners
   SourceComponent = bsdbClassrooms
   ParseExpressions = <
     item
       ControlExpression = 'Value'
       SourceExpression = 'AsInteger'
     end>
   FormatExpressions = <
     item
       ControlExpression = 'Value'
       SourceExpression = 'AsInteger'
     end>
   ClearExpressions = <
     item
       ControlExpression = 'Value'
       SourceExpression = '0'
     end>
end

Ma ktoś pomysł?

jh