From 1287ce1650288377b2cec1da0c96e7826afb9168 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 3 Apr 2012 17:37:52 +0000
Subject: [PATCH] TPublishedPropertyManager can now (if desired) handle unknown
 properties

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2378 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/imp_utils.pas | 96 +++++++++++++++++++++++++----------------
 1 file changed, 59 insertions(+), 37 deletions(-)

diff --git a/wst/trunk/imp_utils.pas b/wst/trunk/imp_utils.pas
index 814bebfa3..1c87affad 100644
--- a/wst/trunk/imp_utils.pas
+++ b/wst/trunk/imp_utils.pas
@@ -29,6 +29,9 @@ Type
   TPublishedPropertyManager = class(TInterfacedObject,IPropertyManager)
   Private
     FParent : TObject;
+    FUnknownProps : IPropertyManager;
+    FHandleUnknownProps : Boolean;
+  private
     procedure Error(Const AMsg:string);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
     procedure Error(Const AMsg:string; Const AArgs : array of const);overload;
   Protected
@@ -39,7 +42,10 @@ Type
     procedure Clear();
     procedure Copy(ASource:IPropertyManager; Const AClearBefore : Boolean);
   Public
-    constructor Create(AParent : TObject);
+    constructor Create(
+            AParent             : TObject;
+      const AHandleUnknownProps : Boolean = False
+    );
   End;
 
   function IsStrEmpty(Const AStr:String):Boolean;{$IFDEF USE_INLINE}inline;{$ENDIF}overload;
@@ -209,27 +215,31 @@ Var
   int64Val : Int64;
 begin
   pinf := GetPropInfo(FParent,AName);
-  If Assigned(pinf) And Assigned(pinf^.SetProc) Then Begin
-    Case pinf^.PropType^.Kind of
-      tkLString
-      {$IFDEF WST_DELPHI},tkString{$ENDIF}
-      {$IFDEF FPC},tkSString,tkAString{$ENDIF}
-      {$IFDEF WST_UNICODESTRING},tkUString{$ENDIF}
-      ,tkWString :
-        SetStrProp(FParent,pinf,AValue);
-      tkEnumeration :
-        SetEnumProp(FParent,pinf,AValue);
-      tkInteger,tkInt64{$IFDEF FPC},tkQWord{$ENDIF} :
-        Begin
-          If TryStrToInt64(AValue,int64Val) Then
-            SetOrdProp(FParent,AName,int64Val);
-        End;
-      {$IFDEF FPC}
-      tkBool :
-        SetOrdProp(FParent,AName,Ord(StrToBool(AValue)));
-      {$ENDIF}
-    End;
-  End;
+  if Assigned(pinf) then begin
+    if Assigned(pinf^.SetProc) then begin
+      Case pinf^.PropType^.Kind of
+        tkLString
+        {$IFDEF WST_DELPHI},tkString{$ENDIF}
+        {$IFDEF FPC},tkSString,tkAString{$ENDIF}
+        {$IFDEF WST_UNICODESTRING},tkUString{$ENDIF}
+        ,tkWString :
+          SetStrProp(FParent,pinf,AValue);
+        tkEnumeration :
+          SetEnumProp(FParent,pinf,AValue);
+        tkInteger,tkInt64{$IFDEF FPC},tkQWord{$ENDIF} :
+          Begin
+            If TryStrToInt64(AValue,int64Val) Then
+              SetOrdProp(FParent,AName,int64Val);
+          End;
+        {$IFDEF FPC}
+        tkBool :
+          SetOrdProp(FParent,AName,Ord(StrToBool(AValue)));
+        {$ENDIF}
+      End;
+    end;
+  end else if FHandleUnknownProps then begin
+    FUnknownProps.SetProperty(AName,AValue);
+  end;
 end;
 
 procedure TPublishedPropertyManager.SetProperties(const APropsStr: string);
@@ -257,20 +267,24 @@ Var
 begin
   Result := '';
   pinf := GetPropInfo(FParent,AName);
-  If Assigned(pinf) And Assigned(pinf^.SetProc) Then Begin
-    Case pinf^.PropType^.Kind of
-      tkLString
-      {$IFDEF WST_DELPHI},tkString{$ENDIF}
-      {$IFDEF FPC},tkSString,tkAString{$ENDIF}
-      {$IFDEF WST_UNICODESTRING},tkUString{$ENDIF}
-      ,tkWString :
-        Result := GetStrProp(FParent,pinf);
-      tkEnumeration :
-        Result := GetEnumProp(FParent,pinf);
-      tkInteger,tkInt64{$IFDEF FPC},tkQWord{$ENDIF} :
-        Result := IntToStr(GetOrdProp(FParent,pinf));
-    End;
-  End;
+  if Assigned(pinf) then begin
+    if Assigned(pinf^.SetProc) then begin
+      Case pinf^.PropType^.Kind of
+        tkLString
+        {$IFDEF WST_DELPHI},tkString{$ENDIF}
+        {$IFDEF FPC},tkSString,tkAString{$ENDIF}
+        {$IFDEF WST_UNICODESTRING},tkUString{$ENDIF}
+        ,tkWString :
+          Result := GetStrProp(FParent,pinf);
+        tkEnumeration :
+          Result := GetEnumProp(FParent,pinf);
+        tkInteger,tkInt64{$IFDEF FPC},tkQWord{$ENDIF} :
+          Result := IntToStr(GetOrdProp(FParent,pinf));
+      End;
+    end;
+  end else if FHandleUnknownProps then begin
+    Result := FUnknownProps.GetProperty(AName);
+  end;
 end;
 
 function TPublishedPropertyManager.GetPropertyNames(ADest: TStrings): Integer;
@@ -279,6 +293,8 @@ Var
   i, propListLen : Integer;
 begin
   ADest.Clear();
+  if FHandleUnknownProps then
+    FUnknownProps.GetPropertyNames(ADest);
   propListLen := GetPropList(PTypeInfo(FParent.ClassInfo),propList);
   if (propListLen > 0) then begin
     Try
@@ -329,10 +345,16 @@ begin
   End;
 end;
 
-constructor TPublishedPropertyManager.Create(AParent: TObject);
+constructor TPublishedPropertyManager.Create(
+        AParent             : TObject;
+  const AHandleUnknownProps : Boolean = False
+);
 begin
   Assert(Assigned(AParent));
   FParent := AParent;
+  FHandleUnknownProps := AHandleUnknownProps;
+  if FHandleUnknownProps then
+    FUnknownProps := TStoredPropertyManager.Create() as IPropertyManager;
 end;