diff options
| -rw-r--r-- | examples/gui/customstyles/frm_test.pas | 4 | ||||
| -rw-r--r-- | src/gui/fpg_stylemanager.pas | 4 |
2 files changed, 3 insertions, 5 deletions
diff --git a/examples/gui/customstyles/frm_test.pas b/examples/gui/customstyles/frm_test.pas index ed96d8cb..6eb30b35 100644 --- a/examples/gui/customstyles/frm_test.pas +++ b/examples/gui/customstyles/frm_test.pas @@ -54,7 +54,6 @@ end; procedure TTestForm.AfterCreate; var miSubMenu: TfpgMenuItem; - lst: TStrings; begin {@VFD_BODY_BEGIN: TestForm} Name := 'TestForm'; @@ -262,8 +261,7 @@ begin miSubMenu.SubMenu := pmSubMenu1; - lst := memStyles.Lines; - fpgStyleManager.AssignStyleTypes(lst); + fpgStyleManager.AssignStyleTypes(memStyles.Lines); end; 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 |