diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-08 13:56:31 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-08 13:56:31 +0200 |
| commit | 4c9077f2e3107393164fce4f5b386a24f074c26c (patch) | |
| tree | 90d7a14f3e400360616dc3a523e5cb1d8428920a /uidesigner/vfdfile.pas | |
| parent | 74ce93289eee053348182fe75b3be6e3dc05892e (diff) | |
| download | fpGUI-4c9077f2e3107393164fce4f5b386a24f074c26c.tar.xz | |
Changed method parameter name to avoid conflict with FPC 2.5.1
Diffstat (limited to 'uidesigner/vfdfile.pas')
| -rw-r--r-- | uidesigner/vfdfile.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/uidesigner/vfdfile.pas b/uidesigner/vfdfile.pas index b63ef219..ea7bf268 100644 --- a/uidesigner/vfdfile.pas +++ b/uidesigner/vfdfile.pas @@ -58,7 +58,7 @@ type procedure AddNewFormImpl(formname, formbody: string); function FindFormBlock(blockid, formname: string): TVFDFileBlock; procedure SetFormData(formname, headblock, bodyblock: string); - procedure NewFileSkeleton(unitname: string); + procedure NewFileSkeleton(AUnitname: string); end; @@ -323,10 +323,10 @@ begin Result := rs; end; -procedure TVFDFile.NewFileSkeleton(unitname: string); +procedure TVFDFile.NewFileSkeleton(AUnitname: string); begin FFileData := - 'unit ' + unitname + ';'+ LineEnding + LineEnding + + 'unit ' + AUnitname + ';'+ LineEnding + LineEnding + '{$mode objfpc}{$H+}' + LineEnding + LineEnding + 'interface' + LineEnding + LineEnding + 'uses' + LineEnding + |