anchor.diff:  
   procedure TVFDPropertyEditor.LoadValue(wg: TfpgWidget);
   begin
  -  Writeln('abstract: editor.LoadValue');
  +  debugln('abstract: editor.LoadValue');
   end;
   
   procedure TVFDPropertyEditor.UpdateProperty(Sender: TObject);
  
positive.code:     s := GetValueText(wg);
    except
      on E: Exception do
        writeln('Detected a error: ', E.Message);
    end;
    
    Canvas.BeginDraw;
  
negative.code: 
  procedure TVFDPropertyEditor.StoreValue(wg: TfpgWidget);
  begin
    debugln('abstract: editor.StoreValue');
    // check property type
    // the property must be published !
    // PPropInfo := GetPropInfo(object, 'propname');
  