Versão Release 2.1.0

 Adicionada a Classe TExtendedField em Campos Registrados no IDE em Lazarus e Delphi

Author: Ronierys2

CORE/Source/Basic/uRESTDWDesignReg.pas

@@ -237,6 +237,11 @@   TDriverConnectionListProperty = class(TComponentProperty)
 {$ENDIF}
 {$ENDIF}
 
+{$IFDEF FPC}
+Var
+ FieldClasses : TFpList;
+{$ENDIF}
+
 Procedure Register;
 
 {$IFDEF RESTDWLAZARUS}
@@ -755,8 +760,37 @@ procedure TRESTDWContextRulesEditor.ExecuteVerb(Index: Integer);
 End;
 {$ENDIF}
 
+{$IFDEF FPC}
+Procedure RegField(const FieldClass: TFieldClass);
+Begin
+ If FieldClasses = Nil Then
+  FieldClasses := TFpList.Create;
+ If (FieldClass <> Nil)                     And
+    (FieldClasses.IndexOf(FieldClass) = -1) Then
+  Begin
+   FieldClasses.Add(FieldClass);
+   RegisterNoIcon([FieldClass]);
+   RegisterClass(FieldClass);
+  End;
+End;
+
+Procedure RegFields(const AFieldClasses: array of TFieldClass);
+Var
+ I : Integer;
+Begin
+ For I := Low(AFieldClasses) To High(AFieldClasses) Do
+  RegField(AFieldClasses[I]);
+End;
+{$ENDIF}
+
 Procedure Register;
 Begin
+ {$IFDEF FPC}
+//  RegFields(DefaultFieldClasses);
+  RegField(TExtendedField);
+ {$ELSE}
+//  RegisterFields([TExtendedField]);
+ {$ENDIF}
  {$IFDEF FPC}
   {$I RESTDataWareComponents_LAMW.lrs}
  {$ENDIF}

CORE/Source/Basic/uRESTDWStorageBin.pas

@@ -381,8 +381,8 @@ interface
    // field is persistent or no fields persistet
    FFieldExists[I]    := (ADataSet.FindField(FFieldNames[I]) <> nil); // or (vNoFields);
     // create fieldsDefs like fields persistent
-   If ((vNoFields) Or (Not FFieldExists[I])) Then
-    CreateFieldDefs(ADataSet, I);
+//   If ((vNoFields) Or (Not FFieldExists[I])) Then
+   CreateFieldDefs(ADataSet, I);
   End;
  ADataSet.Open;
  // provider flags deve ser recolocado depois dos fields criados  se nao existiam