anchor.diff:      s := GetValueText(wg);
     except
       on E: Exception do
  -      writeln('Detected a error: ', E.Message);
  +      debugln('Detected an error: ', E.Message);
     end;
     
     Canvas.BeginDraw;
  
positive.code: 
  procedure TVFDWidgetProperty.OnExternalEdit(wg: TfpgWidget);
  begin
    writeln('external edit');
  end;
  
  { TVFDPropertyEditor }
  
negative.code: 
  procedure TVFDPropertyEditor.LoadValue(wg: TfpgWidget);
  begin
    debugln('abstract: editor.LoadValue');
  end;
  
  procedure TVFDPropertyEditor.UpdateProperty(Sender: TObject);
  