- melhoria na ordem da propriedade do CompressType

- mudança no tipo da propriedade DatabaseLink do TRALDBModule de StringRAL para String

Author: FernandoBanhos

src/base/RALRegister.pas

@@ -38,6 +38,7 @@   TRALBaseURLEditor = class(TClassProperty)
 
   TRALCompressEditor = class(TEnumProperty)
   public
+    function GetAttributes: TPropertyAttributes; override;
     procedure GetValues(Proc: TGetStrProc); override;
   end;
 
@@ -163,6 +164,14 @@ procedure TRALBaseURLEditor.SetValue(const Value: string);
 
 { TRALCompressEditor }
 
+function TRALCompressEditor.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paValueList];
+  {$IFDEF FPC}
+    Result := Result + [paPickList];
+  {$ENDIF}
+end;
+
 procedure TRALCompressEditor.GetValues(Proc: TGetStrProc);
 var
   vStr: TStringList;

src/database/RALDBModule.pas

@@ -15,7 +15,7 @@ interface
   TRALDBModule = class(TRALModuleRoutes)
   private
     FDatabase: StringRAL;
-    FDatabaseLink: StringRAL;
+    FDatabaseLink: String;
     FDatabaseType: TRALDatabaseType;
     FHostname: StringRAL;
     FPassword: StringRAL;
@@ -43,7 +43,7 @@   TRALDBModule = class(TRALModuleRoutes)
     constructor Create(AOwner: TComponent); override;
   published
     property Database: StringRAL read FDatabase write FDatabase;
-    property DatabaseLink: StringRAL read FDataBaseLink write FDataBaseLink;
+    property DatabaseLink: String read FDataBaseLink write FDataBaseLink;
     property DatabaseType: TRALDatabaseType read FDatabaseType write FDatabaseType;
     property Hostname: StringRAL read FHostname write FHostname;
     property Password: StringRAL read FPassword write FPassword;

src/database/raldbregister.pas

@@ -48,7 +48,7 @@ procedure Register;
   RegisterComponents('RAL - Client', [TRALDBConnection]);
   RegisterComponents('RAL - Modules', [TRALDBModule]);
 
-  RegisterPropertyEditor(TypeInfo(StringRAL), TRALDBModule, 'DatabaseLink', TRALDBDatabases);
+  RegisterPropertyEditor(TypeInfo(String), TRALDBModule, 'DatabaseLink', TRALDBDatabases);
 
   {$IFNDEF FPC}
     RegisterSelectionEditor(TRALDBModule,  TRALDBModuleSelectionEditor);

src/utils/RALCompress.pas

@@ -125,14 +125,23 @@ procedure GetCompressList(AList: TStrings);
 var
   vInt : IntegerRAL;
   vStrType : StringRAL;
+  vList : TStringList;
 begin
   CheckCompressDefs;
 
-  vStrType := GetEnumName(TypeInfo(TRALCompressType), Ord(ctNone));
-  AList.Add(vStrType);
+  vList := TStringList.Create;
+  try
+    for vInt := 0 to Pred(CompressDefs.Count) do
+      vList.Add(CompressDefs.Names[vInt]);
 
-  for vInt := 0 to Pred(CompressDefs.Count) do
-    AList.Add(CompressDefs.Names[vInt]);
+    vList.Sort;
+    AList.Assign(vList);
+  finally
+    FreeAndNil(vList);
+  end;
+
+  vStrType := GetEnumName(TypeInfo(TRALCompressType), Ord(ctNone));
+  AList.Insert(0, vStrType);
 end;
 
 function GetSuportedCompress: TRALCompressTypes;