diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-14 10:57:59 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-14 10:57:59 +0200 |
| commit | ce211febcabb02606c0d5b45b4c8502a76d6ae58 (patch) | |
| tree | 9354966d4a41c832c1e1dd9a7153928912a945ce /extras/tiopf/gui | |
| parent | ae8f7295c64e3ed8b5e506f59c0d1782328baa52 (diff) | |
| download | fpGUI-ce211febcabb02606c0d5b45b4c8502a76d6ae58.tar.xz | |
tiOPF: changes required due to changes in base mediators in tiOPF
Diffstat (limited to 'extras/tiopf/gui')
| -rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas index 3b533ac9..685a72b0 100644 --- a/extras/tiopf/gui/tiMediators.pas +++ b/extras/tiopf/gui/tiMediators.pas @@ -424,7 +424,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnchange,ouCustom] then + if ObjectUpdateMoment in [ouOnchange,ouCustom,ouDefault] then THackBaseEdit(View).OnChange := @DoOnChange else THackBaseEdit(View).OnExit := @DoOnChange; @@ -499,7 +499,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; @@ -547,7 +547,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoTrackBarChanged // TfpgTrackBar has a different event signature else View.OnExit := @DoOnChange; @@ -604,7 +604,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; @@ -634,7 +634,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; @@ -809,7 +809,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; @@ -882,7 +882,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; @@ -948,7 +948,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; @@ -1189,7 +1189,7 @@ begin inherited SetObjectUpdateMoment(AValue); if View <> nil then begin - if ObjectUpdateMoment in [ouOnChange,ouCustom] then + if ObjectUpdateMoment in [ouOnChange,ouCustom,ouDefault] then View.OnChange := @DoOnChange else View.OnExit := @DoOnChange; |