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 | |
parent | ae8f7295c64e3ed8b5e506f59c0d1782328baa52 (diff) | |
download | fpGUI-ce211febcabb02606c0d5b45b4c8502a76d6ae58.tar.xz |
tiOPF: changes required due to changes in base mediators in tiOPF
Diffstat (limited to 'extras')
-rw-r--r-- | extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas | 4 | ||||
-rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 18 |
2 files changed, 11 insertions, 11 deletions
diff --git a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas index 9ab3c7e2..979e6592 100644 --- a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas +++ b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmmain.pas @@ -95,7 +95,7 @@ begin tiAppError('You need to select a Contact first'); Exit; end; - c := TContact(TtiStringGridMediatorView(FMediator.ComponentMediator(grdContacts)).SelectedObject); + c := TContact(TtiStringGridMediatorView(FMediator.FindByComponent(grdContacts).Mediator).SelectedObject); if not Assigned(c) then Exit; //==> @@ -115,7 +115,7 @@ begin tiAppError('You need to select a Contact first'); Exit; end; - c := TContact(TtiStringGridMediatorView(FMediator.ComponentMediator(grdContacts)).SelectedObject); + c := TContact(TtiStringGridMediatorView(FMediator.FindByComponent(grdContacts).Mediator).SelectedObject); if tiAppConfirmation('Are you sure you want to delete <%s>', [c.FirstName + ' ' + c.LastName]) then begin 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; |