Merge pull request #30 from reinaldoacdc/master

SimpleRTTI - ajuste no bind do componente ttrackbar

Author: alepmedeiros

SimpleRTTI.pas

@@ -146,8 +146,10 @@ implementation
 
 
   {$IFNDEF CONSOLE}
-  Vcl.ComCtrls,
-  Vcl.Graphics,
+    {$IFNDEF FMX}
+      Vcl.ComCtrls,
+      Vcl.Graphics,
+    {$ENDIF}
   {$ENDIF}
   Variants,
   SimpleRTTIHelper,
@@ -193,8 +195,11 @@ function TSimpleRTTI<T>.__BindValueToComponent(aComponent: TComponent;
   {$ENDIF}
 
   if aComponent is TTrackBar then
-    (aComponent as TTrackBar).Position := aValue;
-
+    {$IFDEF VCL}
+      (aComponent as TTrackBar).Position := aValue;
+    {$ELSEIF IFDEF FMX}
+      (aComponent as TTrackBar).Position.X := aValue;
+    {$ENDIF}
 
 
 
@@ -282,7 +287,11 @@ function TSimpleRTTI<T>.__GetComponentToValue(aComponent: TComponent): TValue;
 
 
   if aComponent is TTrackBar then
-    Result := TValue.FromVariant((aComponent as TTrackBar).Position);
+    {$IFDEF VCL}
+      Result := TValue.FromVariant((aComponent as TTrackBar).Position);
+    {$ELSEIF IFDEF FMX}
+      Result := TValue.FromVariant((aComponent as TTrackBar).Position.X);
+    {$ENDIF}
 
   {$IFDEF VCL}
   if aComponent is TDateTimePicker then