summaryrefslogtreecommitdiff
path: root/examples/apps
diff options
context:
space:
mode:
Diffstat (limited to 'examples/apps')
-rw-r--r--examples/apps/uidesigner/newformdesigner.pas3
-rw-r--r--examples/apps/uidesigner/vfdwidgets.pas2
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