* Minor update to the tiOPF generic edit mediators unit.

* Correctly set the default values for Form and PageControl components.
* Improved the UI Designer so only non-default values for Boolean and Enum types are written to file.

1 files changed, 2 insertions, 3 deletions

diff --git a/extras/tiopf/gui/tiGenericEditMediators.pas b/extras/tiopf/gui/tiGenericEditMediators.pas
index ea483612..878bbed9 100644
--- a/extras/tiopf/gui/tiGenericEditMediators.pas
+++ b/extras/tiopf/gui/tiGenericEditMediators.pas
@@ -373,13 +373,12 @@ end;
 
 procedure TMediatorView.GuiToObject;
 begin
-  Subject.PropValue[FieldName] := TypInfo.GetPropValue((FEditControl as ComponentClass), GuiFieldName);
+  Subject.PropValue[FieldName] := TypInfo.GetPropValue(FEditControl, GuiFieldName);
 end;
 
 procedure TMediatorView.ObjectToGui;
 begin
-  TypInfo.SetPropValue( (FEditControl as ComponentClass), GuiFieldName,
-      Subject.PropValue[FieldName]);
+  TypInfo.SetPropValue(FEditControl, GuiFieldName, Subject.PropValue[FieldName]);
 end;
 
 procedure TMediatorView.SetupGUIandObject;