diff options
Diffstat (limited to 'examples/apps')
-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 |