diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-11-21 12:10:23 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-11-21 12:10:23 +0200 |
| commit | d159ed3256f685ab0e2b5251ecb95e96fee26d02 (patch) | |
| tree | ff29c75db580128fa75ed2b1c2b3e2338d70f1d9 /examples | |
| parent | c6c0e9dc10610afeb33f56fa0796c1b31319688e (diff) | |
| download | fpGUI-d159ed3256f685ab0e2b5251ecb95e96fee26d02.tar.xz | |
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.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/customstyles/frm_test.pas | 4 |
1 files changed, 1 insertions, 3 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; |