summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2012-07-06 12:23:52 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2012-07-06 12:23:52 +0100
commitc8bd7e968ed5fdc6276aff17ab0aef5855525d4a (patch)
treeafb3ec196a08cdbaba7835780290cde9df85bf30
parentd004197b49ab630b5b0ca59396dc77037be2919f (diff)
downloadfpGUI-c8bd7e968ed5fdc6276aff17ab0aef5855525d4a.tar.xz
uidesigner: Changes writeln() statements to debugln() ones.
We can't use writeln() in a Windows GUI application, because we don't have access to a console output area.
-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');