From: Erik B. <eb...@us...> - 2006-10-26 01:17:15
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv22184/Src/Utils Modified Files: GX_OtaUtils.pas Log Message: Add tkChar and tkWChar support for setting properties Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.196 retrieving revision 1.197 diff -u -d -r1.196 -r1.197 --- GX_OtaUtils.pas 16 Oct 2006 06:54:09 -0000 1.196 +++ GX_OtaUtils.pas 26 Oct 2006 01:17:10 -0000 1.197 @@ -1726,7 +1726,6 @@ else Result := True; - if Result then begin {$IFDEF VER160} @@ -2595,6 +2594,8 @@ VString : string; VShortString : string; VFloat : Extended; + VChar : Char; + VWChar : WChar; function PropertyDescription: string; begin @@ -2644,6 +2645,20 @@ Result := AComponent.SetPropByName(PropertyName, VFloat); end; + tkChar: begin + if Length(Value) > 0 then begin + VChar := Char(Value[1]); + Result := AComponent.SetPropByName(PropertyName, VChar); + end; + end; + + tkWChar: begin + if Length(Value) > 0 then begin + VWChar := Value[1]; + Result := AComponent.SetPropByName(PropertyName, VWChar); + end; + end; + // Note: Booleans are of type tkEnumeration tkEnumeration: begin VInteger := GetEnumValueFromStr(NativeObject, PropertyName, Value); |