diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-22 15:04:19 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-22 15:04:19 +0000 |
| commit | 130bc8c66054721dfb1193c9dff2b15c8f2a7943 (patch) | |
| tree | 3dbdfcc323312562f5c24f4f3307ba547a941670 /examples | |
| parent | d411d778c193c357264ab3f7f456aed84df1a04e (diff) | |
| download | fpGUI-130bc8c66054721dfb1193c9dff2b15c8f2a7943.tar.xz | |
* Fixed more default property values.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/apps/uidesigner/newformdesigner.pas | 3 | ||||
| -rw-r--r-- | examples/apps/uidesigner/vfdwidgets.pas | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/examples/apps/uidesigner/newformdesigner.pas b/examples/apps/uidesigner/newformdesigner.pas index 713c6564..a3193b4e 100644 --- a/examples/apps/uidesigner/newformdesigner.pas +++ b/examples/apps/uidesigner/newformdesigner.pas @@ -841,7 +841,8 @@ end; procedure TwgPropertyList.HandleKillFocus; begin inherited HandleKillFocus; - Editor.Visible := True; + if Editor <> nil then + Editor.Visible := True; end; procedure TwgPropertyList.RealignEditor; diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas index 416d77e7..f799f41b 100644 --- a/examples/apps/uidesigner/vfdwidgets.pas +++ b/examples/apps/uidesigner/vfdwidgets.pas @@ -212,7 +212,7 @@ begin wc := TVFDWidgetClass.Create(TfpgForm); wc.NameBase := 'frm'; wc.AddProperty('WindowTitle', TPropertyString, ''); - wc.AddProperty('WindowPosition', TPropertyEnum, ''); +// wc.AddProperty('WindowPosition', TPropertyEnum, ''); FVFDFormWidget := wc; // Label |