From 632628551f3d6214c4ca4e373e08e50878d12175 Mon Sep 17 00:00:00 2001 From: Reinaldo ACDC Date: Mon, 31 Jan 2022 19:48:41 -0300 Subject: [PATCH 1/2] fix: update repository link into readme file --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From b0e6d097bc3330744e6b47fa363068b9d67608e7 Mon Sep 17 00:00:00 2001 From: Reinaldo ACDC Date: Mon, 31 Jan 2022 20:15:51 -0300 Subject: [PATCH 2/2] fix: fmx usage issue --- SimpleRTTI.pas | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) 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