Fixed the parameter modifier of TfpgStyleManager.AssignStyleTypes()

We can now pass in the Lines property of a Memo or Combobox directly,
without the need of an extra local TStrings variable.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/gui/fpg_stylemanager.pas b/src/gui/fpg_stylemanager.pas
index 62e04a35..de49d5a7 100644
--- a/src/gui/fpg_stylemanager.pas
+++ b/src/gui/fpg_stylemanager.pas
@@ -66,7 +66,7 @@ type
     function    CreateInstance(const AStyleName: string): TfpgStyle; overload;
     function    CreateInstance: TfpgStyle; overload;
     procedure   FreeStyleInstance;
-    procedure   AssignStyleTypes(var AStrings: TStrings);
+    procedure   AssignStyleTypes(const AStrings: TStrings);
   end;
 
 
@@ -194,7 +194,7 @@ end;
 { Assign the registered list of style names to a StringList.
   This can be used to populate a combobox with the registered style
   class types. }
-procedure TfpgStyleManager.AssignStyleTypes(var AStrings: TStrings);
+procedure TfpgStyleManager.AssignStyleTypes(const AStrings: TStrings);
 var
   i: integer;
 begin