summaryrefslogtreecommitdiff
path: root/uidesigner/vfdwidgetclass.pas
diff options
context:
space:
mode:
Diffstat (limited to 'uidesigner/vfdwidgetclass.pas')
-rw-r--r--uidesigner/vfdwidgetclass.pas8
1 files changed, 4 insertions, 4 deletions
diff --git a/uidesigner/vfdwidgetclass.pas b/uidesigner/vfdwidgetclass.pas
index 059aaf79..7b9d3c62 100644
--- a/uidesigner/vfdwidgetclass.pas
+++ b/uidesigner/vfdwidgetclass.pas
@@ -188,7 +188,7 @@ begin
s := GetValueText(wg);
except
on E: Exception do
- writeln('Detected a error: ', E.Message);
+ debugln('Detected an error: ', E.Message);
end;
Canvas.BeginDraw;
@@ -203,7 +203,7 @@ end;
procedure TVFDWidgetProperty.OnExternalEdit(wg: TfpgWidget);
begin
- writeln('external edit');
+ debugln('external edit');
end;
{ TVFDPropertyEditor }
@@ -222,7 +222,7 @@ end;
procedure TVFDPropertyEditor.LoadValue(wg: TfpgWidget);
begin
- Writeln('abstract: editor.LoadValue');
+ debugln('abstract: editor.LoadValue');
end;
procedure TVFDPropertyEditor.UpdateProperty(Sender: TObject);
@@ -233,7 +233,7 @@ end;
procedure TVFDPropertyEditor.StoreValue(wg: TfpgWidget);
begin
- Writeln('abstract: editor.StoreValue');
+ debugln('abstract: editor.StoreValue');
// check property type
// the property must be published !
// PPropInfo := GetPropInfo(object, 'propname');