diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-22 09:30:36 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-22 09:30:36 +0000 |
commit | 88ee46de57e74eeb01ad6b1e8cf3da9ff60259c0 (patch) | |
tree | 34ab69f343337cc9486511f68af2f109c02a3ffc /extras/tiopf | |
parent | 0830146bd2221d1ac5177c20b4b5e22ba48ad53c (diff) | |
download | fpGUI-88ee46de57e74eeb01ad6b1e8cf3da9ff60259c0.tar.xz |
* 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.
Diffstat (limited to 'extras/tiopf')
-rw-r--r-- | extras/tiopf/gui/tiGenericEditMediators.pas | 5 |
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; |