diff --git a/README.md b/README.md index 4c73c98..570fd72 100644 --- a/README.md +++ b/README.md @@ -76,7 +76,7 @@ Obs.: Em casos como o "Campo('ID')" a anotação é opcional, pois a `property` ## Instalação -Basta adicionar ao LibraryPatch o Caminho do SimpleORM ou via [Boss](https://github.com/HashLoad/boss) com o comando `boss install bittencourtthulio/SimpleORM`, não precisa realizar a instalação de nenhum componente. +Basta adicionar ao LibraryPatch o Caminho do SimpleORM ou via [Boss](https://github.com/HashLoad/boss) com o comando `boss install academiadocodigo/SimpleORM`, não precisa realizar a instalação de nenhum componente. ## Uses Necessárias diff --git a/SimpleRTTI.pas b/SimpleRTTI.pas index c5bcb07..c233dca 100644 --- a/SimpleRTTI.pas +++ b/SimpleRTTI.pas @@ -92,7 +92,7 @@ interface {$IFDEF FMX} FMX.Types,FMX.Forms, FMX.Edit, FMX.ListBox, FMX.StdCtrls, FMX.DateTimeCtrls, {$ELSE} - Vcl.Forms, VCL.StdCtrls, Vcl.ExtCtrls, + Vcl.ComCtrls, Vcl.Graphics, Vcl.Forms, VCL.StdCtrls, Vcl.ExtCtrls, {$ENDIF} {$ENDIF} System.Classes, @@ -142,12 +142,6 @@ implementation uses SimpleAttributes, - - - {$IFNDEF CONSOLE} - Vcl.ComCtrls, - Vcl.Graphics, - {$ENDIF} Variants, SimpleRTTIHelper, System.UITypes; @@ -192,8 +186,9 @@ function TSimpleRTTI.__BindValueToComponent(aComponent: TComponent; {$ENDIF} if aComponent is TTrackBar then + {$IFDEF VCL} (aComponent as TTrackBar).Position := aValue; - + {$ENDIF} @@ -281,9 +276,10 @@ function TSimpleRTTI.__GetComponentToValue(aComponent: TComponent): TValue; Result := TValue.FromVariant((aComponent as TCheckBox).IsChecked); {$ENDIF} - + {$IFDEF VCL} if aComponent is TTrackBar then Result := TValue.FromVariant((aComponent as TTrackBar).Position); + {$ENDIF} {$IFDEF VCL} if aComponent is TDateTimePicker then